1! { dg-do compile }
2! Check that variable with intent(in) cannot be a member of a namelist
3subroutine namelist_2(x)
4  integer,intent(in) :: x
5  namelist /n/ x
6  read(*,n) ! { dg-error "is INTENT" "" }
7end subroutine namelist_2
8