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
8module fg
9contains
10  function fffi(f)
11    interface
12       function f() bind(c)
13       end function
14    end interface
15  end function
16end module
17