https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80361

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |NEW

--- Comment #13 from janus at gcc dot gnu.org ---
(In reply to janus from comment #12)
> I managed to boil down the test case to a more compact form, see the
> attached file.

... and finally reduced to the bare minimum:


program main_ut

  implicit none

  type :: prt_spec_expr_t
  end type

  type :: prt_expr_t
     class(prt_spec_expr_t), allocatable :: x
  end type

  type, extends (prt_spec_expr_t) :: prt_spec_list_t
     type(prt_expr_t) :: e
  end type

  class(prt_spec_list_t), allocatable :: y

  allocate (y)
  allocate (prt_spec_list_t :: y%e%x)
  deallocate(y)

end program

Reply via email to