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 testsuite/65205, libgomp/65993] Fix dg-shouldfail usage in OpenACC libgomp tests
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
reduction-6.f90
blob
63254318954c3b46bc43f5bf65b75b28dfba9c35
1
! { dg-do run }
2
3
program
reduction
4
implicit none
5
6
integer
,
parameter
::
n
=
100
7
integer
::
i
,
s1
,
s2
,
vs1
,
vs2
8
9
s1
=
0
10
s2
=
0
11
vs1
=
0
12
vs2
=
0
13
14
!$acc parallel vector_length (1000)
15
!$acc loop reduction(+:s1, s2)
16
do
i
=
1
,
n
17
s1
=
s1
+
1
18
s2
=
s2
+
2
19
end do
20
!$acc end parallel
21
22
! Verify the results
23
do
i
=
1
,
n
24
vs1
=
vs1
+
1
25
vs2
=
vs2
+
2
26
end do
27
28
if
(
s1
.
ne
.
vs1
)
call
abort
()
29
if
(
s2
.
ne
.
vs2
)
call
abort
()
30
end program
reduction