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