1  /* Copyright (C) 2004 Free Software Foundation.
       2  
       3     Check sin, sinf, sinl, cos, cosf and cosl built-in functions
       4     eventually compile to sincos, sincosf and sincosl.
       5  
       6     Written by Uros Bizjak, 5th April 2004.  */
       7  
       8  /* { dg-do compile } */
       9  /* { dg-options "-O2 -ffast-math" } */
      10  
      11  extern double sin(double);
      12  extern float sinf(float);
      13  extern long double sinl(long double);
      14  
      15  extern double cos(double);
      16  extern float cosf(float);
      17  extern long double cosl(long double);
      18  
      19  
      20  double test1(double x)
      21  {
      22  	double y1, y2;
      23  
      24  	y1 = sin(x);
      25  	y2 = cos(x);
      26  
      27  	return y1 - y2;
      28  }
      29  
      30  float test1f(float x)
      31  {
      32  	float y1, y2;
      33  
      34  	y1 = sinf(x);
      35  	y2 = cosf(x);
      36  
      37  	return y1 - y2;
      38  }
      39  
      40  long double test1l(long double x)
      41  {
      42  	long double y1, y2;
      43  
      44  	y1 = sinl(x);
      45  	y2 = cosl(x);
      46  
      47  	return y1 - y2;
      48  }
      49  
      50  double test2(double x)
      51  {
      52  	return sin(x);
      53  }
      54  
      55  float test2f(float x)
      56  {
      57  	return sinf(x);
      58  }
      59  
      60  long double test2l(long double x)
      61  {
      62  	return sinl(x);
      63  }
      64  
      65  double test3(double x)
      66  {
      67  	return cos(x);
      68  }
      69  
      70  float test3f(float x)
      71  {
      72  	return cosf(x);
      73  }
      74  
      75  long double test3l(long double x)
      76  {
      77  	return cosl(x);
      78  }
      79