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