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