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