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