Sign in
llvm
/
llvm-project
/
74cbd71072de4f20c5cb9852dc4cf96ac7a4b5a4
/
.
/
flang
/
test
/
Semantics
/
omp-private-is-pointer-check.f90
blob: c2b7244e464859335572b12e2bd714bd4d27d52e [
file
] [
log
] [
blame
]
!
RUN
:
%
flang_fc1
-
fopenmp
-
fsyntax
-
only
%
s
subroutine s
integer
,
pointer
::
p
integer
,
target
::
t
!
$omp parallel
private
(
p
)
p
=>
t
!
$omp
end
parallel
end
subroutine