As reported by Kai Tietz, the testsuite fails under MinGW64 due to the \r\n vs.
\n line breaks:


Possible patch for ftell_3.f90 (created for PR 43605):

Index: ftell_3.f90
===================================================================
--- ftell_3.f90 (revision 161500)
+++ ftell_3.f90 (working copy)
@@ -15,3 +15,4 @@ program ftell_3
   call ftell(10, i)
-  if(i /= 7) then
+! Expected: On '\n' systems: 7, on \r\n systems: 8
+  if(i /= 7 .and. i /= 8) then
      call abort()
@@ -23,3 +24,4 @@ program ftell_3
   call ftell(10,i)
-  if (i /= 11) then
+! Expected: On '\n' systems: 11, on \r\n systems: 13
+  if (i /= 11 .and. i /= 13) then
      call abort()


-- 
           Summary: I/O testsuite failures: \r\n vs \n -
                    gfortran.dg/ftell_3.f90
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44697

Reply via email to