https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125314
David Binderman <dcb314 at hotmail dot com> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords|needs-reduction |
--- Comment #1 from David Binderman <dcb314 at hotmail dot com> ---
Reduced code seems to be:
module mod
type ty10(ii)
integer,kind::ii=20
character chk
end type
type ty1(i,j)
integer,kind::i=1
integer,kind::j=1
type(ty10) str
end type
contains
function afun()
TYPE(ty1) afun,afun1
entry afun1
afun%str%chk='abc'
end
end