1! { dg-do run }
2! { dg-options "-fno-inline" }
3
4program main
5    integer :: n
6
7    n = 5
8
9    !$acc parallel copy (n)
10      n = func (n)
11    !$acc end parallel
12
13    if (n .ne. 6) STOP 1
14
15contains
16
17    function func (n) result (rc)
18    !$acc routine
19    integer, intent (in) :: n
20    integer :: rc
21
22    rc = n
23    rc = rc + 1
24
25    end function
26
27end program
28