1c { dg-do run }
2c pr 17472
3c test namelist handles arrays
4c Based on example provided by thomas.koenig@online.de
5
6 integer a(10), ctr
7 data a / 1,2,3,4,5,6,7,8,9,10 /
8 namelist /ints/ a
9 do ctr = 1,10
10 if (a(ctr).ne.ctr) call abort ()
11 end do
12 end
13