Testsuite log file change

[FX]

A few more, same issue (CRLF terminators)... and nint_2.f90 is  
xfail'ed (like on AIX and ppc-linux) because the libc there doesn't  
handle corner cases of lround().

Thanks to NightStrike for providing detailled testing logs.

FX



2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>

         * gfortran.dg/fseek.f90: Take care of Windows CRLF line
         terminator.

2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>

         * gfortran.dg/streamio_15.f90: Take care of Windows CRLF line
         terminator.

2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>

         * gfortran.dg/nint_2.f90: XFAIL on mingw.


Index: gfortran.dg/fseek.f90
===================================================================
--- gfortran.dg/fseek.f90       (revision 135088)
+++ gfortran.dg/fseek.f90       (working copy)
@@ -3,10 +3,18 @@
  PROGRAM test_fseek
    INTEGER, PARAMETER :: SEEK_SET = 0, SEEK_CUR = 1, SEEK_END = 2,  
fd=10
    INTEGER :: ierr = 0
+  INTEGER :: newline_length

-  ! expected position: 12, one leading blank + 10 + newline
+  ! We first need to determine if a newline is one or two characters
+  open (911,status="scratch")
+  write(911,"()")
+  newline_length = ftell(911)
+  close (911)
+  if (newline_length < 1 .or. newline_length > 2) call abort()
+
+  ! expected position: one leading blank + 10 + newline
    WRITE(fd, *) "1234567890"
-  IF (FTELL(fd) /= 12) CALL abort()
+  IF (FTELL(fd) /= 11 + newline_length) CALL abort()

    ! move backward from current position
    CALL FSEEK(fd, -12, SEEK_CUR, ierr)

Index: gfortran.dg/streamio_15.f90
===================================================================
--- gfortran.dg/streamio_15.f90 (revision 135088)
+++ gfortran.dg/streamio_15.f90 (working copy)
@@ -4,7 +4,15 @@
  program main
    implicit none
    character(len=6) :: c
-  integer :: i
+  integer :: i, newline_length
+
+  open(20,status="scratch",access="stream",form="formatted")
+  write(20,"()")
+  inquire(20,pos=newline_length)
+  newline_length = newline_length - 1
+  if (newline_length < 1 .or. newline_length > 2) call abort
+  close(20)
+
    open(20,file="foo.txt",form="formatted",access="stream")
    write(20,'(A)') '123456'
    write(20,'(A)') 'abcdef'
@@ -15,7 +23,7 @@ program main
    if (c.ne.'123456') call abort
    ! Save the position
    inquire(20,pos=i)
-  if (i.ne.8) call abort
+  if (i.ne.7+newline_length) call abort
    ! Read in the complete line...
    read(20,'(A)') c
    if (c.ne.'abcdef') call abort

Index: gfortran.dg/nint_2.f90
===================================================================
--- gfortran.dg/nint_2.f90      (revision 135088)
+++ gfortran.dg/nint_2.f90      (working copy)
@@ -3,7 +3,7 @@
  ! PR 31202
  ! http://gcc.gnu.org/ml/fortran/2005-04/msg00139.html
  !
-! { dg-do run { xfail powerpc-ibm-aix* powerpc*-*-linux* } }
+! { dg-do run { xfail powerpc-ibm-aix* powerpc*-*-linux* *-*-mingw* } }
    real(kind=8) :: a
    integer(kind=8) :: i1, i2
    real :: b



-- 
François-Xavier Coudert
http://www.homepages.ucl.ac.uk/~uccafco/