mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
14 lines
215 B
Fortran
14 lines
215 B
Fortran
|
! { dg-do compile }
|
||
|
|
|
||
|
|
subroutine s
|
||
|
|
integer :: i, j
|
||
|
|
!$acc parallel loop tile(2,3)
|
||
|
|
do i = 1, 10
|
||
|
|
do j = 1, 10
|
||
|
|
do
|
||
|
|
end do
|
||
|
|
end do
|
||
|
|
end do
|
||
|
|
!$acc end parallel loop
|
||
|
|
end subroutine s
|