2010-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / io / list_read.c

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index e918b30..afd5b45 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1735,9 +1735,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, volatile bt type, void *p,
       if (dtp->u.p.input_complete)
        goto cleanup;
 
-      if (dtp->u.p.input_complete)
-       goto cleanup;
-
       if (dtp->u.p.at_eol)
        finish_separator (dtp);
       else