Daily bump.
[official-gcc.git] / gcc / testsuite / gfortran.dg / common_equivalence_3.f
blob6acd46aa3527572e52f6f9e36aaa76ed295a3aac
1 ! { dg-do compile }
2 ! PR fortran/18870
4 program main
5 equivalence (a,c)
6 equivalence (b,c)
7 common /foo/ a
8 common /bar/ b ! { dg-error "equivalenced to another COMMON" }
9 c=3.
10 print *,a
11 print *,b
12 end