blob: 6acd46aa3527572e52f6f9e36aaa76ed295a3aac [file] [log] [blame]
! { dg-do compile }
! PR fortran/18870
!
program main
equivalence (a,c)
equivalence (b,c)
common /foo/ a
common /bar/ b ! { dg-error "equivalenced to another COMMON" }
c=3.
print *,a
print *,b
end