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