mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 07:40:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/28339 (gfortran misses a record from a format statement)

Browse Source 
2006-07-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/28339
	* io/transfer.c (next_record_w): Use next_array_record result to set
	END_FILE. (write_block): Test for END_FILE before the next write occurs.
	* io/unit.c (get_internal_unit): Initialize iunit->endfile for internal
	unit.

From-SVN: r115670
This commit is contained in:
Jerry DeLisle 2006-07-22 03:14:27 +00:00
parent 105395ad98
commit 397bc09a65
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgfortran/ChangeLog
View File

@ -1,3 +1,11 @@
2006-07-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28339
* io/transfer.c (next_record_w): Use next_array_record result to set
END_FILE. (write_block): Test for END_FILE before the next write occurs.
* io/init.c (get_internal_unit): Initialize iunit->endfile for internal
unit.
2006-07-19 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/27919

13
libgfortran/io/transfer.c
View File

@ -414,6 +414,9 @@ write_block (st_parameter_dt *dtp, int length)
return NULL;
}
if (is_internal_unit (dtp) && dtp->u.p.current_unit->endfile == AT_ENDFILE)
generate_error (&dtp->common, ERROR_END, NULL);
if ((dtp->common.flags & IOPARM_DT_HAS_SIZE) != 0)
dtp->u.p.size_used += (gfc_offset) length;
@ -2052,9 +2055,6 @@ next_record_w (st_parameter_dt *dtp, int done)
case FORMATTED_SEQUENTIAL:
if (dtp->u.p.current_unit->bytes_left == 0)
break;
if (is_internal_unit (dtp))
{
if (is_array_io (dtp))
@ -2083,7 +2083,9 @@ next_record_w (st_parameter_dt *dtp, int done)
/* Now that the current record has been padded out,
determine where the next record in the array is. */
record = next_array_record (dtp, dtp->u.p.current_unit->ls);
if (record == 0)
dtp->u.p.current_unit->endfile = AT_ENDFILE;
/* Now seek to this record */
record = record * dtp->u.p.current_unit->recl;
@ -2124,6 +2126,9 @@ next_record_w (st_parameter_dt *dtp, int done)
}
else
{
if (dtp->u.p.current_unit->bytes_left == 0)
break;
/* If this is the last call to next_record move to the farthest
position reached in preparation for completing the record.
(for file unit) */

1
libgfortran/io/unit.c
View File

@ -420,6 +420,7 @@ get_internal_unit (st_parameter_dt *dtp)
iunit->flags.form = FORM_FORMATTED;
iunit->flags.pad = PAD_YES;
iunit->flags.status = STATUS_UNSPECIFIED;
iunit->endfile = NO_ENDFILE;
/* Initialize the data transfer parameters. */