OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r117785
This commit is contained in:
Kaz Kojima 2006-10-16 21:22:04 +09:00 committed by François-Xavier Coudert
parent fa9516946c
commit 0573fa421a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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> 2006-10-16 Tobias Burnus <burnus@net-b.de>
* trans-stmt.c: Fix a typo * trans-stmt.c: Fix a typo

2
gcc/fortran/io.c
View File

@ -1745,7 +1745,7 @@ gfc_match_close (void)
/* Checks on the STATUS specifier. */ /* Checks on the STATUS specifier. */
if (close->status && close->status->expr_type == EXPR_CONSTANT) 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, if (!compare_to_allowed_values ("STATUS", status, NULL, NULL,
close->status->value.character.string, close->status->value.character.string,