gcc/testsuite/gfortran.dg/equiv_1.f90

   1       program broken_equiv
   2       real d (2)        ! { dg-error "Inconsistent equivalence rules" "d" }
   3       real e            ! { dg-error "Inconsistent equivalence rules" "e" }
   4       equivalence (d (1), e), (d (2), e)
   5
   6       real f (2)        ! { dg-error "Inconsistent equivalence rules" "f" }
   7       double precision g (2) ! { dg-error "Inconsistent equivalence rules" "g" }
   8       equivalence (f (1), g (1)), (f (2), g (2)) ! Not standard conforming
   9       end