fmt_t_5.f90: Take care of Windows CRLF line terminator.

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

From-SVN: r135160

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 06bfdf40277a7ba2d0476497e3da8f00a58c198e..8b29d7c98b4e714f3c0c97bf355c01a8df41ca4d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,17 +1,19 @@
-<<<<<<< .mine
+2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       * gfortran.dg/fmt_t_5.f90: Take care of Windows CRLF line
+       terminator.
+
 2008-05-10  Kenneth Zadeck  <zadeck@naturalbridge.com>
 
        PR rtl-optimization/36185
        * g++.dg/opt/pr36185.C
 
-=======
 2008-05-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * write_to_null.f90: Rename to write_to_null.F90.
        * write_to_null.F90: On Windows, "nul" is the equivalent of the
        Unix /dev/null.
 
->>>>>>> .r135158
 2008-05-10  Richard Sandiford  <rdsandiford@googlemail.com>
 
        PR rtl-optimization/33642

diff --git a/gcc/testsuite/gfortran.dg/fmt_t_5.f90 b/gcc/testsuite/gfortran.dg/fmt_t_5.f90
index c472e89b19c8596f523662ecaf31802700cc4fd8..0c27b6aa3eb3fa054a1319de11710567cd12ce37 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_t_5.f90
+++ b/gcc/testsuite/gfortran.dg/fmt_t_5.f90
@@ -12,7 +12,7 @@
       read(10, pos=1) output(1:21)
       if (output(1:21).ne."ab                  x") call abort
       read(10) c
-      if (c.ne.achar(10)) call abort
+      if ((c.ne.achar(10)) .and. (c.ne.achar(13))) call abort
       close (10, status="delete")
  10   format (a2,t1,a1,t2,a1,t20,' x')
       end