1! { dg-do compile }
2! PR fortran/25078
3! An equivalence statement requires two or more objcets.
4program a
5  real x
6  equivalence(x) ! { dg-error "two or more objects" }
7end program a
8