gcc/testsuite/gfortran.dg/binding_label_tests_26a.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 58182: [4.9 Regression] ICE with global binding name used as a FUNCTION
   4 !
   5 ! Contributed by Andrew Bensons <abensonca@gmail.com>
   6 !
   7
   8 module fg
   9 contains
  10   function fffi(f)
  11     interface
  12        function f() bind(c)
  13        end function
  14     end interface
  15   end function
  16 end module