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