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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d621950af75652e9ad35b8a62a7ce335976f1649..ae693229a52cb90cdd0284d3f62ea6fc7fc256e4 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index ed6cf9a07e092b4f1349bd5975ac455daa43c6cf..24b7bc944ed28939d56378c2741714d967629c06 100644 (file)
--- a/gcc/fortran/trans-io.c
+++ b/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++)