! { dg-do compile }
! PR fortran/91942
! Code contributed by Gerhard Steinmetz
program p
   integer :: i
   backspace (iostat=i%kind) ! { dg-error "Expecting a variable at" }
   endfile (iostat=i%kind) ! { dg-error "Expecting END PROGRAM" }
   flush (iostat=i%kind) ! { dg-error "Expecting a variable at" }
   rewind (iostat=i%kind) ! { dg-error "Expecting a variable at" }
end