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
PR c++/86342 - -Wdeprecated-copy and system headers.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
kernels-acc-loop-reduction-2.f90
blob
fdf9409bde4d3acb85037013d19f0bce0c20b168
1
program
foo
2
3
IMPLICIT NONE
4
INTEGER
::
vol
=
0
5
6
call
bar
(
vol
)
7
8
if
(
vol
.
ne
.
4
)
call
abort
9
end program
foo
10
11
subroutine
bar
(
vol
)
12
IMPLICIT NONE
13
14
INTEGER
::
vol
15
INTEGER
::
j
,
k
16
17
!$ACC KERNELS
18
!$ACC LOOP REDUCTION(+:vol)
19
DO
k
=
1
,
2
20
!$ACC LOOP REDUCTION(+:vol)
21
DO
j
=
1
,
2
22
vol
=
vol
+
1
23
ENDDO
24
ENDDO
25
!$ACC END KERNELS
26
end subroutine
bar