143d2ef28SjeanPerier! Test that the expanded macros have the location information 243d2ef28SjeanPerier! RUN: %flang_fc1 -mmlir --mlir-print-debuginfo -emit-fir -o - %s | FileCheck %s 343d2ef28SjeanPerier 443d2ef28SjeanPerier#define CMD(fname) fname() 543d2ef28SjeanPerier 643d2ef28SjeanPeriersubroutine foo() 743d2ef28SjeanPerierend subroutine 843d2ef28SjeanPerier 943d2ef28SjeanPeriersubroutine test() 1043d2ef28SjeanPerier ! CHECK: fir.call @_QPfoo() fastmath<contract> : () -> () loc(#[[CALL_LOC:.*]]) 1143d2ef28SjeanPerier call CMD(foo) 1243d2ef28SjeanPerierend subroutine 13*c87e94b0SjeanPerier 14*c87e94b0SjeanPerier#define IVAR i 15*c87e94b0SjeanPerier 16*c87e94b0SjeanPerierinteger function ifoo() 17*c87e94b0SjeanPerier ifoo = 0 18*c87e94b0SjeanPerierend function 19*c87e94b0SjeanPerier 20*c87e94b0SjeanPeriersubroutine test2() 21*c87e94b0SjeanPerier integer :: i 22*c87e94b0SjeanPerier ! CHECK: fir.call @_QPifoo(){{.*}} loc(#[[IFOO_CALL_LOC:.*]]) 23*c87e94b0SjeanPerier IVAR = ifoo() 24*c87e94b0SjeanPerierend subroutine 25*c87e94b0SjeanPerier 2643d2ef28SjeanPerier! CHECK: #[[CALL_LOC]] = loc("{{.*}}macro-debug-file-loc.f90":11:3) 27*c87e94b0SjeanPerier! CHECK: #[[IFOO_CALL_LOC]] = loc("{{.*}}macro-debug-file-loc.f90":23:3) 28