2 ! { dg-options "-frecord-marker=8" }
6 integer (kind=8) :: i1, i2, i3
8 open(15,form="UNFORMATTED")
11 open (15,form="UNFORMATTED",access="DIRECT",recl=8)
18 close (15, status="DELETE")
19 if (i1 /= 8) call abort
20 if (i2 /= 1) call abort
21 if (i3 /= 8) call abort
23 open(15,form="UNFORMATTED",convert="SWAP")
26 open (15,form="UNFORMATTED",access="DIRECT",convert="SWAP",recl=8)
33 close(15,status="DELETE")
34 if (i1 /= 8) call abort
35 if (i2 /= 1) call abort
36 if (i3 /= 8) call abort