gcc/testsuite/gfortran.dg/pr91942.f90

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