111
|
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
|