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