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
