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