1  /* Copyright (C) 2004 Free Software Foundation.
       2  
       3     Check tan, tanf and tanl built-in functions.
       4  
       5     Written by Uros Bizjak, 7th April 2004.  */
       6  
       7  /* { dg-do compile } */
       8  /* { dg-options "-O2 -ffast-math" } */
       9  
      10  extern double tan(double);
      11  extern float tanf(float);
      12  extern long double tanl(long double);
      13  
      14  
      15  double test1(double x)
      16  {
      17    return tan(x);
      18  }
      19  
      20  float test1f(float x)
      21  {
      22    return tanf(x);
      23  }
      24  
      25  long double test1l(long double x)
      26  {
      27    return tanl(x);
      28  }
      29