Sign in
gnu
/
gcc
/
646ce0056ed84bcc71d52cb07c61d0bf331f91c3
/
.
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
pr81352.f90
blob: a7f02521753598c300bdb890cca3fd094e7c8fed [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program foo
integer
::
a
(
3
,
3
),
l
,
ll
a
=
0
!
$acc parallel num_gangs
(
1
)
num_workers
(
1
)
do
l
=
1
,
3
!
$acc loop vector
do
ll
=
1
,
3
a
(
l
,
ll
)
=
2
enddo
enddo
if
(
any
(
a
(
1
:
3
,
1
:
3
).
ne
.
2
))
STOP
1
!
$acc
end
parallel
end
program foo
