diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 74228782f57..c98b1d52bba 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-26  Roger Sayle  <roger@eyesopen.com>
+
+	* io.c (format_asterisk): Silence compiler warnings by correcting
+	the number of elements of a "locus" initializer.
+
 2004-05-25  Roger Sayle  <roger@eyesopen.com>
 
 	PR fortran/13912
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 120b44003c4..9e860d84e49 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -31,7 +31,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 
 gfc_st_label format_asterisk =
   { -1, ST_LABEL_FORMAT, ST_LABEL_FORMAT, NULL, 0,
-    {NULL, 0, NULL, NULL}, NULL, NULL};
+    {NULL, NULL}, NULL, NULL};
 
 typedef struct
 {