[Bug fortran/51434] ICE with scalar init of an array parameter, used in DT default init with transfer

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=51434

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
                 CC|                            |burnus at gcc dot gnu.org
            Summary|internal compiler error     |ICE with scalar init of an
                   |                            |array parameter, used in DT
                   |                            |default init with transfer

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-12-06 08:53:24 UTC ---
Reduced test case. The TYPE is crucial - if "t" is just an initialization to a
module variable, no ICE occurs.

character, parameter :: s(5) = 'a'
type b
  character :: t(5) = transfer('abc  ', s)  ! << ICE
end type
!type(b) :: x
!print *, x%t   ! shall print "abc  "
!print *, s     ! prints successfully "aaaaa"
end

==14250== Invalid read of size 8
==14250==    at 0x51A7CD: gfc_match_data_decl() (decl.c:1589)
==14250==    by 0x55F429: _ZL10match_wordPKcPF5matchvEP5locus.part.3
(parse.c:65)
==14250==    by 0x55FC39: decode_statement() (parse.c:283)

That's the line:
      else if (mpz_cmp (c->ts.u.cl->length->value.integer,
                        c->initializer->ts.u.cl->length->value.integer))
with
  c->initializer->ts.u.cl == NULL