13 lines
215 B
Fortran
13 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
|