diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-16 12:22:04 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-16 12:22:04 +0000 |
| commit | 171810f8ac972587fa6dea27a71d9f2d6950e8ab (patch) | |
| tree | 71ff954b3da9837e204638abf9d0b8dd9d0a94ae /gcc/fortran | |
| parent | cb8e3560d49e7ffc1ab402411261aa1450e7b468 (diff) | |
| download | gcc-171810f8ac972587fa6dea27a71d9f2d6950e8ab.tar.gz | |
* io.c (gfc_match_close): Ensure that status is terminated by
a NULL element.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117785 138bc75d-0d04-0410-961f-82ee72b054a4
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 6d7e4c42b2f..a86d161c776 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 b0dfa8f0311..d4897694bbd 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, |