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