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
RISC-V: Implement TARGET_CAN_INLINE_P
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
pr81352.f90
blob
a7f02521753598c300bdb890cca3fd094e7c8fed
1
! { dg-do run }
2
3
program
foo
4
integer
::
a
(
3
,
3
),
l
,
ll
5
a
=
0
6
7
!$acc parallel num_gangs (1) num_workers(1)
8
9
do
l
=
1
,
3
10
!$acc loop vector
11
do
ll
=
1
,
3
12
a
(
l
,
ll
) =
2
13
enddo
14
enddo
15
16
if
(
any
(
a
(
1
:
3
,
1
:
3
).
ne
.2
))
STOP
1
17
18
!$acc end parallel
19
20
end program
foo