9 lines · plain
1! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s2!CHECK: subroutine r4(x) Z real :: x Z !$acc routine Z print *, x Z end3#define SUB(s, t) subroutine s(x) Z\4 t :: x Z\5 !$acc routine Z\6 print *, x Z\7 end subroutine s8SUB(r4, real)9