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