blob: 4c15ff40604f7397b28c193e551476f806cbb41e [file] [log] [blame]
/* { dg-do compile } */
/* { dg-options "-fpermissive -O2 -w" } */
extern void sincos(double x, double *sinx, double *cosx);
void apply(void (*f)(double, double *, double *),
double x, double *sinx, double *cosx)
{
f(x, sinx, cosx);
return;
}
void apply_sincos(double x, double **sinx, double **cosx)
{
apply(sincos, x, sinx, cosx);
return;
}