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

1.1     ! root        1: c      subroutine tst14
        !             2:        parameter(ntest=14)
        !             3: c      Standard subroutines
        !             4: 
        !             5:        parameter(eps = 2.0e-7)
        !             6:        if ( iabs(-1) .ne. 1 ) call e(1,ntest)
        !             7:        i= -5
        !             8:        if ( iabs(i) .ne. 5 ) call e(2,ntest)
        !             9:        x=-2.0
        !            10:        if ( abs(x) .ne. 2.0 ) call e(3,ntest)
        !            11:        if ( max(i,4) .ne. 4 ) call e(4,ntest)
        !            12:        if ( min(i,4) .ne. -5 ) call e(5,ntest)
        !            13:        if ( amax1(x,4.0) .ne. 4.0 ) call e(6,ntest)
        !            14:        if ( amin1(x,4.0) .ne. -2.0 ) call e(7,ntest)
        !            15:        if ( ifix(5.2) .ne. 5 ) call e(8,ntest)
        !            16:        if ( abs(float(i)+5.0) .gt. eps ) call e(9,ntest)
        !            17:        if ( abs(ifix(5.2)-5.0) .gt. eps ) call e(14,ntest)
        !            18:        if ( abs(sin(3.1415926536)) .gt. 10*eps ) call e(15,ntest)
        !            19:        if ( abs(exp(1.0)-2.7182818) .gt. 0.0001 ) call e(16,ntest)
        !            20:        if ( abs(alog(exp(1.0))- 1.0) .gt. 3*eps ) call e(17,ntest)
        !            21:        if ( abs(sqrt(25.0)-5.0) .gt. eps ) call e(18,ntest)
        !            22:        if ( abs(atan(1.0) - 3.1415926535/4.0) .gt. 0.0001 ) call e(19,ntest)
        !            23:        if ( abs(alog(atan(1.0)*4) - 1.144729886) .gt. 0.000001 ) call e(20,ntest)
        !            24:        if ( abs(sin(1.0) - 0.841470985 ) .gt. 0.000001 ) call e(21,ntest)
        !            25:        if ( abs(cos(1.0) - 0.540302306) .gt. 0.000001 ) call e(22,ntest)
        !            26:        if ( abs(sqrt(2.0) - 1.4142135623) .gt. 0.000001 ) call e(23,ntest)
        !            27:        if ( abs(sqrt(10.0) - 3.1622776601) .gt. 0.000001 ) call e(24,ntest)
        !            28:        if ( abs(sqrt(1000.0) - 31.622776602) .gt. 0.00001 ) call e(25,ntest)
        !            29:        end

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