1 ! { dg
-do run
{ target fd_truncate
} }
2 ! { dg
-options
"-frecord-marker=4" }
3 ! This file is all about BACKSPACE
4 ! Adapted from gfortran
.dg
/backspace
.f
10 open
(20, status
='scratch')
23 open
(20, status
='scratch')
30 open
(20, status
='scratch', form
='unformatted')
41 open
(3, form
='unformatted', status
='scratch')
42 write (3) (x
(n
),n
=1,10)
45 read (3) (y
(n
),n
=1,10)
48 if (abs
(x
(n
)-y
(n
)) > 0.00001) STOP 5
53 open
(3, form
='unformatted', status
='scratch')
56 write (3) n
, (x
(n
),n
=1,10)
61 read (3,end=30,err
=90) n
, (x
(n
),n
=1,10)
72 read(3,end=70,err
=90) n
, (x
(n
),n
=1,10)
73 if (abs
(x
(1) - i
) .gt
. 0.001) STOP 7