gcc/testsuite/gfortran.dg/namelist_2.f90

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