mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-25 11:54:01 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR libfortran/36131 (wrong IO)

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

	PR libfortran/36131
	* io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
	(next_record_w): Likewise.

From-SVN: r134973
This commit is contained in:
Jerry DeLisle 2008-05-06 04:00:38 +00:00
parent 1aee3ab6f3
commit d0d51277e2
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-05-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/36131
* io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
(next_record_w): Likewise.
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org> 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/35995 PR libfortran/35995

8
libgfortran/io/transfer.c
View File

@ -1303,11 +1303,6 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int len,
else else
read_x (dtp, dtp->u.p.skips); read_x (dtp, dtp->u.p.skips);
} }
else
{
if (dtp->u.p.skips < 0)
flush (dtp->u.p.current_unit->s);
}
break; break;
@ -2682,8 +2677,7 @@ next_record_w (st_parameter_dt *dtp, int done)
if (max_pos > m) if (max_pos > m)
{ {
length = (int) (max_pos - m); length = (int) (max_pos - m);
sseek (dtp->u.p.current_unit->s, p = salloc_w (dtp->u.p.current_unit->s, &length);
file_position (dtp->u.p.current_unit->s) + length);
} }
#ifdef HAVE_CRLF #ifdef HAVE_CRLF
len = 2; len = 2;