gcc-4_9/gcc/testsuite/gfortran.dg/reshape_6.f90

   1 ! { dg-do compile }
   2 ! PR fortran/58989
   3 !
   4 program 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
  19 end program test