gcc/testsuite/gfortran.dg/proc_ptr_35.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/52542
   4 !
   5 ! Ensure that the procedure myproc is Bind(C).
   6 !
   7 ! Contributed by Mat Cross of NAG
   8 !
   9 interface
  10   subroutine s() bind(c)
  11   end subroutine s
  12 end interface
  13 procedure(s) :: myproc
  14 call myproc()
  15 end
  16 ! { dg-final { scan-assembler-not "myproc_" } }