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 ! This file must be compiled BEFORE binding_label_tests_26b.f90, which it
   8 ! should be because dejagnu will sort the files.
   9
  10 module fg
  11 contains
  12   function fffi(f)
  13     interface
  14        function f() bind(c)
  15        end function
  16     end interface
  17   end function
  18 end module
  19
  20 ! { dg-final { keep-modules "" } }