1  /* { dg-do compile } */
       2  /* { dg-options "-Ofast -fdump-tree-optimized" } */
       3  
       4  extern float sinhf (float);
       5  extern float coshf (float);
       6  extern float atanhf (float);
       7  extern float sqrtf (float);
       8  extern double sinh (double);
       9  extern double cosh (double);
      10  extern double atanh (double);
      11  extern double sqrt (double);
      12  extern long double sinhl (long double);
      13  extern long double coshl (long double);
      14  extern long double atanhl (long double);
      15  extern long double sqrtl (long double);
      16  
      17  float __attribute__ ((noinline))
      18  coshatanhf_(float x)
      19  {
      20      float atg = atanhf(x);
      21      return coshf(atg) + atg;
      22  }
      23  
      24  double __attribute__ ((noinline))
      25  cosatan_(double x)
      26  {
      27      double atg = atanh(x);
      28      return cosh(atg) + atg;
      29  }
      30  
      31  long double __attribute__ ((noinline))
      32  cosatanl_(long double x)
      33  {
      34      long double atg = atanhl(x);
      35      return coshl(atg) + atg;
      36  }
      37  
      38  float __attribute__ ((noinline))
      39  sinatanf_(float x)
      40  {
      41      float atg = atanhf(x);
      42      return sinhf(atg) + atg;
      43  }
      44  
      45  double __attribute__ ((noinline))
      46  sinatan_(double x)
      47  {
      48      double atg = atanh(x);
      49      return sinh(atg) + atg;
      50  }
      51  
      52  long double __attribute__ ((noinline))
      53  sinatanl_(long double x)
      54  {
      55      long double atg = atanhl(x);
      56      return sinhl(atg) + atg;
      57  }
      58  
      59  /* There should be calls to sinh, cosh and atanh */
      60  /* { dg-final { scan-tree-dump-times "cosh " "1" "optimized" } } */
      61  /* { dg-final { scan-tree-dump-times "sinh " "1" "optimized" } } */
      62  /* { dg-final { scan-tree-dump-times "atanh " "2" "optimized" } } */
      63  /* { dg-final { scan-tree-dump-times "coshf " "1" "optimized" } } */
      64  /* { dg-final { scan-tree-dump-times "sinhf " "1" "optimized" } } */
      65  /* { dg-final { scan-tree-dump-times "atanhf " "2" "optimized" } } */
      66  /* { dg-final { scan-tree-dump-times "coshl " "1" "optimized" } } */
      67  /* { dg-final { scan-tree-dump-times "sinhl " "1" "optimized" } } */
      68  /* { dg-final { scan-tree-dump-times "atanhl " "2" "optimized" } } */