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

           Summary: gfortran.dg/streamio_16.f90: Fails under MinGW64 -
                    probably \r\n vs \n issue
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: bur...@gcc.gnu.org
                CC: jvdeli...@gcc.gnu.org


On MinGW64, the test case fails as follows:

PASS: gfortran.dg/streamio_16.f90 (test for excess errors)
spawn [open ...]

This application has requested the Runtime to terminate it in an unusual way.


I assume that this is due to the difference between LF and CRLF as the file is
a formatted stream:

  open(50, access="stream", form="formatted")
  write(50, *, pos=1) "Just something "
[...]
  read( 50, *,pos=i)
  inquire(50, access=sAccess, pos=mypos)
  if (mypos.ne.18) call abort

On Linux, the file fort.50 contains:

0000000  sp   J   u   s   t  sp   s   o   m   e   t   h   i   n   g  sp
0000020  nl
0000021

Thus "nl" is at position 17.


As Kai tested: Using "if (mypos.ne.19) call abort" with 19 instead of 18 works
on MinGW64.

Reply via email to