1! { dg-do compile } 2! PR fortran/88205 3subroutine s1 4 real, parameter :: status = 0 5 open (newunit=n, status=status) ! { dg-error "STATUS requires" } 6end 7subroutine s2 8 complex, parameter :: status = 0 9 open (newunit=n, status=status) ! { dg-error "STATUS requires" } 10end 11program p 12 logical, parameter :: status = .false. 13 open (newunit=a, status=status) ! { dg-error "STATUS requires" } 14end 15