1subroutine par
2  integer ix, jx
3
4  !$acc parallel
5  !$acc loop tile (*,*) ! { dg-error "not enough DO loops for tiled" }
6  do ix = 1, 30
7  end do
8
9  !$acc loop tile (*,*)
10  do ix = 1, 30
11     do jx = 1, ix ! { dg-error "tiled loops don.t form rectangular" }
12     end do
13  end do
14
15  !$acc loop tile (*)
16  do ix = 1, 30
17     do jx = 1, ix
18     end do
19  end do
20  !$acc end parallel
21end subroutine par
22