1! { dg-do compile } 2! PR fortran/66380 3! 4subroutine 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 9end subroutine p0 10 11 12subroutine 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 17end subroutine p1 18