re PR libfortran/61049 (NIST test FM906 fails)

2014-05-06  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/61049
	* io/list_read.c (list_formatted_read_scalar): Use eat_separator
	and delete extraneous code.

From-SVN: r210134

libgfortran/ChangeLog

+2014-05-06  Jerry DeLisle  <jvdelisle@gcc.gnu>
+
+	PR libfortran/61049
+	* io/list_read.c (list_formatted_read_scalar): Use eat_separator
+	and delete extraneous code.
+
 2014-04-30  Tobias Burnus  <burnus@net-b.de>
 
 	* caf/libcaf.h (_gfortran_caf_this_image, _gfortran_caf_num_images):

libgfortran/io/list_read.c

@@ -2054,20 +2054,9 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p,
 	}
       if (is_separator (c))
 	{
-	  /* Found a null value. Do not use eat_separator here otherwise
-	     we will do an extra read from stdin.  */
+	  /* Found a null value.  */
 	  dtp->u.p.repeat_count = 0;
-
-	  /* Set comma_flag.  */
-	  if ((c == ';' 
-	      && dtp->u.p.current_unit->decimal_status == DECIMAL_COMMA)
-	      ||
-	      (c == ','
-	      && dtp->u.p.current_unit->decimal_status == DECIMAL_POINT))
-	    {
-	      dtp->u.p.comma_flag = 1;
-	      goto cleanup;
-	    }
+	  eat_separator (dtp);
 
 	  /* Set end-of-line flag.  */
 	  if (c == '\n' || c == '\r')
@@ -2082,7 +2071,6 @@ list_formatted_read_scalar (st_parameter_dt *dtp, bt type, void *p,
 	  else
 	    goto cleanup;
 	}
-
     }
   else
     {