From ff7417d4c9b74b85cfb17000718b245b2aa96cb5 Mon Sep 17 00:00:00 2001 From: Andrew Pinski Date: Wed, 28 Dec 2005 19:21:55 +0000 Subject: [PATCH] re PR fortran/25587 (Garbage in output of -fdump-tree-original) 2005-12-28 Andrew Pinski PR fortran/25587 * trans-io.c (gfc_build_st_parameter): Correct off by one error. From-SVN: r109120 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-io.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d621950af756..ae693229a52c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-12-28 Andrew Pinski + + PR fortran/25587 + * trans-io.c (gfc_build_st_parameter): Correct off by one error. + 2005-12-28 Rafael Ávila de Espíndola * Make-lang.in: Remove distdir from comment. diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index ed6cf9a07e09..24b7bc944ed2 100644 --- 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++) -- 2.47.2