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  <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 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