30 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2 3! Test that checks whether compiler directives can be inlined without mistaking it as comment.4 5module m6contains7#define MACRO(X) subroutine func1(X); real(2) :: X; !dir$ ignore_tkr(d) X; end subroutine func1;8MACRO(foo)9 10!CHECK: SUBROUTINE func1 (foo)11!CHECK: !DIR$ IGNORE_TKR (d) foo12!CHECK: END SUBROUTINE func113 14 subroutine func2(foo)15 real(2) :: foo; !dir$ ignore_tkr(d) foo;16 end subroutine func217 18!CHECK: SUBROUTINE func2 (foo)19!CHECK: !DIR$ IGNORE_TKR (d) foo20!CHECK: END SUBROUTINE func221 22 subroutine func3(foo)23 real(2) :: foo; !dir$ ignore_tkr(d) foo; end subroutine func3;24 25!CHECK: SUBROUTINE func3 (foo)26!CHECK: !DIR$ IGNORE_TKR (d) foo27!CHECK: END SUBROUTINE func328 29end module30