?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2009-10-05 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / equiv_5.f90
blob70b458bea61379edeac43af4f0f112bb83c2f2dc
1 ! { dg-do compile }
2 ! PR fortran/25078
3 ! An equivalence statement requires two or more objcets.
4 program a
5 real x
6 equivalence(x) ! { dg-error "two or more objects" }
7 end program a
Mirror of the offical gcc git repository hosted at gcc.gnu.org