libgomp/testsuite/libgomp.oacc-fortran/pr84955.f90

   1 ! { dg-do compile }
   2
   3 subroutine s
   4    integer :: i, j
   5    !$acc parallel loop tile(2,3)
   6    do i = 1, 10
   7       do j = 1, 10
   8          do
   9          end do
  10       end do
  11    end do
  12   !$acc end parallel loop
  13 end subroutine s