gcc/testsuite/gfortran.dg/bind_c_procs_2.f90

   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
  11 contains
  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
  22 end