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

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.