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
Update OpenACC testcases
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
kernels-acc-loop-reduction.f90
blob
912a22b5153bd69a99ab3613173a0bcf9c318abe
1
program
foo
2
IMPLICIT NONE
3
INTEGER
::
vol
=
0
4
5
call
bar
(
vol
)
6
7
if
(
vol
.
ne
.
2
)
call
abort
8
end program
foo
9
10
subroutine
bar
(
vol
)
11
IMPLICIT NONE
12
INTEGER
::
vol
13
INTEGER
::
j
14
15
!$ACC KERNELS
16
!$ACC LOOP REDUCTION(+:vol)
17
DO
j
=
1
,
2
18
vol
=
vol
+
1
19
ENDDO
20
!$ACC END KERNELS
21
end subroutine
bar