blob: cd237d386601f3b97ff45012caa17a835d79941f (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! PR fortran/91942
! Code contributed by Gerhard Steinmetz
program p
integer :: i
backspace (iostat=i%kind) ! { dg-error "Expecting a variable at" }
endfile (iostat=i%kind) ! { dg-error "Expecting END PROGRAM" }
flush (iostat=i%kind) ! { dg-error "Expecting a variable at" }
rewind (iostat=i%kind) ! { dg-error "Expecting a variable at" }
end
|
