2 ! PR 34405 - direct access prohibits ENDFILE, BACKSPACE and REWIND
6 character(len=80) :: msg
7 open (95, access="direct", recl=4, status="scratch")
8 write (95,rec=1) 'abcd'
12 backspace (95,iostat=ios,iomsg=msg)
14 msg /= "Cannot BACKSPACE a file opened for DIRECT access") call abort
18 endfile (95,iostat=ios,iomsg=msg)
20 msg /= "Cannot perform ENDFILE on a file opened for DIRECT access") &
25 rewind (95,iostat=ios,iomsg=msg)
27 msg /= "Cannot REWIND a file opened for DIRECT access ") call abort