Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/dependency_2.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
3 ! arrays were not detected. 3 ! arrays were not detected.
4 ! 4 !
5 real, dimension (3) :: a = (/1., 2., 3./), b, c 5 real, dimension (3) :: a = (/1., 2., 3./), b, c
6 equivalence (a(2), b), (a(1), c) 6 equivalence (a(2), b), (a(1), c)
7 b = a; 7 b = a;
8 if (any(b .ne. (/1., 2., 3./))) call abort () 8 if (any(b .ne. (/1., 2., 3./))) STOP 1
9 b = c 9 b = c
10 if (any(b .ne. (/1., 1., 2./))) call abort () 10 if (any(b .ne. (/1., 1., 2./))) STOP 2
11 end 11 end