1! { dg-do run }
2! PR 34405 - direct access prohibits ENDFILE, BACKSPACE and REWIND
3program test
4  implicit none
5  integer :: ios
6  character(len=80) :: msg
7  open (95, access="direct", recl=4, status="scratch")
8  write (95,rec=1) 'abcd'
9
10  ios = 0
11  msg = " "
12  backspace (95,iostat=ios,iomsg=msg)
13  if (ios == 0 .or. &
14       msg /= "Cannot BACKSPACE a file opened for DIRECT access") call abort
15
16  ios = 0
17  msg = " "
18  endfile (95,iostat=ios,iomsg=msg)
19  if (ios == 0 .or. &
20       msg /= "Cannot perform ENDFILE on a file opened for DIRECT access") &
21       call abort
22
23  ios = 0
24  msg = " "
25  rewind (95,iostat=ios,iomsg=msg)
26  if (ios == 0 .or. &
27       msg /= "Cannot REWIND a file opened for DIRECT access ") call abort
28
29  close (95)
30end program test
31
32