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