1! { dg-do compile }
2!
3! PR fortran/37203 - check RESHAPE arguments
4!
5
6  integer, dimension(6) :: source1 = (/ 1, 2, 3, 4, 5, 6 /)
7  integer, dimension(2) :: pad1 = (/ 0, 0/)
8  integer, dimension(2) :: t(2,5)
9  integer :: i
10
11  t = reshape(source1, SHAPE(0), pad1, (/2, 1/))      ! { dg-error "is empty" }
12  t = reshape(source1, (/(i,i=1,32)/), pad1, (/2, 1/))    ! { dg-error "has more than" }
13  t = reshape(source1, (/ 2, -5/), pad1, (/2, 1/))    ! { dg-error "negative element" }
14end
15