blob: 94100b22163493acf7c56162d3fe446707638884 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
! This test exercises combined directives.
! { dg-do run }
program main
integer, parameter :: n = 32
real :: a(n), b(n);
integer :: i
do i = 1, n
a(i) = 1.0
b(i) = 0.0
end do
!$acc parallel loop copy (a(1:n)) copy (b(1:n))
do i = 1, n
b(i) = 2.0
a(i) = a(i) + b(i)
end do
do i = 1, n
if (a(i) .ne. 3.0) call abort
if (b(i) .ne. 2.0) call abort
end do
!$acc kernels loop copy (a(1:n)) copy (b(1:n))
do i = 1, n
b(i) = 3.0;
a(i) = a(i) + b(i)
end do
do i = 1, n
if (a(i) .ne. 6.0) call abort
if (b(i) .ne. 3.0) call abort
end do
end program main
|
