mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
10 lines
181 B
Fortran
10 lines
181 B
Fortran
! { dg-do compile }
|
|
! Test of fix to PR19754
|
|
program PR19754_1
|
|
real x(3,3),y(2,2)
|
|
x = 1.
|
|
y = 2.
|
|
x = x + y ! { dg-error "Shapes for operands at" }
|
|
end program PR19754_1
|
|
|