gcc/testsuite/gfortran.dg/common_equivalence_3.f

   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