gcc/testsuite/gfortran.dg/proc_ptr_comp_26.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 46841: [F03] ICE on allocating array of procedure pointers
   4 !
   5 ! Contributed by Martien Hulsen <m.a.hulsen@tue.nl>
   6
   7   type vfunc_p
   8     procedure (dum_vfunc), pointer, nopass :: p => null()
   9   end type vfunc_p
  10
  11   type(vfunc_p), allocatable, dimension(:) :: vfunc1
  12
  13   allocate(vfunc1(10))
  14
  15 contains
  16
  17   function dum_vfunc ()
  18     real, dimension(2) :: dum_vfunc
  19     dum_vfunc = 0
  20   end function dum_vfunc
  21
  22 end