1! { dg-do compile }
2! PR fortran/18870
3!
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
13
14
15