Return to fmtst.f CVS log

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

Annotation of 42BSD/usr.lib/libI77/test/fmtst.f, revision 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.