gcc/testsuite/gfortran.dg/dos_eol.f

   1 ! PR libfortran/19678 and PR libfortran/19679
   2 ! { dg-do run }
   3       integer i, j
   4
   5       open (10,status='scratch')
   6       write (10,'(2A)') '1', achar(13)
   7       rewind (10)
   8       read (10,*) i
   9       if (i .ne. 1) call abort
  10       close (10)
  11
  12       open (10,status='scratch')
  13       write (10,'(2A)') '   1', achar(13)
  14       write (10,'(2A)') '   2', achar(13)
  15       rewind (10)
  16       read (10,'(I4)') i
  17       read (10,'(I5)') j
  18       if ((i .ne. 1) .or. (j .ne. 2)) call abort
  19       end