OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [equiv_1.f90] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
      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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.