libgomp/testsuite/libgomp.fortran/reverse-offload-1-aux.f90

! { 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