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