program builtin_01
! AST only tests
implicit none

inquire(unit=n, opened=inuse)
inquire(UNIT=JOAN, OPENED=LOG_01, NAMED=LOG_02, FORM=CHAR_VAR, IOSTAT=IOS)
inquire(IOLENGTH=IOL) A(1:N)

rewind(s)
rewind(s)
rewind(10)
rewind(err=label, unit=s)
rewind(iunit(13))

backspace(u)
backspace(io_unit)
backspace(10)
backspace(10, IOSTAT=N)
backspace(iunit(13))

endfile(K)
endfile(5)
endfile(k)
endfile(10, iostat=n)
endfile(unit=iout, iostat=ios, iomsg=msg)

end program builtin_01
