1! { dg-do run } 2! { dg-options "-fno-inline" } 3 4 integer, parameter :: n = 10 5 integer :: a(n), i 6 do i = 1, n 7 a(i) = i 8 end do 9 !$acc parallel 10 !$acc loop 11 do i = 1, n 12 call incr(a(i)) 13 end do 14 !$acc end parallel 15 do i = 1, n 16 if (a(i) .ne. (i + 1)) call abort 17 end do 18end 19subroutine incr (x) 20 !$acc routine 21 integer, intent(inout) :: x 22 x = x + 1 23end subroutine incr 24