Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/collapse-3.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 collapse3 integer :: a(3,3,3), k, kk, kkk, l, ll, lll !$acc parallel !$acc loop collapse(3) do 115 k=1,3 dokk: do kk=1,3 do kkk=1,3 a(k,kk,kkk) = 1 enddo enddo dokk 115 continue !$acc end parallel if (any(a(1:3,1:3,1:3).ne.1)) call abort !$acc parallel !$acc loop collapse(3) dol: do 120 l=1,3 doll: do ll=1,3 do lll=1,3 a(l,ll,lll) = 2 enddo enddo doll 120 end do dol !$acc end parallel if (any(a(1:3,1:3,1:3).ne.2)) call abort end program collapse3