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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e97e60b6ebf3f948013343e360c2c984bbe4b49e..613364dc0988da2b0ede824abe7e3350339d771c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/fseek.f90 b/gcc/testsuite/gfortran.dg/fseek.f90
index 2bf2e0dc8dd6e1d5f86794203fb380473527fe08..2649063ac590c7385d7cee67eaa093afe46f2527 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fseek.f90
+++ b/gcc/testsuite/gfortran.dg/fseek.f90
@@ -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)