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