OSDN Git Service

2007-05-04 Daniel Franke <franke.daniel@gmail.com>
authordfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 4 May 2007 18:08:42 +0000 (18:08 +0000)
committerdfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 4 May 2007 18:08:42 +0000 (18:08 +0000)
* check.c (gfc_check_fseek_sub): Fixed typo.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124440 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/check.c

index 84b9023..20a231f 100644 (file)
@@ -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.
index 73192e9..0420329 100644 (file)
@@ -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;