diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 21becd6e7fdec2b470d3f3cb62d09fc0eb107834..f5cab7463f33ff19a9193cff282010f629d50a2e 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 07c72ae4134ed85daad5b1b936cef6a475801c15..e2bac5a7dccc9f27a9f146f1f2b9a8d0e84a8ef5 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