| ! { dg-do run } | |
| ! { dg-options "-fno-inline" } | |
| program main | |
| integer :: n | |
| n = 5 | |
| !$acc parallel copy (n) | |
| n = func (n) | |
| !$acc end parallel | |
| if (n .ne. 6) call abort | |
| contains | |
| function func (n) result (rc) | |
| !$acc routine | |
| integer, intent (in) :: n | |
| integer :: rc | |
| rc = n | |
| rc = rc + 1 | |
| end function | |
| end program |