8 lines
227 B
Fortran
8 lines
227 B
Fortran
|
! { dg-do compile }
|
||
|
! Check that variable with intent(in) cannot be a member of a namelist
|
||
|
subroutine namelist_2(x)
|
||
|
integer,intent(in) :: x
|
||
|
namelist /n/ x
|
||
|
read(*,n) ! { dg-error "is INTENT" "" }
|
||
|
end subroutine namelist_2
|