Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/data-2.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } program test integer, parameter :: N = 8 real, allocatable :: a(:,:), b(:,:) allocate (a(N,N)) allocate (b(N,N)) a(:,:) = 3.0 b(:,:) = 0.0 !$acc enter data copyin (a(1:N,1:N), b(1:N,1:N)) !$acc parallel do i = 1, n do j = 1, n b(j,i) = a (j,i) end do end do !$acc end parallel !$acc exit data copyout (a(1:N,1:N), b(1:N,1:N)) do i = 1, n do j = 1, n if (a(j,i) .ne. 3.0) call abort if (b(j,i) .ne. 3.0) call abort end do end do end program test