Sign in
llvm
/
llvm-archive
/
2d92d8f3eda4630e3e80be62081ca797828d58e1
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
pr17472.f
blob: 4a1ecd937befb7c12c2ab563e2cc862a3bee9771 [
file
] [
log
] [
blame
]
c
{
dg
-
do
run
}
c pr
17472
c test namelist handles arrays
c
Based
on example provided
by
thomas
.
koenig@online
.
de
integer a
(
10
),
ctr
data a
/
1
,
2
,
3
,
4
,
5
,
6
,
7
,
8
,
9
,
10
/
namelist
/
ints
/
a
do
ctr
=
1
,
10
if
(
a
(
ctr
).
ne
.
ctr
)
call abort
()
end
do
end