Return to bug1.c CVS log

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

Annotation of 43BSDReno/libexec/pcc/ccom.tahoe/tests/bug1.c, revision 1.1.1.1

1.1       root        1: 
                      2: double
                      3: t(a, i)
                      4:         double a;
                      5: {
                      6:         fortran float sin(), cos();
                      7: 
                      8:         switch(i) {
                      9:         case 0:
                     10:                 return (cos(a*(3.141592/180.)));
                     11:         case 1:
                     12:                 return (sin(a*(3.141592/180.)));
                     13:         }
                     14: }
                     15: 
                     16: 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.