From: Jakub Jelinek <jakub@redhat.com>
Date: Tue, 9 Aug 2005 08:08:28 +0000 (+0200)
Subject: scanner.c (preprocessor_line): Don't write beyond the end of flag buffer.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1e39a15138dc15488b5c1acb0469cd0e076fa046;p=gcc.git

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 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 (;;)
     {