1! { dg-do compile }
2! Tests patch for PR29758, which arose from PR29431.  There was no check that there
3! were enough elements in the source to match the shape.
4!
5! Contributed by Paul Thomas  <pault@gcc.gnu.org>
6!
7   real :: a(2,2), b = 1.0, c(3), d(4)
8   a = reshape ([b], [2,2]) ! { dg-error "not enough elements" }
9   a = reshape (c, [2,2])   ! { dg-error "not enough elements" }
10   a = reshape (d, [2,2])
11end
12