blob: f6dd2b42e096820fe431c8d898184800a0927774 [file] [log] [blame]
! { 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