This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Testsuite log file change
- From: FX <fxcoudert at gmail dot com>
- To: NightStrike <nightstrike at gmail dot com>
- Cc: Jerry DeLisle <jvdelisle at verizon dot net>, Kai Tietz <ktietz70 at googlemail dot com>, Fortran List <fortran at gcc dot gnu dot org>, GCC Patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 11 May 2008 09:07:40 +0100
- Subject: Re: Testsuite log file change
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:in-reply-to:references:mime-version:content-type:message-id:cc:content-transfer-encoding:from:subject:date:to:x-mailer; bh=YDMd0wBjKmESoxEcR2GKJhmbUx2YeV337EanBrq8bto=; b=d3FUwLYDC608FOYD+rcCR7HwqyxYQ8ksv9kZwMm5Jxt2YVPiI8DDL1hPENqee7vGkvU0LuO/KXy4YGUE0DmWmpEdw/SqmY0QtgBPi8kedeewg2mUfYRoN3O0feY0/dMhBGfsYdJM6J8eIIzgNrLkh932c92WtPgzVk9T5QDQ8sY=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=in-reply-to:references:mime-version:content-type:message-id:cc:content-transfer-encoding:from:subject:date:to:x-mailer; b=i4pOQVDMdJhDmy0RgV2cUbfr4VaCJTmLOUsAZrQiYoH4YoMK7QW6Bt4bqv1FjAwUWTS6ESVYjtzQl8qmoF1fIgcRM60eCKONd0Nccoyhxqql1w+/IRAt+t6RrJuO5uUmpXBYMZlVL/dQPP4WZy/hlS4hj1Nkh1jH5GVyNwNE9Gs=
- References: <b609cb3b0805092349i6d4faccdp4d04dc3f4bc018a8@mail.gmail.com> <8D7A93FF-6BD7-48A0-8553-D203A98CA5FE@gmail.com> <7DB609DF-E856-48FF-B8AD-B64C41A074F8@gmail.com> <b609cb3b0805101233t620f8034g4f5a1ac3b1a77652@mail.gmail.com>
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/