repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
tree-vect-data-refs.c (vect_grouped_store_supported): Fix typo "permutaion".
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
pr84028.f90
blob
2b361220bb607821763d2c37fe83f30ca0756bb7
1
! { dg-do run }
2
3
program
foo
4
integer
::
a
(
3
,
3
,
3
),
ll
,
lll
5
6
a
=
1
7
8
!$acc parallel num_gangs(1) num_workers(2)
9
10
if
(
any
(
a
(
1
:
3
,
1
:
3
,
1
:
3
).
ne
.1
))
STOP
1
11
12
do
ll
=
1
,
3
13
14
!$acc loop vector
15
do
lll
=
1
,
3
16
a
(
1
,
ll
,
lll
) =
2
17
enddo
18
19
enddo
20
21
if
(
a
(
1
,
1
,
1
).
ne
.2
)
STOP
2
22
23
!$acc end parallel
24
25
end program
foo