Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/fmt_en.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children 1830386684a0
comparison
equal deleted inserted replaced
130:e108057fa461 132:d34655255c78
146 call checkfmt("(en15.3)", -2.34375E-02, " -23.438E-03") 146 call checkfmt("(en15.3)", -2.34375E-02, " -23.438E-03")
147 call checkfmt("(en15.3)", -9.765625E-04," -976.562E-06") 147 call checkfmt("(en15.3)", -9.765625E-04," -976.562E-06")
148 call checkfmt("(en15.6)", -2.9296875E-03," -2.929688E-03") 148 call checkfmt("(en15.6)", -2.9296875E-03," -2.929688E-03")
149 149
150 ! print *, n_tst, n_cnt, n_skip 150 ! print *, n_tst, n_cnt, n_skip
151 if (n_cnt /= 0) call abort 151 if (n_cnt /= 0) STOP 1
152 if (all(.not. l_skip)) write (10, *) "All kinds rounded to nearest" 152 if (all(.not. l_skip)) write (10, *) "All kinds rounded to nearest"
153 close (10) 153 close (10)
154 154
155 contains 155 contains
156 subroutine checkfmt(fmt, x, cmp) 156 subroutine checkfmt(fmt, x, cmp)