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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 84b90231bfde1b6b25af44dc1276e703c6d545cd..20a231f94fb97edee9b5722e76ad53dc831ef007 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 73192e9fa677e29251ddda244f77748889f109a4..0420329023b0f892ba8b582d08c2ac79d42b24fd 100644 (file)
--- 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;