diff options
Diffstat (limited to 'gcc/fortran')
| -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, |