Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/clauses-1.f90
2018-12-28 16:30:48 +01:00

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