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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [builtins-40.c] - Blame information for rev 455

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 that fmod, fmodf, fmodl, drem, dremf and dreml
4
   built-in functions compile.
5
 
6
   Written by Uros Bizjak, 5th May 2004.  */
7
 
8
/* { dg-do compile } */
9
/* { dg-options "-O2 -ffast-math" } */
10
 
11
extern double fmod(double, double);
12
extern double drem(double, double);
13
extern float fmodf(float, float);
14
extern float dremf(float, float);
15
extern long double fmodl(long double, long double);
16
extern long double dreml(long double, long double);
17
 
18
 
19
double test1(double x, double y)
20
{
21
  return fmod(x, y);
22
}
23
 
24
double test2(double x, double y)
25
{
26
  return drem(x, y);
27
}
28
 
29
float test1f(float x, float y)
30
{
31
  return fmodf(x, y);
32
}
33
 
34
float test2f(float x, float y)
35
{
36
  return dremf(x, y);
37
}
38
 
39
long double test1l(long double x, long double y)
40
{
41
  return fmodl(x, y);
42
}
43
 
44
long double test2l(long double x, long double y)
45
{
46
  return dreml(x, y);
47
}

powered by: WebSVN 2.1.0

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