Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dependency_44.f90 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
comparison
equal
deleted
inserted
replaced
130:e108057fa461 | 132:d34655255c78 |
---|---|
30 y(k,n:4:-1) = y(k,n-1:3:-1) | 30 y(k,n:4:-1) = y(k,n-1:3:-1) |
31 y(k,3) = 0 | 31 y(k,3) = 0 |
32 res2 = y(k,:) | 32 res2 = y(k,:) |
33 ! print *, res1 | 33 ! print *, res1 |
34 ! print *, res2 | 34 ! print *, res2 |
35 if (any(res1 /= res2)) call abort () | 35 if (any(res1 /= res2)) STOP 1 |
36 end program prgm3 | 36 end program prgm3 |