From: Francois-Xavier Coudert Date: Sat, 10 May 2008 20:57:42 +0000 (+0000) Subject: streamio_15.f90: Take care of Windows CRLF line terminator. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e2c7c14dcb12eae1602f0a0c2c1daf0b126aad52;p=gcc.git streamio_15.f90: Take care of Windows CRLF line terminator. * gfortran.dg/streamio_15.f90: Take care of Windows CRLF line terminator. From-SVN: r135162 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 30e7426caa4..79cd88a5871 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-05-10 Francois-Xavier Coudert + + * gfortran.dg/streamio_15.f90: Take care of Windows CRLF line + terminator. + 2008-05-10 Francois-Xavier Coudert * gfortran.dg/fseek.f90: Take care of Windows CRLF line diff --git a/gcc/testsuite/gfortran.dg/streamio_15.f90 b/gcc/testsuite/gfortran.dg/streamio_15.f90 index 09d9a2af1d3..bbe91f1106d 100644 --- a/gcc/testsuite/gfortran.dg/streamio_15.f90 +++ b/gcc/testsuite/gfortran.dg/streamio_15.f90 @@ -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