mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-11 14:05:19 +08:00
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:
parent
2b28c07aa7
commit
ec3785669d
@ -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
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user