diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2005-04-23 12:38:08 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-04-23 12:38:08 +0000 |
| commit | bfe936c0c1f9592f72aa5d5f9f84a94ef507b9ec (patch) | |
| tree | ad6a26c4b642d29a0bd377578e9ca91e08eab98a /libgfortran/io/write.c | |
| parent | 528e5d8bce051e65b76342e9942cfd390e4ccbc8 (diff) | |
| download | gcc-bfe936c0c1f9592f72aa5d5f9f84a94ef507b9ec.zip gcc-bfe936c0c1f9592f72aa5d5f9f84a94ef507b9ec.tar.gz gcc-bfe936c0c1f9592f72aa5d5f9f84a94ef507b9ec.tar.bz2 | |
Fix bug that causes testsuite failure in namelist_13.f90 on some systems.
Co-Authored-By: Jerry DeLisle <jvdelisle@verizon.net>
From-SVN: r98610
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index c57ebac..faf8b90 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1477,7 +1477,8 @@ nml_write_obj (namelist_info * obj, index_type offset, ext_name = (char*)get_mem ( (base_name ? strlen (base_name) : 0) + (base ? strlen (base->var_name) : 0) + strlen (obj->var_name) - + obj->var_rank * NML_DIGITS); + + obj->var_rank * NML_DIGITS + + 1); strcpy(ext_name, base_name ? base_name : ""); clen = base ? strlen (base->var_name) : 0; |