Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr71758.f90
blob: 47215ba5cd92fb644f7ebf0ae37c83a6d7f8a694 [
file
] [
log
] [
blame
]
!
PR middle
-
end
/
71758
subroutine pr71758
(
p
)
integer
(
8
)
::
i
integer
::
p
(
20
)
i
=
0
!
$omp target device
(
i
)
!
$omp
end
target
!
$omp target update to
(
p
(
1
:
1
))
device
(
i
)
end
subroutine