gcc/testsuite/gfortran.dg/pr17472.f

   1 c { dg-do run }
   2 c pr 17472
   3 c test namelist handles arrays
   4 c 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