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

["dominiq at lps dot ens.fr" <gcc-bugzilla at gcc dot gnu dot org>]

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

--- Comment #18 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> After several people including have gone down rabbit
> holes trying to fix this bug, I have found a patch!

The patch at https://gcc.gnu.org/ml/fortran/2018-02/msg00181.html fixes several
tests in this PR, but not the ones in comment 14

f951: internal compiler error: Segmentation fault: 11

and comment 15

   end

internal compiler error: in output_constructor_regular_field, at varasm.c:5031

In addition, I don't understand why

  type t
    character :: z
  end type t
  type(t), parameter :: s(5) = t('a')
  type b
      character :: y(5) = transfer('abcde', s(1)%z)
  end type
  type(b) :: zz
  print *, zz
  print *, s(1)%z
  end

prints

 aaaaa
 a

Should not it be

 abcde
 a

?