xref: /csrg-svn/old/pcc/ccom.tahoe/tests/bug1.c (revision 44031) 
1*44031Sbostic 
2*44031Sbostic double
t(a,i)3*44031Sbostic t(a, i)
4*44031Sbostic         double a;
5*44031Sbostic {
6*44031Sbostic         fortran float sin(), cos();
7*44031Sbostic 
8*44031Sbostic         switch(i) {
9*44031Sbostic         case 0:
10*44031Sbostic                 return (cos(a*(3.141592/180.)));
11*44031Sbostic         case 1:
12*44031Sbostic                 return (sin(a*(3.141592/180.)));
13*44031Sbostic         }
14*44031Sbostic }
15*44031Sbostic 
main()16*44031Sbostic main() { printf("%g\n", t(90.,0)); }
17