scanner.c (preprocessor_line): Don't write beyond the end of flag buffer.

	* scanner.c (preprocessor_line): Don't write beyond the end of flag
	buffer.

From-SVN: r102902

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f3384c0dff58bf7b60823dd0ce6bcb0b807c0e65..5257714ee416a76af8fe8304585ad8f962dd28cd 100644 (file)
--- 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 eee3a684fc3ebbdef090ebe28db648154c917296..d71d065527226abe0d7c87268575a30304cedd2e 100644 (file)
--- 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 (;;)
     {