mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-18 12:29:08 +00:00
21 lines
275 B
Fortran
21 lines
275 B
Fortran
|
! { dg-do run }
|
||
|
|
|
||
|
|
program foo
|
||
|
|
integer :: a(3,3), l, ll
|
||
|
|
a = 0
|
||
|
|
|
||
|
|
!$acc parallel num_gangs (1) num_workers(1)
|
||
|
|
|
||
|
|
do l=1,3
|
||
|
|
!$acc loop vector
|
||
|
|
do ll=1,3
|
||
|
|
a(l,ll) = 2
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
if (any(a(1:3,1:3).ne.2)) STOP 1
|
||
|
|
|
||
|
|
!$acc end parallel
|
||
|
|
|
||
|
|
end program foo
|