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