flang/test/Lower/main_location.f90

   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
  10 if (.false.) then
  11 endif
  12 end
  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
  20 if (.true.) then
  21 endif
  22 end program
  23
  24 ! TEST2: func.func @_QQmain() {
  25 ! TEST2-NEXT: return loc("{{.*}}test2.f90":4:1)
  26 ! TEST2-NEXT: } loc("{{.*}}test2.f90":2:1)