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


1
2
3
4
5
6
7
8
9
10
11
12
13

! { 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