mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 02:34:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug that causes testsuite failure in namelist_13.f90 on some systems.

Browse Source 
Co-Authored-By: Jerry DeLisle <jvdelisle@verizon.net>

From-SVN: r98610
This commit is contained in:
Paul Thomas 2005-04-23 12:38:08 +00:00
parent 528e5d8bce
commit bfe936c0c1
3 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgfortran/ChangeLog
View File

@ -1,3 +1,12 @@
2005-04-18 Paul Thomas <pault@gcc.gnu.org>
Jerry DeLisle <jvdelisle@verizon.net>
* io/write.c (nml_write_obj): Provide 1 more byte for ext_name.
* io/list_read.c (nml_get_obj_data): Put extra brackets in get_mem
call for ext_name. These fix the bug reported by Jerry DeLisle to
the fortran list and are based on his suggested fix.
2005-04-22 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/20074

5
libgfortran/io/list_read.c
View File

@ -2107,8 +2107,9 @@ get_name:
if (component_flag)
{
ext_name = (char*)get_mem (strlen (root_nl->var_name) +
saved_string ? strlen (saved_string) : 0 + 1);
ext_name = (char*)get_mem (strlen (root_nl->var_name)
+ (saved_string ? strlen (saved_string) : 0)
+ 1);
strcpy (ext_name, root_nl->var_name);
strcat (ext_name, saved_string);
nl = find_nml_node (ext_name);

3
libgfortran/io/write.c
View File

@ -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;