Return to movrr.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/movrr.f, revision 1.1

1.1     ! root        1:        program bug3
        !             2:        integer i,j,k,l,m,n
        !             3:        i=1
        !             4:        j=2
        !             5:        k=3
        !             6:        l=4
        !             7:        m=5
        !             8:        n=6
        !             9:        do 20 i=1,10
        !            10:        do 10 j=1,10
        !            11:        k=m*j
        !            12:        l=n*i
        !            13:        m=i*k
        !            14:        n=j*l
        !            15: 10     continue
        !            16: 20     continue
        !            17:        stop
        !            18:        end

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