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
slsr: Use simple_dce_from_worklist in SLSR [PR116554]
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
kernels-loop.f95
blob
0090f433efd5932419b0cdd6072fac71da22097d
1
! { dg-do run }
2
3
program
main
4
implicit none
5
integer
,
parameter
::
n
=
1024
6
integer
,
dimension
(
0
:
n
-
1
) ::
a
,
b
,
c
7
integer
::
i
,
ii
8
9
do
i
=
0
,
n
-
1
10
a
(
i
) =
i
*
2
11
end do
12
13
do
i
=
0
,
n
-
1
14
b
(
i
) =
i
*
4
15
end do
16
17
!$acc kernels copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1))
18
do
ii
=
0
,
n
-
1
19
c
(
ii
) =
a
(
ii
) +
b
(
ii
)
20
end do
21
!$acc end kernels
22
23
do
i
=
0
,
n
-
1
24
if
(
c
(
i
) .
ne
.
a
(
i
) +
b
(
i
))
STOP
1
25
end do
26
27
end program
main