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
Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
pr70289.f90
blob
a516f9f32f623e1bd917b2cb85e2206e2afcf6b1
1
! { dg-do run }
2
!
3
program
foo
4
implicit none
5
integer
::
i
6
integer
::
temp
=
0
7
integer
::
temp2
=
0
8
9
!$acc parallel
10
!$acc loop gang private(temp)
11
do
i
=
1
,
10000
12
temp
=
0
13
enddo
14
!$acc end parallel
15
16
!$acc parallel reduction(+:temp2)
17
!$acc loop gang reduction(+:temp2)
18
do
i
=
1
,
10000
19
temp2
=
0
20
enddo
21
!$acc end parallel
22
end program
foo