Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
reverse-offload-1-aux.f90
blob: 1807f063d5ae9c0fb4a4105d057c3ed87535895b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
{
target skip
-
all
-
targets
}
}
!
Declare
the following
function
in
a separare translation unit
!
to
ensure
it won
't have a device version.
integer function add_3 (x)
implicit none
integer, value :: x
add_3 = x + 3
end function