gcc/testsuite/gfortran.dg/common_equivalence_2.f

   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