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