gcc/testsuite/gfortran.dg/filepos1.f90

   1 ! { dg-do compile }
   2 ! PR fortran/66039
   3 !
   4 ! Original code from Gerhard Steinmetz
   5 ! <gerhard dot steinmetz dot fortran at t-online dot de>
   6 subroutine p1
   7    rewind ((     ! { dg-error "Syntax error in REWIND" }
   8    rewind (-     ! { dg-error "Syntax error in REWIND" }
   9 end subroutine p1
  10
  11 subroutine p2
  12    flush ((      ! { dg-error "Syntax error in FLUSH" }
  13    flush (-      ! { dg-error "Syntax error in FLUSH" }
  14 end subroutine p2
  15
  16 subroutine p4
  17    backspace ((   ! { dg-error "Syntax error in BACKSPACE" }
  18    backspace (-   ! { dg-error "Syntax error in BACKSPACE" }
  19 end subroutine p4
  20
  21 subroutine p3
  22    endfile ((     ! { dg-error "Expecting END SUBROUTINE" }
  23    endfile (-     ! { dg-error "Expecting END SUBROUTINE" }
  24 end subroutine p3
  25