From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 23 Feb 2010 05:00:42 +0000 (+0000)
Subject: list_read.c (list_formatted_read_scalar): Remove duplicate code.
X-Git-Tag: releases/gcc-4.5.0~653
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3bbc8462110858ba3b800e2c4274cec9c1c07e34;p=thirdparty%2Fgcc.git

list_read.c (list_formatted_read_scalar): Remove duplicate code.

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

	* io/list_read.c (list_formatted_read_scalar): Remove duplicate code.

From-SVN: r156988
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cd99c41a3e44..0d33a7df2ef2 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	* io/list_read.c (list_formatted_read_scalar): Remove duplicate code.
+
 2010-02-09  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/42996
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index e918b30e697f..afd5b457f75d 100644
--- 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