2 C { dg-options "-std=legacy" }
4 C PR libfortran/31618 - backspace after an error didn't work.
7 open (21, file="backspace_7.dat", form="unformatted")
13 read (21,err=100,end=100) i,j,k
18 if (i .ne. 4711 .or. j .ne. 4712) call abort
19 close (21,status="delete")