From d36e4306a0f3ddbe19c7cb4263d987d150936cda Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Mon, 5 Jan 2009 22:57:30 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_bz_bn.f | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 -- 2.47.3