diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 21becd6e7fd..f5cab7463f3 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-05  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.dg/pr20755.f: Fixed bad format.
+
 2005-04-05  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/20763
diff --git a/gcc/testsuite/gfortran.dg/pr20755.f b/gcc/testsuite/gfortran.dg/pr20755.f
index 07c72ae4134..e2bac5a7dcc 100644
--- a/gcc/testsuite/gfortran.dg/pr20755.f
+++ b/gcc/testsuite/gfortran.dg/pr20755.f
@@ -6,5 +6,5 @@
       if (s .ne. "    0.00       2.000E-02") call abort
       write (s,2000) 0.01, 0.02
       if (s .ne. "   1.000E-02   2.000E-02") call abort
- 2000 format (1P2G12.3)
+ 2000 format (1PG12.3,G12.3)
       end