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

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.