| ! { 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 |