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