/* { dg-do compile } */
/* { dg-options "-Ofast -fdump-tree-optimized" } */

extern float sinhf (float);
extern float coshf (float);
extern float atanhf (float);
extern float sqrtf (float);
extern double sinh (double);
extern double cosh (double);
extern double atanh (double);
extern double sqrt (double);
extern long double sinhl (long double);
extern long double coshl (long double);
extern long double atanhl (long double);
extern long double sqrtl (long double);

float __attribute__ ((noinline))
coshatanhf_(float x)
{
    float atg = atanhf(x);
    return coshf(atg) + atg;
}

double __attribute__ ((noinline))
cosatan_(double x)
{
    double atg = atanh(x);
    return cosh(atg) + atg;
}

long double __attribute__ ((noinline))
cosatanl_(long double x)
{
    long double atg = atanhl(x);
    return coshl(atg) + atg;
}

float __attribute__ ((noinline))
sinatanf_(float x)
{
    float atg = atanhf(x);
    return sinhf(atg) + atg;
}

double __attribute__ ((noinline))
sinatan_(double x)
{
    double atg = atanh(x);
    return sinh(atg) + atg;
}

long double __attribute__ ((noinline))
sinatanl_(long double x)
{
    long double atg = atanhl(x);
    return sinhl(atg) + atg;
}

/* There should be calls to sinh, cosh and atanh */
/* { dg-final { scan-tree-dump-times "cosh " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "sinh " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "atanh " "2" "optimized" } } */
/* { dg-final { scan-tree-dump-times "coshf " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "sinhf " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "atanhf " "2" "optimized" } } */
/* { dg-final { scan-tree-dump-times "coshl " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "sinhl " "1" "optimized" } } */
/* { dg-final { scan-tree-dump-times "atanhl " "2" "optimized" } } */