gcc/testsuite/g77.f-torture/execute/6367.f

   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