4 ! reading a direct access record after it was written did
5 ! not always return the correct data.
11 parameter (strlen
= 4)
17 open (UNIT
=iunit
,FORM
='unformatted',ACCESS
='direct',RECL
=strlen
)
18 write (iunit
, rec
=1) 'ABCD'
19 read (iunit
, rec
=1) string
21 if (string
.ne
.'ABCD') call abort
23 open (UNIT
=iunit
,FORM
='unformatted',ACCESS
='direct',STATUS
='scratch',RECL
=strlen
)
24 write (iunit
, rec
=1) 'ABCD'
25 read (iunit
, rec
=1) string
27 if (string
.ne
.'ABCD') call abort