Subversion Repositories scarts

      program broken_equiv

      real d (2)        ! { dg-error "Inconsistent equivalence rules" "d" }

      real e            ! { dg-error "Inconsistent equivalence rules" "e" }

      equivalence (d (1), e), (d (2), e)

      real f (2)        ! { dg-error "Inconsistent equivalence rules" "f" }

      double precision g (2) ! { dg-error "Inconsistent equivalence rules" "g" }

      equivalence (f (1), g (1)), (f (2), g (2)) ! Not standard conforming

      end