gcc/testsuite/gfortran.dg/binding_label_tests_5.f03

   1 ! { dg-do compile }
   2 module binding_label_tests_5
   3   use, intrinsic :: iso_c_binding
   4
   5   interface
   6      subroutine sub0() bind(c, name='c_sub') ! Odd declaration but perfectly valid
   7      end subroutine sub0
   8
   9      subroutine sub1() bind(c, name='c_sub') ! Ditto.
  10      end subroutine sub1
  11   end interface
  12 end module binding_label_tests_5