io.c (gfc_match_close): Ensure that status is terminated by a NULL element.

	* io.c (gfc_match_close): Ensure that status is terminated by
	a NULL element.

From-SVN: r117785

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 6d7e4c4..a86d161 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-16  Kaz Kojima  <kkojima@rr.iij4u.or.jp>
+
+       * io.c (gfc_match_close): Ensure that status is terminated by
+       a NULL element.
+
 2006-10-16  Tobias Burnus <burnus@net-b.de>
 
        * trans-stmt.c: Fix a typo

diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index b0dfa8f..d489769 100644 (file)
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -1745,7 +1745,7 @@ gfc_match_close (void)
   /* Checks on the STATUS specifier.  */
   if (close->status && close->status->expr_type == EXPR_CONSTANT)
     {
-      static const char * status[] = { "KEEP", "DELETE" };
+      static const char * status[] = { "KEEP", "DELETE", NULL };
 
       if (!compare_to_allowed_values ("STATUS", status, NULL, NULL,
                                      close->status->value.character.string,