mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-15 22:21:53 +08:00
re PR testsuite/36544 (fseek.f90 does not correctly account for newline lengths)
2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR fortran/36544 * gfortran.dg/fseek.f90: Adjust test conditions for variable newline. From-SVN: r136856
This commit is contained in:
parent
df3e8c80ae
commit
151d752224
@ -1,3 +1,8 @@
|
||||
2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||
|
||||
PR fortran/36544
|
||||
* gfortran.dg/fseek.f90: Adjust test conditions for variable newline.
|
||||
|
||||
2008-06-16 Ira Rosen <irar@il.ibm.com>
|
||||
|
||||
PR tree-optimization/36493
|
||||
|
@ -17,16 +17,16 @@ PROGRAM test_fseek
|
||||
IF (FTELL(fd) /= 11 + newline_length) CALL abort()
|
||||
|
||||
! move backward from current position
|
||||
CALL FSEEK(fd, -12, SEEK_CUR, ierr)
|
||||
CALL FSEEK(fd, -11 - newline_length, SEEK_CUR, ierr)
|
||||
IF (ierr /= 0 .OR. FTELL(fd) /= 0) CALL abort()
|
||||
|
||||
! move to negative position (error)
|
||||
CALL FSEEK(fd, -1, SEEK_SET, ierr)
|
||||
IF (ierr == 0 .OR. FTELL(fd) /= 0) CALL abort()
|
||||
|
||||
! move forward from end (12 + 10)
|
||||
! move forward from end (11 + 10 + newline)
|
||||
CALL FSEEK(fd, 10, SEEK_END, ierr)
|
||||
IF (ierr /= 0 .OR. FTELL(fd) /= 22) CALL abort()
|
||||
IF (ierr /= 0 .OR. FTELL(fd) /= 21 + newline_length) CALL abort()
|
||||
|
||||
! set position (0)
|
||||
CALL FSEEK(fd, 0, SEEK_SET, ierr)
|
||||
|
Loading…
x
Reference in New Issue
Block a user