OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [builtins-36.c] - Blame information for rev 867

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/* 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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.