1! { dg-do run }
2      character(len=4) a
3      open (10, status='scratch')
4      write (10,'(A)') '1\n2'
5      rewind (10)
6      read (10,'(A)') a
7      if (a /= '1\n2') call abort
8      end
9