2 ! Testing POSITION="APPEND"
6 close (10,status='delete')
10 integer,parameter :: n = 13
11 integer :: i, j, error
17 open (10, file='foo',position='append')
22 open (10,file='foo',status='old')
27 read (10,*,iostat=error) j
29 if (i + 1 /= j) call failed
31 if (i > n + 1) call failed
33 if (i /= n) call failed
34 close (10,status='delete')