From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
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  <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/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