Merge to HEAD at tree-cleanup-merge-20041024 .

[official-gcc.git] / gcc / testsuite / g77.f-torture / execute / 6367.f

      program testnl
      character*80 line
      dimension a(10),b(10)
      namelist /nl/ a
      data a / 10 * 0.0 /
      data b / 0.,  1.,  1.,  1.,  2.,  2.,  3.,  3.,  3.,  0. /
      data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/
      open(1,status='scratch')
      write(1,'(a)') line
      rewind(1)
      read(1,nl)
      close(1)
      do i = 1, 10
         if (a(i) .ne. b(i)) call abort
      enddo
      end