blob: 9868cb0da9d2ef5fe8664f874521d3b0da919ede [file] [log] [blame]
 ! { dg-do run } program asyncwait real, allocatable :: a(:), b(:), c(:), d(:), e(:) integer i, N N = 64 allocate (a(N)) allocate (b(N)) allocate (c(N)) allocate (d(N)) allocate (e(N)) a(:) = 3.0 b(:) = 0.0 !\$acc enter data copyin (a(1:N)) copyin (b(1:N)) copyin (N) async !\$acc parallel async wait do i = 1, N b(i) = a(i) end do !\$acc end parallel !\$acc wait !\$acc exit data copyout (a(1:N)) copyout (b(1:N)) do i = 1, N if (a(i) .ne. 3.0) call abort if (b(i) .ne. 3.0) call abort end do a(:) = 2.0 b(:) = 0.0 !\$acc enter data copyin (a(1:N)) copyin (b(1:N)) async (1) !\$acc parallel async (1) wait (1) do i = 1, N b(i) = a(i) end do !\$acc end parallel !\$acc wait (1) !\$acc exit data copyout (a(1:N)) copyout (b(1:N)) do i = 1, N if (a(i) .ne. 2.0) call abort if (b(i) .ne. 2.0) call abort end do a(:) = 3.0 b(:) = 0.0 c(:) = 0.0 d(:) = 0.0 !\$acc enter data copyin (a(1:N)) create (b(1:N)) create (c(1:N)) create (d(1:N)) !\$acc parallel async (1) do i = 1, N b(i) = (a(i) * a(i) * a(i)) / a(i) end do !\$acc end parallel !\$acc parallel async (1) do i = 1, N c(i) = (a(i) * 4) / a(i) end do !\$acc end parallel !\$acc parallel async (1) do i = 1, N d(i) = ((a(i) * a(i) + a(i)) / a(i)) - a(i) end do !\$acc end parallel !\$acc wait (1) !\$acc exit data copyout (a(1:N)) copyout (b(1:N)) copyout (c(1:N)) copyout (d(1:N)) do i = 1, N if (a(i) .ne. 3.0) call abort if (b(i) .ne. 9.0) call abort if (c(i) .ne. 4.0) call abort if (d(i) .ne. 1.0) call abort end do a(:) = 2.0 b(:) = 0.0 c(:) = 0.0 d(:) = 0.0 e(:) = 0.0 !\$acc enter data copyin (a(1:N)) create (b(1:N)) create (c(1:N)) create (d(1:N)) copyin (e(1:N)) !\$acc parallel async (1) do i = 1, N b(i) = (a(i) * a(i) * a(i)) / a(i) end do !\$acc end parallel !\$acc parallel async (1) do i = 1, N c(i) = (a(i) * 4) / a(i) end do !\$acc end parallel !\$acc parallel async (1) do i = 1, N d(i) = ((a(i) * a(i) + a(i)) / a(i)) - a(i) end do !\$acc end parallel !\$acc parallel wait (1) async (1) do i = 1, N e(i) = a(i) + b(i) + c(i) + d(i) end do !\$acc end parallel !\$acc wait (1) !\$acc exit data copyout (a(1:N)) copyout (b(1:N)) copyout (c(1:N)) copyout (d(1:N)) copyout (e(1:N)) !\$acc exit data delete (N) do i = 1, N if (a(i) .ne. 2.0) call abort if (b(i) .ne. 4.0) call abort if (c(i) .ne. 4.0) call abort if (d(i) .ne. 1.0) call abort if (e(i) .ne. 11.0) call abort end do end program asyncwait