Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
namelist_1.f90
blob: ee028dd0e5e6b81cb14e86c3afebcfa151816e0c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Check
that
private
entities
in
public
namelists are rejected
module
namelist_1
public
integer
,
private
::
x
namelist
/
n
/
x
!
{
dg
-
error
"cannot be member of PUBLIC namelist"
""
}
end
module