comparison gcc/testsuite/gfortran.dg/pr47614.f @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900 (2018-10-25)
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
31 ar1(i) = d1 31 ar1(i) = d1
32 d1 = d1 + 2.0 32 d1 = d1 + 2.0
33 50 continue 33 50 continue
34 34
35 call sfcpar(ar1,10,d2,d3,d1) 35 call sfcpar(ar1,10,d2,d3,d1)
36 if (d1.ne.10.0) call abort() 36 if (d1.ne.10.0) STOP 1
37 end 37 end