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

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
0573fa42 · Kaz Kojima · François-Xavier Coudert · fa951694 · 0573fa42 · 0573fa42
Commit 0573fa42 authored Oct 16, 2006 by Kaz Kojima Committed by François-Xavier Coudert Oct 16, 2006
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

gcc/fortran/ChangeLog
+5 -0

gcc/fortran/io.c
+1 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
+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

--- 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,