diff options
| author | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-28 19:21:55 +0000 |
|---|---|---|
| committer | pinskia <pinskia@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-28 19:21:55 +0000 |
| commit | 6b7a7d7d1215af5922b3fc3feb2eef9f3adbf02a (patch) | |
| tree | d96d6f557554c149a542d9fc37e49a9a8e327306 /gcc/fortran/trans-io.c | |
| parent | 0bfcbbf97f372abd36692ef7ddb0097bd42da77c (diff) | |
| download | gcc-6b7a7d7d1215af5922b3fc3feb2eef9f3adbf02a.tar.gz | |
2005-12-28 Andrew Pinski <pinskia@physics.uc.edu>
PR fortran/25587
* trans-io.c (gfc_build_st_parameter): Correct off by one error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109120 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index ed6cf9a07e0..24b7bc944ed 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++) |