gcc/testsuite/gfortran.dg/pr91587.f90

   1 ! { dg-do compile }
   2 ! PR fortran/91587
   3 ! Code contributed by Gerhard Steinmetz
   4 program p
   5    backspace(err=!)  ! { dg-error "Invalid value for" }
   6    flush(err=!)      ! { dg-error "Invalid value for" }
   7    rewind(err=!)     ! { dg-error "Invalid value for" }
   8 end
   9
  10 subroutine bar       ! An other matcher runs, and gives a different error.
  11    endfile(err=!)    ! { dg-error "Expecting END" }
  12 end