Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/dependency_21.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 |
---|---|
15 T(0:n+1 , n+1) = 1.0 | 15 T(0:n+1 , n+1) = 1.0 |
16 T(n+1 , 0:n+1) = 2.0 | 16 T(n+1 , 0:n+1) = 2.0 |
17 | 17 |
18 T(1:n,1)=(T(0:n-1,1)+T(1:n,1+1)+1d0) | 18 T(1:n,1)=(T(0:n-1,1)+T(1:n,1+1)+1d0) |
19 | 19 |
20 if (any (T(1:n,1) .ne. 1d0 )) call abort () | 20 if (any (T(1:n,1) .ne. 1d0 )) STOP 1 |
21 end program laplsolv | 21 end program laplsolv |