1! { dg-do run }
2! { dg-additional-sources only_clause_main.c }
3module testOnlyClause
4
5  contains
6    subroutine testOnly(cIntPtr) bind(c, name="testOnly")
7      use, intrinsic :: iso_c_binding, only: c_ptr, c_int, c_f_pointer
8      implicit none
9      type(c_ptr), value :: cIntPtr
10      integer(c_int), pointer :: f90IntPtr
11
12      call c_f_pointer(cIntPtr, f90IntPtr)
13
14      ! f90IntPtr coming in has value of -11; this will make it -12
15      f90IntPtr = f90IntPtr - 1
16      if(f90IntPtr .ne. -12) then
17         STOP 1
18      endif
19    end subroutine testOnly
20end module testOnlyClause
21