https://gcc.gnu.org/bugzilla/show_bug.cgi?id=123348
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu.org
--- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Simplified a little with cvise, resulting in the same ICE:
module jstringbuffer
type String
end type
type StringBuffer
type(String), allocatable :: data
contains
procedure total_length
end type
contains
function total_length(self) result(result)
class(StringBuffer) self
integer result
end
function join(self)
class(StringBuffer) self
character, allocatable :: result
integer extra
if (allocated(self%data)) then
allocate (character(self%total_length() + extra) :: result)
end if
end
end
