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

1.1     ! root        1: c      subroutine tst10
        !             2:        parameter(ntest=10)
        !             3: c      Assignments
        !             4: 
        !             5:        i=3
        !             6:        j=2
        !             7:        k= -100
        !             8:        l= 1+(i*(j+(i*(j+(i*(j+(i*(3+j*(i*1+j*2)))))))))
        !             9:        if ( l .ne. 1456 ) call e(1,ntest)
        !            10:        l= ((((((((((((((((((((((((((((((((0))))))))))))))))))))))))))))))))
        !            11:        if ( l .ne. 0 ) call e(2,ntest)
        !            12:        l=(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)
        !            13: &      + (((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)*(((i*j)+(3*i)-5) / 10)
        !            14:        if ( l .ne. 2 ) call e(3,ntest)
        !            15: 
        !            16:        l=((j+j) / 4) * ((j+j) / 4) * ((j+j) / 4)* (j / 3 + j / 4 + 3)+
        !            17: &      ((j+j) / 4) * ((j+j) / 4) * ((j+j) / 4)* (j / 3 + j / 4 + 3)
        !            18:        if ( l .ne. 6 ) call e(4,ntest)
        !            19:        i=j*j*j*j*j*j*j*j*j*j*j*j*j*j - 16383
        !            20:        if ( i .ne.1 ) call e(5,ntest)
        !            21:        l=(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i+(i))))))))))))))))
        !            22:        if ( l .ne. 16 ) call e(6,ntest)
        !            23:        l= (((((((((((((((((j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)+j)
        !            24:        if ( l .ne. 34 ) call e(7,ntest)
        !            25:        l= (-(-(-(-(-(-(-(-(-(j))))))))))
        !            26:        if ( l .ne. -2 ) call e(8,ntest)
        !            27: 
        !            28:        x= 0.1
        !            29:        y=0.2
        !            30:        z=0.3
        !            31:        w=(((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
        !            32: &      ((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
        !            33: &      ((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
        !            34: &      ((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0))*
        !            35: &      ((((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)+(((x+y)/z)*2.0)))-1
        !            36:        if ( abs(w-32767) .gt. 0.0001 ) call e(9,ntest)
        !            37: 
        !            38:        i= ifix(100*y+0.5)
        !            39:        if ( i .ne. 20 ) call e(10,ntest)
        !            40:        i= 32767
        !            41:        w=i
        !            42:        if ( w .ne. 32767 ) call e(11,ntest)
        !            43:        end

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