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

Reply via email to