re PR fortran/25587 (Garbage in output of -fdump-tree-original)

2005-12-28  Andrew Pinski  <pinskia@physics.uc.edu>

        PR fortran/25587
        * trans-io.c (gfc_build_st_parameter): Correct off by one error.

From-SVN: r109120

gcc/fortran/ChangeLog

+2005-12-28  Andrew Pinski  <pinskia@physics.uc.edu>
+
+	PR fortran/25587
+	* trans-io.c (gfc_build_st_parameter): Correct off by one error.
+
 2005-12-28  Rafael Ávila de Espíndola  <rafael.espindola@gmail.com>
 
 	* Make-lang.in: Remove distdir from comment.

gcc/fortran/trans-io.c

@@ -160,7 +160,7 @@ gfc_build_st_parameter (enum ioparam_type ptype, tree *types)
   gcc_assert (len <= sizeof (name) - sizeof ("__st_parameter_"));
   memcpy (name, "__st_parameter_", sizeof ("__st_parameter_"));
   memcpy (name + sizeof ("__st_parameter_") - 1, st_parameter[ptype].name,
-	  len);
+	  len + 1);
   TYPE_NAME (t) = get_identifier (name);
 
   for (type = 0, p = st_parameter_field; type < IOPARM_field_num; type++, p++)