blob: d3e751c3dc5e4b3bd3ccd93e62792dd7dc87ef6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
!
! PR 59023: [4.9 regression] ICE in gfc_search_interface with BIND(C)
!
! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
type t
integer hidden
end type
contains
subroutine bar
type(t) :: toto
interface
integer function helper() bind(c)
end function
end interface
toto = t(helper())
end subroutine
end
|