Return to dob.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/dob.f, revision 1.1

1.1     ! root        1:        program bug1
        !             2:        integer i,j,k,l,m,n,o
        !             3:        j=2
        !             4:        k=3
        !             5:        l=4
        !             6:        m=5
        !             7:        n=6
        !             8:        o=7
        !             9:        do 20 i=1,k
        !            10:        j=j+1
        !            11:        l=i+1
        !            12:        j=l*j
        !            13:        l=j-1
        !            14:        m=l*i
        !            15:        n=l*m
        !            16:        o=m-l
        !            17:        m=o+3
        !            18:        n=o/m
        !            19:        o=j+n
        !            20:        call dummy(i+1,j+2,l+3)
        !            21:        print 10,i
        !            22: 10     format('Loop pass',i3)
        !            23: 20     continue
        !            24:        stop
        !            25:        end
        !            26: 
        !            27:        subroutine dummy(a,b,c)
        !            28:        integer a,b,c
        !            29:        return
        !            30:        end

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