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

1.1     ! root        1: c      subroutine tst11
        !             2:        parameter(ntest=11)
        !             3: c      Calls
        !             4: 
        !             5:        integer ack
        !             6:        if ( ack(2,2) .ne. 7 ) call e(1,ntest)
        !             7:        if ( ack(3,3) .ne. 61 ) call e(2,ntest)
        !             8:        if ( ack(3,5) .ne. 253 ) call e(3,ntest)
        !             9:        if ( ack(2,100) .ne. 203 ) call e(4,ntest)
        !            10:        call fib0(10,i)
        !            11:        if ( i .ne. 55 ) call e(5,ntest)
        !            12:        call fib(15,i)
        !            13:        if ( i .ne. 610 ) call e(6,ntest)
        !            14:        call fib(20,i)
        !            15:        if ( i .ne. 6765 ) call e(7,ntest)
        !            16:        end
        !            17: 
        !            18:        integer function ack(m,n)
        !            19:        if ( m.eq.0 )goto 1
        !            20:        if ( n.eq.0 )goto 2
        !            21:        ack = ack(m-1,ack(m,n-1))
        !            22:        return
        !            23: 1      ack = n+1
        !            24:        return
        !            25: 2      ack = ack(m-1,1)
        !            26:        end
        !            27: 
        !            28:        subroutine fib0(a, b)
        !            29: c      Fibonacci nrs
        !            30:        integer a,b,f0,f1
        !            31:        f0=1
        !            32:        f1=1
        !            33:        i=2
        !            34:        entry fib(a, b)
        !            35:        do 4 j=i+1,a
        !            36:        b=f0+f1
        !            37:        f0=f1
        !            38:        f1=b
        !            39: 4      continue
        !            40:        i=a
        !            41:        end

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