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