diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f3384c0dff5..5257714ee41 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-08-09  Jakub Jelinek  <jakub@redhat.com>
+
+	* scanner.c (preprocessor_line): Don't write beyond the end of flag
+	buffer.
+
 2005-08-07   Janne Blomqvist <jblomqvi@cc.hut.fi>
 
 	PR fortran/22390 
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index eee3a684fc3..d71d0655272 100644
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -882,7 +882,7 @@ preprocessor_line (char *c)
 
   /* Get flags.  */
 
-  flag[1] = flag[2] = flag[3] = flag[4] = flag[5] = false;
+  flag[1] = flag[2] = flag[3] = flag[4] = false;
 
   for (;;)
     {