blob: dc858653808b0a0425ffa00a03d21c7e9bf1e82a (
plain)
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
|