28 lines
356 B
Fortran
28 lines
356 B
Fortran
|
! { 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) STOP 1
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
function func (n) result (rc)
|
||
|
|
!$acc routine
|
||
|
|
integer, intent (in) :: n
|
||
|
|
integer :: rc
|
||
|
|
|
||
|
|
rc = n
|
||
|
|
rc = rc + 1
|
||
|
|
|
||
|
|
end function
|
||
|
|
|
||
|
|
end program
|