8 lines
243 B
Fortran
8 lines
243 B
Fortran
! RUN: %flang_fc1 -E -fopenacc %s 2>&1 | FileCheck %s
|
|
!CHECK: subroutine r4(x) Z real :: x Z !$acc routine Z print *, x Z end
|
|
#define SUB(s, t) subroutine s(x) Z\
|
|
t :: x Z\
|
|
!$acc routine Z\
|
|
print *, x Z\
|
|
end subroutine s
|
|
SUB(r4, real)
|