Sign in
llvm
/
llvm-project
/
flang
/
refs/heads/main
/
.
/
test
/
Preprocessing
/
preprocessed-dirs.F90
blob: 26253b62ff22c51ab3e905bd33054e38381e1f92 [
file
] [
log
] [
blame
]
!
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
)