1      program testnl
2      character*80 line
3      dimension a(10),b(10)
4      namelist /nl/ a
5      data a / 10 * 0.0 /
6      data b / 0.,  1.,  1.,  1.,  2.,  2.,  3.,  3.,  3.,  0. /
7      data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/
8      open(1,status='scratch')
9      write(1,'(a)') line
10      rewind(1)
11      read(1,nl)
12      close(1)
13      do i = 1, 10
14         if (a(i) .ne. b(i)) call abort
15      enddo
16      end
17