6 open (20, status='scratch')
7 write (20,'(A)') '/ 10 20 30'
8 write (20,'(A)') '1 2 3 4'
9 write (20,'(A)') '5 6 7 8'
11 read (20,*) (dat(i), i=1,3)
12 if (dat(1).ne.3 .or. dat(2).ne.2 .or. dat(3).ne.1) call abort
14 if (i .ne. 1 .or. j .ne. 2) call abort
16 if (i .ne. 5 .or. j .ne. 6) call abort