| ! { dg-do run } |
| ! { dg-options "-frecord-marker=8" } |
| |
| program main |
| implicit none |
| integer (kind=8) :: i1, i2, i3 |
| |
| open(15,form="UNFORMATTED") |
| write (15) 1_8 |
| close (15) |
| open (15,form="UNFORMATTED",access="DIRECT",recl=8) |
| i1 = 1 |
| i2 = 2 |
| i3 = 3 |
| read (15,rec=1) i1 |
| read (15,rec=2) i2 |
| read (15,rec=3) i3 |
| close (15, status="DELETE") |
| if (i1 /= 8) STOP 1 |
| if (i2 /= 1) STOP 2 |
| if (i3 /= 8) STOP 3 |
| |
| open(15,form="UNFORMATTED",convert="SWAP") |
| write (15) 1_8 |
| close (15) |
| open (15,form="UNFORMATTED",access="DIRECT",convert="SWAP",recl=8) |
| i1 = 1 |
| i2 = 2 |
| i3 = 3 |
| read (15,rec=1) i1 |
| read (15,rec=2) i2 |
| read (15,rec=3) i3 |
| close(15,status="DELETE") |
| if (i1 /= 8) STOP 4 |
| if (i2 /= 1) STOP 5 |
| if (i3 /= 8) STOP 6 |
| |
| end program main |