From ec3785669db733b186105aa3ffe6e356f144b11b Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Fri, 4 May 2007 14:08:42 -0400 Subject: check.c (gfc_check_fseek_sub): Fixed typo. 2007-05-04 Daniel Franke * check.c (gfc_check_fseek_sub): Fixed typo. From-SVN: r124440 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/check.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') 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 + * check.c (gfc_check_fseek_sub): Fixed typo. + +2007-05-04 Daniel Franke + 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; -- cgit v1.1