diff options
| author | Kaz Kojima <kkojima@rr.iij4u.or.jp> | 2006-10-16 21:22:04 +0900 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-10-16 12:22:04 +0000 |
| commit | 0573fa421a606a6c76468c8bcd813e02f71283d1 (patch) | |
| tree | 71ff954b3da9837e204638abf9d0b8dd9d0a94ae | |
| parent | fa9516946c7076c902f1fd8e96add1a37d83f8b4 (diff) | |
| download | gcc-0573fa421a606a6c76468c8bcd813e02f71283d1.zip gcc-0573fa421a606a6c76468c8bcd813e02f71283d1.tar.gz gcc-0573fa421a606a6c76468c8bcd813e02f71283d1.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 6d7e4c4..a86d161 100644 --- 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 --- 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, |