Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
namelist_2.f90
blob: b92e459415ce9b8d018f285304e3e27c1ec4c0a1 [
file
] [
log
] [
blame
]
!
{
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