1! { dg-do run } 2! { dg-options "-frecord-marker=4" } 3 4program main 5 implicit none 6 integer(kind=4) :: i1, i2, i3 7 8 open(15,form="UNFORMATTED") 9 write (15) 1_4 10 close (15) 11 open (15,form="UNFORMATTED",access="DIRECT",recl=4) 12 i1 = 1_4 13 i2 = 2_4 14 i3 = 3_4 15 read (15,rec=1) i1 16 read (15,rec=2) i2 17 read (15,rec=3) i3 18 close (15, status="DELETE") 19 if (i1 /= 4_4) STOP 1 20 if (i2 /= 1_4) STOP 2 21 if (i3 /= 4_4) STOP 3 22 23 open(15,form="UNFORMATTED",convert="SWAP") 24 write (15) 1_4 25 close (15) 26 open (15,form="UNFORMATTED",access="DIRECT",convert="SWAP",recl=4) 27 i1 = 1_4 28 i2 = 2_4 29 i3 = 3_4 30 read (15,rec=1) i1 31 read (15,rec=2) i2 32 read (15,rec=3) i3 33 close(15,status="DELETE") 34 if (i1 /= 4_4) STOP 4 35 if (i2 /= 1_4) STOP 5 36 if (i3 /= 4_4) STOP 6 37 38end program main 39