flang/test/Lower/macro-debug-file-loc.f90

   1 ! Test that the expanded macros have the location information
   2 ! RUN: %flang_fc1 -mmlir --mlir-print-debuginfo -emit-fir -o - %s | FileCheck %s
   3
   4 #define CMD(fname) fname()
   5
   6 subroutine foo()
   7 end subroutine
   8
   9 subroutine test()
  10   ! CHECK: fir.call @_QPfoo() fastmath<contract> : () -> () loc(#[[CALL_LOC:.*]])
  11   call CMD(foo)
  12 end subroutine
  13 ! CHECK: #[[CALL_LOC]] = loc("{{.*}}macro-debug-file-loc.f90":11:3)