gcc/testsuite/gfortran.dg/typebound_proc_31.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 59450: [OOP] ICE for type-bound-procedure expression in module procedure interface
   4 !
   5 ! Contributed by <bugs@miller-mohr.de>
   6
   7 module classes
   8
   9   implicit none
  10
  11   type :: base_class
  12    contains
  13      procedure, nopass :: get_num
  14   end type
  15
  16 contains
  17
  18   pure integer function get_num()
  19   end function
  20
  21   function get_array( this ) result(array)
  22     class(base_class), intent(in) :: this
  23     integer, dimension( this%get_num() ) :: array
  24   end function
  25
  26 end module