[Bug fortran/78983] [7 Regression] ICE with CAF-DT with allocatable member

[damian at sourceryinstitute dot org]

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

Damian Rouson <damian at sourceryinstitute dot org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |damian at sourceryinstitute dot or
                   |                            |g

--- Comment #3 from Damian Rouson <damian at sourceryinstitute dot org> ---
Here's a simpler demonstration of two problems this bug report identifies:

module node_module
  implicit none
  type node
    integer, allocatable :: storage
  end type
contains
  subroutine reallocate_node_storage(some_node)
    type(node) :: some_node
    allocate(some_node%storage)  ! needs to generate a call to caf_register
  end subroutine
end module

module caf_module
  use node_module
  type caf
    type(node), allocatable :: array[:]
  end type
contains
  subroutine allocate_storage(this)
    class(caf) :: this
    allocate(this%array[*]) !ICE: no token member initialized for node storage
    call reallocate_node_storage(this%array)
  end subroutine
end module