gcc/testsuite/gfortran.dg/pr88205.f90

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