27 lines
673 B
Fortran
27 lines
673 B
Fortran
! Test that the expanded macros have the location information
|
|
! RUN: %flang_fc1 -mmlir --mlir-print-debuginfo -emit-fir -o - %s | FileCheck %s
|
|
|
|
#define CMD(fname) fname()
|
|
|
|
subroutine foo()
|
|
end subroutine
|
|
|
|
subroutine test()
|
|
! CHECK: fir.call @_QPfoo() fastmath<contract> : () -> () loc(#[[CALL_LOC:.*]])
|
|
call CMD(foo)
|
|
end subroutine
|
|
|
|
#define IVAR i
|
|
|
|
integer function ifoo()
|
|
ifoo = 0
|
|
end function
|
|
|
|
subroutine test2()
|
|
integer :: i
|
|
! CHECK: fir.call @_QPifoo(){{.*}} loc(#[[IFOO_CALL_LOC:.*]])
|
|
IVAR = ifoo()
|
|
end subroutine
|
|
|
|
! CHECK: #[[CALL_LOC]] = loc("{{.*}}macro-debug-file-loc.f90":11:3)
|
|
! CHECK: #[[IFOO_CALL_LOC]] = loc("{{.*}}macro-debug-file-loc.f90":23:3)
|