Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
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