Mercurial > hg > CbC > CbC_gcc
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 |