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> 6subroutine p1 7 rewind (( ! { dg-error "Syntax error in REWIND" } 8 rewind (- ! { dg-error "Syntax error in REWIND" } 9end subroutine p1 10 11subroutine p2 12 flush (( ! { dg-error "Syntax error in FLUSH" } 13 flush (- ! { dg-error "Syntax error in FLUSH" } 14end subroutine p2 15 16subroutine p4 17 backspace (( ! { dg-error "Syntax error in BACKSPACE" } 18 backspace (- ! { dg-error "Syntax error in BACKSPACE" } 19end subroutine p4 20 21subroutine p3 22 endfile (( ! { dg-error "Expecting END SUBROUTINE" } 23 endfile (- ! { dg-error "Expecting END SUBROUTINE" } 24end subroutine p3 25 26