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

re PR libfortran/31880 ([4.2 only] silent data corruption in gfortran read statement)

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

	PR libfortran/31880
	* io/unix.c (fd_alloc_r_at): Fix calculation of physical offset.

From-SVN: r124588
This commit is contained in:
Jerry DeLisle 2007-05-10 01:01:27 +00:00
parent 4b07779046
commit d5f9d0802c
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2007-05-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/31880
* io/unix.c (fd_alloc_r_at): Fix calculation of physical offset.
2007-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR libfortran/31607

4
libgfortran/io/unix.c
View File

@ -492,7 +492,7 @@ fd_alloc_r_at (unix_stream * s, int *len, gfc_offset where)
if (n < 0)
return NULL;
s->physical_offset = where + n;
s->physical_offset = m + n;
s->active += n;
}
else
@ -503,7 +503,7 @@ fd_alloc_r_at (unix_stream * s, int *len, gfc_offset where)
if (do_read (s, s->buffer + s->active, &n) != 0)
return NULL;
s->physical_offset = where + n;
s->physical_offset = m + n;
s->active += n;
}