1 ! This file is all about BACKSPACE
8 open (20, status='scratch')
14 if (i .ne. 1) call abort
18 if (i .ne. 1) call abort
22 open (20, status='scratch')
26 if (i .ne. 7) call abort
29 open (20, status='scratch', form='unformatted')
33 if (i .ne. 8) call abort
40 open (3, form='unformatted', status='scratch')
41 write (3) (x(n),n=1,10)
44 read (3) (y(n),n=1,10)
47 if (abs(x(n)-y(n)) > 0.00001) call abort
52 open (3, form='unformatted', status='scratch')
55 write (3) n, (x(n),n=1,10)
60 read (3,end=30,err=90) n, (x(n),n=1,10)
64 if (nr .ne. 5) call abort
71 read(3,end=70,err=90) n, (x(n),n=1,10)
72 if (abs(x(1) - i) .gt. 0.001) call abort