gcc/testsuite/gfortran.dg/binding_label_tests_24.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/48858
   4 ! PR fortran/55465
   5 !
   6 ! Was rejected before but it perfectly valid
   7 !
   8 module m
   9   interface
  10     subroutine f() bind(C, name="func")
  11     end subroutine
  12   end interface
  13 contains
  14   subroutine sub()
  15      call f()
  16   end subroutine
  17 end module m
  18
  19 module m2
  20   interface
  21     subroutine g() bind(C, name="func")
  22     end subroutine
  23   end interface
  24 contains
  25   subroutine sub2()
  26      call g()
  27   end subroutine
  28 end module m2