Subversion Repositories openrisc_2011-10-31

      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