1 ! This file is all about BACKSPACE
2 ! { dg
-do run
{ target fd_truncate
} }
8 open
(20, status
='scratch')
22 open
(20, status
='scratch')
29 open
(20, status
='scratch', form
='unformatted')
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) STOP 5
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)
71 read(3,end=70,err
=90) n
, (x
(n
),n
=1,10)
72 if (abs
(x
(1) - i
) .gt
. 0.001) STOP 7