gcc/testsuite/gfortran.dg/reshape_7.f90

   1 ! { dg-do compile }
   2 ! PR fortran/66380
   3 !
   4 subroutine p0
   5    integer, parameter :: sh(2) = [2, 3]
   6    integer, parameter :: &
   7    & a(2,2) = reshape([1, 2, 3, 4], sh)   ! { dg-error "Different shape" }
   8    if (a(1,1) /= 0) call abort
   9 end subroutine p0
  10
  11
  12 subroutine p1
  13    integer, parameter :: sh(2) = [2, 1]
  14    integer, parameter :: &
  15    &  a(2,2) = reshape([1, 2, 3, 4], sh)  ! { dg-error "Different shape" }
  16    if (a(1,1) /= 0) call abort
  17 end subroutine p1