blob: 1d05e4a819fbe9f3c61e3caa5d23ca1bd96d6d53 [file] [log] [blame]
 ! { 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