git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/45710 (Adjust format and padding for WRITE of NAMELIST group to internal file) 

2010-09-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/45710
	* io/write.c (namelist_write_newline): Pad character array internal
	unit records with spaces.

From-SVN: r164543
This commit is contained in:
Jerry DeLisle 2010-09-23 00:53:15 +00:00
parent 7d98865eda
commit 4363c7a151
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2010-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/45710
* io/write.c (namelist_write_newline): Pad character array internal
unit records with spaces.
2010-09-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2010-09-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/45723 PR libfortran/45723

14
libgfortran/io/write.c
View File

@ -1630,6 +1630,20 @@ namelist_write_newline (st_parameter_dt *dtp)
{ {
gfc_offset record; gfc_offset record;
int finished; int finished;
char *p;
int length = dtp->u.p.current_unit->bytes_left;
p = write_block (dtp, length);
if (p == NULL)
return;
if (unlikely (is_char4_unit (dtp)))
{
gfc_char4_t *p4 = (gfc_char4_t *) p;
memset4 (p4, ' ', length);
}
else
memset (p, ' ', length);
/* Now that the current record has been padded out, /* Now that the current record has been padded out,
determine where the next record in the array is. */ determine where the next record in the array is. */