From: Jerry DeLisle Date: Mon, 5 Jan 2009 22:57:30 +0000 (+0000) Subject: re PR libfortran/38735 ([4.4 Regresssion] Default BLANK= mode for internal units... X-Git-Tag: releases/gcc-4.4.0~1017 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d36e4306a0f3ddbe19c7cb4263d987d150936cda;p=thirdparty%2Fgcc.git re PR libfortran/38735 ([4.4 Regresssion] Default BLANK= mode for internal units is wrong) 2009-01-05 Jerry DeLisle PR libfortran/38735 * gfortran.dg/fmt_bz_bn.f: Update test. From-SVN: r143103 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f401ff5e03a3..9e7d658d7159 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-01-05 Jerry DeLisle + + PR libfortran/38735 + * gfortran.dg/fmt_bz_bn.f: Update test. + 2009-01-05 Dodji Seketeli PR c++/38472 diff --git a/gcc/testsuite/gfortran.dg/fmt_bz_bn.f b/gcc/testsuite/gfortran.dg/fmt_bz_bn.f index b4a1ac349c8a..b24ebab5ee9e 100644 --- a/gcc/testsuite/gfortran.dg/fmt_bz_bn.f +++ b/gcc/testsuite/gfortran.dg/fmt_bz_bn.f @@ -17,7 +17,7 @@ c Test case derived from reporter. if (f .ne. 2003.0) call abort f = 0.0 read (c,'(E11.0)') f - if (f .ne. 2.0020) call abort + if (f .ne. 20.020) call abort f = 0.0 read (c,'(BZ,E11.0)') f if (f .ne. 2.002e10) call abort