summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/namelist_2.f90
blob: b92e459415ce9b8d018f285304e3e27c1ec4c0a1 (plain)
1
2
3
4
5
6
7
! { 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