mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-23 15:01:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/35699 (run-time abort writing zero sized section to direct access file)

Browse Source 
2008-03-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/35699
	* io/transfer.c (write_buf):  Don't pad the record, just return if the
	data is NULL.  (next_record_w): If there are bytes left in the record
	for unformatted direct I/O, pad out the record with zero bytes.

From-SVN: r133699
This commit is contained in:
Jerry DeLisle 2008-03-28 22:13:17 +00:00
parent ad387dad23
commit fc8bc1753d
2 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2008-03-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35699
* io/transfer.c (write_buf): Don't pad the record, just return if the
data is NULL. (next_record_w): If there are bytes left in the record
for unformatted direct I/O, pad out the record with zero bytes.
2008-03-28 Tobias Burnus <burnus@net-b.de>
PR fortran/35721

14
libgfortran/io/transfer.c
View File

@ -639,12 +639,7 @@ write_buf (st_parameter_dt *dtp, void *buf, size_t nbytes)
}
if (buf == NULL && nbytes == 0)
{
char *p;
p = write_block (dtp, dtp->u.p.current_unit->recl);
memset (p, 0, dtp->u.p.current_unit->recl);
return SUCCESS;
}
return SUCCESS;
if (swrite (dtp->u.p.current_unit->s, buf, &nbytes) != 0)
{
@ -2493,6 +2488,13 @@ next_record_w (st_parameter_dt *dtp, int done)
break;
case UNFORMATTED_DIRECT:
if (dtp->u.p.current_unit->bytes_left > 0)
{
length = (int) dtp->u.p.current_unit->bytes_left;
p = salloc_w (dtp->u.p.current_unit->s, &length);
memset (p, 0, length);
}
if (sfree (dtp->u.p.current_unit->s) == FAILURE)
goto io_error;
break;