gcc/testsuite/gfortran.dg/typebound_override_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 54134: [OOP] ICE overriding derived type bound function with allocatable character as result
   4 !
   5 ! Contributed by <koen.poppe@cs.kuleuven.be>
   6
   7 module dtAs
   8   implicit none
   9   type :: A
  10   contains
  11     procedure, nopass :: name => name_A
  12   end type
  13 contains
  14   function name_A() result( name )
  15     character(:), allocatable :: name
  16     name = "name_A"
  17   end function
  18 end module
  19
  20 module dtBs
  21   use dtAs
  22   implicit none
  23   type, extends( A ) :: B
  24   contains
  25     procedure, nopass :: name => name_B
  26   end type
  27 contains
  28   function name_B() result( name )
  29     character(:), allocatable :: name
  30     name = "name_B"
  31   end function
  32 end module