Return to fmtst.f CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libI77 / test

Annotation of 43BSDTahoe/usr.lib/libI77/test/fmtst.f, revision 1.1.1.1

1.1       root        1:        real x(8)
                      2:        do 10 i=1,8
                      3:    10  x(i) = i
                      4:        write(*,1000) (i,x(i),i=1,8)
                      5:  1000  format (2("x(",i,")= ",f3.0," feet, "), "ta da")
                      6:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.