1! RUN: split-file %s %t 2! RUN: bbc %t/test1.f90 -o - --emit-fir --mlir-print-debuginfo | FileCheck %s --check-prefix=TEST1 3! RUN: bbc %t/test2.f90 -o - --emit-fir --mlir-print-debuginfo | FileCheck %s --check-prefix=TEST2 4 5! Check that the missing optional program-stmt (R1401) 6! does not result in unknown source location of the corresponding 7! function. 8 9!--- test1.f90 10if (.false.) then 11endif 12end 13 14! TEST1: func.func @_QQmain() { 15! TEST1-NEXT: return loc("{{.*}}test1.f90":3:1) 16! TEST1-NEXT: } loc("{{.*}}test1.f90":1:1) 17 18!--- test2.f90 19!!! keep me here 20if (.true.) then 21endif 22end program 23 24! TEST2: func.func @_QQmain() { 25! TEST2-NEXT: return loc("{{.*}}test2.f90":4:1) 26! TEST2-NEXT: } loc("{{.*}}test2.f90":2:1) 27