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 20