Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/equiv_1.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
rev | line source |
---|---|
111 | 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 |