gcc/testsuite/gfortran.dg/typebound_call_28.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 80766: [7/8 Regression] [OOP] ICE with type-bound procedure returning an array
   4 !
   5 ! Contributed by Vladimir Fuka <vladimir.fuka@gmail.com>
   6
   7 module m1
   8
   9   type :: base
  10   contains
  11      procedure :: fun
  12   end type
  13
  14   type, extends(base) :: child
  15   end type
  16
  17 contains
  18
  19   function fun(o) result(res)
  20     real :: res(3)
  21     class(base) :: o
  22     res = 0
  23   end function
  24 end module
  25
  26
  27 module m2
  28 contains
  29
  30   subroutine sub(o)
  31     use m1
  32     class(child) :: o
  33     real :: res(3)
  34
  35     res = o%fun()
  36   end subroutine
  37 end module