summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/sinhatanh-1.c
blob: e3a818be5b1b449a0f4614e1de33d5d3aacf064a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
/* { 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);

double __attribute__ ((noinline))
sinhatanh_ (double x)
{
    return sinh (atanh (x));
}

double __attribute__ ((noinline))
coshatanh_ (double x)
{
    return cosh (atanh (x));
}

float __attribute__ ((noinline))
sinhatanhf_(float x)
{
    return sinhf (atanhf (x));
}

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

long double __attribute__ ((noinline))
sinhatanhl_ (long double x)
{
    return sinhl (atanhl (x));
}

long double __attribute__ ((noinline))
coshatanhl_ (long double x)
{
    return coshl (atanhl (x));
}

/* There must be no calls to sinh, cosh, or atanh */
/* { dg-final { scan-tree-dump-not "sinh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "cosh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "atanh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "sinfh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "cosfh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "atanfh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "sinlh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "coslh " "optimized" } } */
/* { dg-final { scan-tree-dump-not "atanlh " "optimized" } } */