23 lines
651 B
Fortran
23 lines
651 B
Fortran
! { dg-do run }
|
|
! { dg-additional-sources only_clause_main.c }
|
|
module testOnlyClause
|
|
|
|
contains
|
|
subroutine testOnly(cIntPtr) bind(c, name="testOnly")
|
|
use, intrinsic :: iso_c_binding, only: c_ptr, c_int, c_f_pointer
|
|
implicit none
|
|
type(c_ptr), value :: cIntPtr
|
|
integer(c_int), pointer :: f90IntPtr
|
|
|
|
call c_f_pointer(cIntPtr, f90IntPtr)
|
|
|
|
! f90IntPtr coming in has value of -11; this will make it -12
|
|
f90IntPtr = f90IntPtr - 1
|
|
if(f90IntPtr .ne. -12) then
|
|
call abort()
|
|
endif
|
|
end subroutine testOnly
|
|
end module testOnlyClause
|
|
|
|
! { dg-final { cleanup-modules "testonlyclause" } }
|