1! { dg-do compile }
2! Test of fix to PR19754
3program PR19754_1
4   real x(3,3),y(2,2)
5   x = 1.
6   y = 2.
7   x = x + y ! { dg-error "Shapes for operands at" }
8end program PR19754_1
9
10