aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/bind_c_procs_2.f90
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