gcc/testsuite/gfortran.dg/reshape_7.f90

! { dg-do compile }
! PR fortran/66380
!
subroutine p0
   integer, parameter :: sh(2) = [2, 3]
   integer, parameter :: &
   & a(2,2) = reshape([1, 2, 3, 4], sh)   ! { dg-error "not enough elements" }
   if (a(1,1) /= 0) STOP 1
end subroutine p0


subroutine p1
   integer, parameter :: sh(2) = [2, 1]
   integer, parameter :: &
   &  a(2,2) = reshape([1, 2, 3, 4], sh)  ! { dg-error "Different shape" }
   if (a(1,1) /= 0) STOP 2
end subroutine p1