Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/lib-13.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } program main use openacc implicit none integer :: i, j integer, parameter :: N = 1000000 integer, parameter :: nprocs = 2 integer :: k(nprocs) k(:) = 0 !$acc data copy (k(1:nprocs)) do j = 1, nprocs !$acc parallel async (j) do i = 1, N k(j) = k(j) + 1 end do !$acc end parallel end do !$acc end data call acc_wait_all_async (nprocs + 1) call acc_wait (nprocs + 1) if (acc_async_test (1) .neqv. .TRUE.) stop 1 if (acc_async_test (2) .neqv. .TRUE.) stop 2 if (acc_async_test (nprocs + 1) .neqv. .TRUE.) stop 3 end program