re PR libfortran/38735 ([4.4 Regresssion] Default BLANK= mode for internal units...

2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 f401ff5e03a3d3d79ccab924ec0b7c5592588400..9e7d658d7159a405d02ee100d89a18061de11b7b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/38735
+       * gfortran.dg/fmt_bz_bn.f: Update test.
+
 2009-01-05  Dodji Seketeli  <dodji@redhat.com>
 
        PR c++/38472

diff --git a/gcc/testsuite/gfortran.dg/fmt_bz_bn.f b/gcc/testsuite/gfortran.dg/fmt_bz_bn.f
index b4a1ac349c8aa1474bbe63d986a9f8b2f99ed5ea..b24ebab5ee9ebcd14d777362b3f04d86dd71f6c5 100644 (file)
--- 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