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

re PR libfortran/23321 (Direct unformatted read beyond EOF cores)

Browse Source 
2005-09-04  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/23321
	* io/transfer.c(data_transfer_init):  Check for a too-large
	record number.  Return if sseek failed.

2005-09-04  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/23321
	* gfortran.dg/direct_io_4.f90:  New test case.

From-SVN: r103835
This commit is contained in:
Thomas Koenig 2005-09-04 20:36:52 +00:00 committed by Thomas Koenig
parent ca59f04b87
commit 0ef6349514
4 changed files with 47 additions and 1 deletions
gcc/testsuite
ChangeLog
gfortran.dg
direct_io_4.f90
libgfortran
ChangeLog
io
transfer.c

5
gcc/testsuite/ChangeLog

@ -1,3 +1,8 @@
2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23321
* gfortran.dg/direct_io_4.f90: New test case.
2005-09-04 Andrew Pinski <pinskia@physics.uc.edu>
Rasmus Hahn <rassahah@neofonie.de>

22
gcc/testsuite/gfortran.dg/direct_io_4.f90 Normal file

@ -0,0 +1,22 @@
! { dg-do run }
! PR 23321 : Running off the end of a file was not detected with direct I/O.
program main
implicit none
integer(kind=1) :: a, b
integer :: ios, i
a = 42
open (unit=10,status="scratch",recl=1,access="direct")
write(10,rec=1) a
read (10,rec=2, iostat=ios) b
if (ios == 0) call abort
read (10, rec=82641, iostat=ios) b ! This used to cause a segfault
if (ios == 0) call abort
read(10, rec=1, iostat=ios) b
if (ios /= 0) call abort
if (a /= b) call abort
end program main

6
libgfortran/ChangeLog

@ -1,3 +1,9 @@
2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23321
* io/transfer.c(data_transfer_init): Check for a too-large
record number. Return if sseek failed.
2005-09-03 Jakub Jelinek <jakub@redhat.com>
* io/read.c (read_x): Take int argument instead of fnode * and

15
libgfortran/io/transfer.c

@ -1160,10 +1160,23 @@ data_transfer_init (int read_flag)
if (g.mode == READING && current_unit->mode == WRITING)
flush(current_unit->s);
/* Check whether the record exists to be read. Only
a partial record needs to exist. */
if (g.mode == READING && (ioparm.rec -1)
* current_unit->recl >= file_length (current_unit->s))
{
generate_error (ERROR_BAD_OPTION, "Non-existing record number");
return;
}
/* Position the file. */
if (sseek (current_unit->s,
(ioparm.rec - 1) * current_unit->recl) == FAILURE)
generate_error (ERROR_OS, NULL);
{
generate_error (ERROR_OS, NULL);
return;
}
}
/* Overwriting an existing sequential file ?