diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/check.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 84b9023..20a231f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,9 @@ 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 * intrinsic.c (add_subroutines): Added FSEEK. * intrinsic.h (gfc_resolve_fseek_sub, gfc_check_fseek_sub): New. diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 73192e9..0420329 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -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; |