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