mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 02:04:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

direct_io_2.f90: New test.

Browse Source 
2004-11-28  Bud Davis  <bdavis9659@comcast.net>

        * gcc/gcc/gfortran.dg/direct_io_2.f90: New test.

        * gcc/libgfortran/io/unix.c (mmap_alloc_w_a): check for a write
	to a location less than the mapped area.

From-SVN: r91426
This commit is contained in:
Bud Davis 2004-11-28 21:14:02 +00:00 committed by Bud Davis
parent 856e49c207
commit 905d47a950
4 changed files with 55 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2004-11-28 Bud Davis <bdavis9659@comcast.net>
* gfortran.dg/direct_io_2.f90: New test.
2004-11-28 Hans-Peter Nilsson <hp@bitrange.com>
PR target/18334

44
gcc/testsuite/gfortran.dg/direct_io_2.f90 Normal file
View File

@ -0,0 +1,44 @@
! { dg-do run }
!
! this testcase derived from NIST test FM413.FOR
! tests writing direct access files in ascending and descending
! REC's.
PROGRAM FM413
IMPLICIT LOGICAL (L)
IMPLICIT CHARACTER*14 (C)
OPEN (7, ACCESS = 'DIRECT', RECL = 80, STATUS='REPLACE' )
IRECN = 13
IREC = 13
DO 4132 I = 1,100
IREC = IREC + 2
IRECN = IRECN + 2
WRITE(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56
4132 CONTINUE
IRECN = 216
IREC = 216
DO 4133 I=1,100
IREC = IREC - 2
IRECN = IRECN - 2
WRITE(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56
4133 CONTINUE
IRECCK = 13
IRECN = 0
IREC = 13
IVCOMP = 0
DO 4134 I = 1,100
IREC = IREC + 2
IRECCK = IRECCK + 2
READ(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56
IF (IRECN .NE. IRECCK) CALL ABORT
4134 CONTINUE
IRECCK = 216
IRECN = 0
IREC = 216
DO 4135 I = 1,100
IREC = IREC - 2
IRECCK = IRECCK - 2
READ(7, REC = IREC) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF,IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56
IF (IRECN .NE. IRECCK) CALL ABORT
4135 CONTINUE
STOP
END

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-11-28 Bud Davis <bdavis9659@comcast.net>
* io/unix.c (mmap_alloc_w_a): check for a write to a location
less than the mapped area.
2004-11-27 Bud Davis <bdavis9659@comcast.net>
PR fortran/18364

3
libgfortran/io/unix.c
View File

@ -667,7 +667,8 @@ mmap_alloc_w_at (unix_stream * s, int *len, gfc_offset where)
}
if ((s->buffer == NULL || s->buffer_offset > where ||
where + *len > s->buffer_offset + s->active) &&
where + *len > s->buffer_offset + s->active ||
where < s->buffer_offset + s->active) &&
mmap_alloc (s, where, len) == FAILURE)
return NULL;