re PR fortran/46010 (I/O: Namelist-reading bug)

2010-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/46010
	* io/list_read.c (nml_parse_qualifier): Add additional conditions for
	setting the end index for loop specification. Fix some whitespace.
	* io/write.c (write_default_char4): Const-ify the source argument.

From-SVN: r165979

libgfortran/ChangeLog

+2010-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/46010
+	* io/list_read.c (nml_parse_qualifier): Add additional conditions for
+	setting the end index for loop specification. Fix some whitespace.
+	* io/write.c (write_default_char4): Const-ify the source argument.
+
 2010-10-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/46007

libgfortran/io/list_read.c

@@ -2106,7 +2106,9 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad,
 		  /*  If -std=f95/2003 or an array section is specified,
 		      do not allow excess data to be processed.  */
 		  if (is_array_section == 1
-		      || !(compile_options.allow_std & GFC_STD_GNU))
+		      || !(compile_options.allow_std & GFC_STD_GNU)
+		      || !dtp->u.p.ionml->touched
+		      || dtp->u.p.ionml->type == BT_DERIVED)
 		    ls[dim].end = ls[dim].start;
 		  else
 		    dtp->u.p.expanded_read = 1;

libgfortran/io/write.c

@@ -65,7 +65,7 @@ memcpy4 (gfc_char4_t *dest, const char *source, int k)
 /* Write out default char4.  */
 
 static void
-write_default_char4 (st_parameter_dt *dtp, gfc_char4_t *source,
+write_default_char4 (st_parameter_dt *dtp, const gfc_char4_t *source,
 		     int src_len, int w_len)
 {
   char *p;