gcc/testsuite/gfortran.dg/binding_label_tests_31.f90

   1 ! { dg-do compile }
   2 ! PR fortran/66695 - this used to ICE.
   3 ! Original test case by Vladimir Fuka.
   4 module mod
   5   implicit none
   6 contains
   7     integer function F()
   8     end function
   9 end module
  10
  11 module mod_C
  12   use mod
  13   implicit none
  14 contains
  15   subroutine s()  bind(C, name="f")
  16     integer :: x
  17       x = F()
  18   end subroutine
  19 end module