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

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
ec378566 · Daniel Franke · Daniel Franke · 2b28c07a · ec378566 · ec378566
Commit ec378566 authored May 04, 2007 by Daniel Franke Committed by Daniel Franke May 04, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

gcc/fortran/ChangeLog
+4 -0

gcc/fortran/check.c
+1 -1

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
 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.

--- 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;