1! { dg-do compile }
2! PR fortran/18870
3!
4      program main
5      common /foo/ a
6      common /bar/ b
7      equivalence (a,c)
8      equivalence (b,c) ! { dg-error "indirectly overlap COMMON" }
9      c=3.
10      print *,a
11      print *,b
12      end
13
14