BSD 4_3 development

[unix-history] / usr / src / usr.lib / libI77 / test / fmtst.f

       real x(8)
       do 10 i=1,8
  10   x(i) = i
       write(*,1000) (i,x(i),i=1,8)
1000   format (2("x(",i,")= ",f3.0," feet, "), "ta da")
       end