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
Skip gnat.dg/prot7.adb on hppa.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
kernels-acc-loop-reduction-2.f90
blob
0a612a57964e646e6185d18086a9d9ddebd240d2
1
! { dg-do run }
2
!
3
program
foo
4
5
IMPLICIT NONE
6
INTEGER
::
vol
=
0
7
8
call
bar
(
vol
)
9
10
if
(
vol
.
ne
.
4
)
stop
1
11
end program
foo
12
13
subroutine
bar
(
vol
)
14
IMPLICIT NONE
15
16
INTEGER
::
vol
17
INTEGER
::
j
,
k
18
19
!$ACC KERNELS
20
!$ACC LOOP REDUCTION(+:vol)
21
DO
k
=
1
,
2
22
!$ACC LOOP REDUCTION(+:vol)
23
DO
j
=
1
,
2
24
vol
=
vol
+
1
25
ENDDO
26
ENDDO
27
!$ACC END KERNELS
28
end subroutine
bar