gcc/testsuite/gfortran.dg/proc_ptr_comp_40.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 64173: [F03] ICE involving procedure pointer component
   4 !
   5 ! Contributed by Rich Townsend <townsend@astro.wisc.edu>
   6
   7   implicit none
   8
   9   type :: r_magnus_ivp_t
  10      integer, allocatable :: jc
  11      procedure(abscissa_), nopass, pointer :: abscissa_p
  12   end type
  13
  14   abstract interface
  15      function abscissa_ () result (x)
  16        real, allocatable :: x(:)
  17      end function
  18   end interface
  19
  20 contains
  21
  22  function doinit () result (iv)
  23    type(r_magnus_ivp_t) :: iv
  24  end function
  25
  26 end