mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
291 lines
5.6 KiB
Fortran
291 lines
5.6 KiB
Fortran
! { dg-do run }
|
|
! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
|
|
|
|
program main
|
|
use openacc
|
|
implicit none
|
|
|
|
integer, parameter :: N = 32
|
|
real, allocatable :: a(:), b(:), c(:)
|
|
integer i
|
|
|
|
i = 0
|
|
|
|
allocate (a(N))
|
|
allocate (b(N))
|
|
allocate (c(N))
|
|
|
|
a(:) = 3.0
|
|
b(:) = 0.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 3.0) STOP 1
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 2
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 3
|
|
|
|
a(:) = 5.0
|
|
b(:) = 1.0
|
|
|
|
!$acc parallel copyin (a(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 5.0) STOP 4
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 5
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 6
|
|
|
|
a(:) = 6.0
|
|
b(:) = 0.0
|
|
|
|
call acc_copyin (a, sizeof (a))
|
|
|
|
a(:) = 9.0
|
|
|
|
!$acc parallel present_or_copyin (a(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 6.0) STOP 7
|
|
end do
|
|
|
|
call acc_copyout (a, sizeof (a))
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 8
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 9
|
|
|
|
a(:) = 6.0
|
|
b(:) = 0.0
|
|
|
|
!$acc parallel copyin (a(1:N)) present_or_copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 6.0) STOP 10
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 11
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 12
|
|
|
|
a(:) = 5.0
|
|
b(:) = 2.0
|
|
|
|
call acc_copyin (b, sizeof (b))
|
|
|
|
!$acc parallel copyin (a(1:N)) present_or_copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 5.0) STOP 13
|
|
if (b(i) .ne. 2.0) STOP 14
|
|
end do
|
|
|
|
call acc_copyout (b, sizeof (b))
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 15
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 16
|
|
|
|
a(:) = 3.0;
|
|
b(:) = 4.0;
|
|
|
|
!$acc parallel copy (a(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
a(i) = a(i) + 1
|
|
b(i) = a(i) + 2
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 4.0) STOP 17
|
|
if (b(i) .ne. 6.0) STOP 18
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 19
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 20
|
|
|
|
a(:) = 4.0
|
|
b(:) = 7.0
|
|
|
|
!$acc parallel present_or_copy (a(1:N)) present_or_copy (b(1:N))
|
|
do i = 1, N
|
|
a(i) = a(i) + 1
|
|
b(i) = b(i) + 2
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 5.0) STOP 21
|
|
if (b(i) .ne. 9.0) STOP 22
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 23
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 24
|
|
|
|
a(:) = 3.0
|
|
b(:) = 7.0
|
|
|
|
call acc_copyin (a, sizeof (a))
|
|
call acc_copyin (b, sizeof (b))
|
|
|
|
!$acc parallel present_or_copy (a(1:N)) present_or_copy (b(1:N))
|
|
do i = 1, N
|
|
a(i) = a(i) + 1
|
|
b(i) = b(i) + 2
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 3.0) STOP 25
|
|
if (b(i) .ne. 7.0) STOP 26
|
|
end do
|
|
|
|
call acc_copyout (a, sizeof (a))
|
|
call acc_copyout (b, sizeof (b))
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 27
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 28
|
|
|
|
a(:) = 3.0
|
|
b(:) = 7.0
|
|
|
|
!$acc parallel copyin (a(1:N)) create (c(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
c(i) = a(i)
|
|
b(i) = c(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 3.0) STOP 29
|
|
if (b(i) .ne. 3.0) STOP 30
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 31
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 32
|
|
if (acc_is_present (c) .eqv. .TRUE.) STOP 33
|
|
|
|
a(:) = 4.0
|
|
b(:) = 8.0
|
|
|
|
!$acc parallel copyin (a(1:N)) present_or_create (c(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
c(i) = a(i)
|
|
b(i) = c(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 4.0) STOP 34
|
|
if (b(i) .ne. 4.0) STOP 35
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 36
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 37
|
|
if (acc_is_present (c) .eqv. .TRUE.) STOP 38
|
|
|
|
a(:) = 4.0
|
|
|
|
call acc_copyin (a, sizeof (a))
|
|
call acc_copyin (b, sizeof (b))
|
|
call acc_copyin (c, sizeof (c))
|
|
|
|
!$acc parallel present (a(1:N)) present (c(1:N)) present (b(1:N))
|
|
do i = 1, N
|
|
c(i) = a(i)
|
|
b(i) = c(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
call acc_copyout (a, sizeof (a))
|
|
call acc_copyout (b, sizeof (b))
|
|
call acc_copyout (c, sizeof (c))
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 4.0) STOP 39
|
|
if (b(i) .ne. 4.0) STOP 40
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 41
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 42
|
|
if (acc_is_present (c) .eqv. .TRUE.) STOP 43
|
|
|
|
a(:) = 6.0
|
|
b(:) = 0.0
|
|
|
|
call acc_copyin (a, sizeof (a))
|
|
|
|
a(:) = 9.0
|
|
|
|
!$acc parallel pcopyin (a(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 6.0) STOP 44
|
|
end do
|
|
|
|
call acc_copyout (a, sizeof (a))
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 45
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 46
|
|
|
|
a(:) = 6.0
|
|
b(:) = 0.0
|
|
|
|
!$acc parallel copyin (a(1:N)) pcopyout (b(1:N))
|
|
do i = 1, N
|
|
b(i) = a(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (b(i) .ne. 6.0) STOP 47
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 48
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 49
|
|
|
|
a(:) = 5.0
|
|
b(:) = 7.0
|
|
|
|
!$acc parallel copyin (a(1:N)) pcreate (c(1:N)) copyout (b(1:N))
|
|
do i = 1, N
|
|
c(i) = a(i)
|
|
b(i) = c(i)
|
|
end do
|
|
!$acc end parallel
|
|
|
|
do i = 1, N
|
|
if (a(i) .ne. 5.0) STOP 50
|
|
if (b(i) .ne. 5.0) STOP 51
|
|
end do
|
|
|
|
if (acc_is_present (a) .eqv. .TRUE.) STOP 52
|
|
if (acc_is_present (b) .eqv. .TRUE.) STOP 53
|
|
if (acc_is_present (c) .eqv. .TRUE.) STOP 54
|
|
|
|
end program main
|