Return to bug1.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / libexec / pcc / ccom.tahoe / tests

BSD 4.3reno

double
t(a, i)
        double a;
{
        fortran float sin(), cos();

        switch(i) {
        case 0:
                return (cos(a*(3.141592/180.)));
        case 1:
                return (sin(a*(3.141592/180.)));
        }
}

main() { printf("%g\n", t(90.,0)); }

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