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