| ! { dg-do compile } | |
| ! PR fortran/58989 | |
| ! | |
| program test | |
| real(8), dimension(4,4) :: fluxes | |
| real(8), dimension(2,2,2,2) :: f | |
| integer, dimension(3) :: dmmy | |
| integer, parameter :: indx(4)=(/2,2,2,2/) | |
| fluxes = 1 | |
| dmmy = (/2,2,2/) | |
| f = reshape(fluxes,(/dmmy,2/)) ! Caused an ICE | |
| f = reshape(fluxes,(/2,2,2,2/)) ! Works as expected | |
| f = reshape(fluxes,indx) ! Works as expected | |
| end program test |