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')
16 if (i
.ne
. 1) call abort
19 if (i
.ne
. 1) call abort
23 open
(20, status
='scratch')
27 if (i
.ne
. 7) call abort
30 open
(20, status
='scratch', form
='unformatted')
34 if (i
.ne
. 8) call abort
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) call abort
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)
65 if (nr
.ne
. 5) call abort
72 read(3,end=70,err
=90) n
, (x
(n
),n
=1,10)
73 if (abs
(x
(1) - i
) .gt
. 0.001) call abort