Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr90779.f90
blob: c14dc87dd001945b597b0ead74c38a2c84ace0d2 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR middle
-
end
/
90779
program pr90779
implicit
none
integer
::
v
(
4
),
i
!
$omp target map
(
from
:
v
)
v
(:)
=
(
/ (i, i=1,4) /
)
!
$omp
end
target
if
(
any
(
v
.
ne
.
(
/ (i, i=1,4) /
)))
stop
1
end
program
