check.c (gfc_check_fseek_sub): Fixed typo.

2007-05-04  Daniel Franke  <franke.daniel@gmail.com>

	* check.c (gfc_check_fseek_sub): Fixed typo.

From-SVN: r124440
This commit is contained in:
Daniel Franke 2007-05-04 14:08:42 -04:00 committed by Daniel Franke
parent 2b28c07aa7
commit ec3785669d
2 changed files with 5 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2007-05-04 Daniel Franke <franke.daniel@gmail.com>
* check.c (gfc_check_fseek_sub): Fixed typo.
2007-05-04 Daniel Franke <franke.daniel@gmail.com>
PR fortran/22539

View File

@ -2488,7 +2488,7 @@ gfc_check_fseek_sub (gfc_expr *unit, gfc_expr *offset, gfc_expr *whence, gfc_exp
return FAILURE;
if (kind_value_check (status, 3, 4) == FAILURE)
return FAILURE
return FAILURE;
if (scalar_check (status, 3) == FAILURE)
return FAILURE;