1  /* Verify that 387 fsincos instruction is generated.  */
       2  /* { dg-do compile } */
       3  /* { dg-options "-O -funsafe-math-optimizations -mfpmath=387 -mfancy-math-387" } */
       4  /* { dg-require-effective-target c99_runtime } */
       5  
       6  extern double sin (double);
       7  extern double cos (double);
       8  extern void sincos (double, double *, double *);
       9  
      10  double f1(double x)
      11  {
      12    double s, c;
      13    sincos (x, &s, &c);
      14    return s + c;
      15  }
      16  
      17  double f2(double x)
      18  {
      19    double s, c, tmp;
      20    sincos (x, &s, &tmp);
      21    c = cos (x);
      22    return s + c;
      23  }
      24  
      25  double f3(double x)
      26  {
      27    double s, c, tmp;
      28    sincos (x, &tmp, &c);
      29    s = sin (x);
      30    return s + c;
      31  }
      32  
      33  /* { dg-final { scan-assembler "fsincos" } } */
      34  /* { dg-final { scan-assembler-not "fsin " } } */
      35  /* { dg-final { scan-assembler-not "fcos" } } */
      36  /* { dg-final { scan-assembler-not "call" } } */