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

	PR libfortran/38735
	* gfortran.dg/fmt_bz_bn.f: Update test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143103 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f401ff5..9e7d658 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 b4a1ac3..b24ebab 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