PR inline-asm/84742

[official-gcc.git] / gcc / testsuite / gfortran.dg / namelist_2.f90

! { 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