1! { dg-do compile } 2! PR fortran/58989 3! 4program test 5 6 real(8), dimension(4,4) :: fluxes 7 real(8), dimension(2,2,2,2) :: f 8 integer, dimension(3) :: dmmy 9 integer, parameter :: indx(4)=(/2,2,2,2/) 10 11 fluxes = 1 12 13 dmmy = (/2,2,2/) 14 15 f = reshape(fluxes,(/dmmy,2/)) ! Caused an ICE 16 f = reshape(fluxes,(/2,2,2,2/)) ! Works as expected 17 f = reshape(fluxes,indx) ! Works as expected 18 19end program test 20