29 lines · plain
1! RUN: split-file %s %t2! RUN: bbc %t/test1.f90 -o - --emit-fir --mlir-print-debuginfo | FileCheck %s --check-prefix=TEST13! RUN: bbc %t/test2.f90 -o - --emit-fir --mlir-print-debuginfo | FileCheck %s --check-prefix=TEST24 5! Check that the missing optional program-stmt (R1401)6! does not result in unknown source location of the corresponding7! function.8 9!--- test1.f9010if (.false.) then11endif12end13 14! TEST1: func.func @_QQmain() {15! TEST1-NEXT: fir.dummy_scope : !fir.dscope loc("{{.*}}test1.f90":1:1)16! TEST1-NEXT: return loc("{{.*}}test1.f90":3:1)17! TEST1-NEXT: } loc("{{.*}}test1.f90":1:1)18 19!--- test2.f9020!!! keep me here21if (.true.) then22endif23end program24 25! TEST2: func.func @_QQmain() {26! TEST2-NEXT: fir.dummy_scope : !fir.dscope loc("{{.*}}test2.f90":2:1)27! TEST2-NEXT: return loc("{{.*}}test2.f90":4:1)28! TEST2-NEXT: } loc("{{.*}}test2.f90":2:1)29