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