[Patch, fortran] PR45081 - [4.3/4.4/4.5/4.6 Regression] ICE in gfc_conv_array_initializer, at fortran/trans-array.c:4208

[Dominique Dhumieres]

Paul,

While the test case succeeds, the following code still gives an ICE

[macbook] f90/bug% cat pr45081_red_1.f90
  module m
    implicit none
    type t
      integer :: i
    end type t
    type(t), dimension(2), parameter :: a1  = (/ t(1), t(2) /)
    type(t), dimension(2), parameter :: c = spread ( a1(1), 1, 1 )
  end module m
end
[macbook] f90/bug% gfc pr45081_red_1.f90
f951: internal compiler error: in gfc_conv_array_initializer, at fortran/trans-array.c:4333

AFAICT the code is valid (if not, it should not give an ICE). Unless you have an obvious fix,
this hsould not delay the commit: I'll open a new PR for the above test.

Thanks,

Dominique