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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [unordered-2.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 689 jeremybenn 
/* { dg-do link } */
2 
 
3 
void link_error ();
4 
 
5 
int main()
6 
{
7 
  if (__builtin_isgreater(1.0,2.0) != 0)
8 
    link_error ();
9 
  if (__builtin_isgreater(3.0,3.0) != 0)
10 
    link_error ();
11 
  if (__builtin_isgreater(5.0,4.0) == 0)
12 
    link_error ();
13 
 
14 
  if (__builtin_isgreaterequal(1.0,2.0) != 0)
15 
    link_error ();
16 
  if (__builtin_isgreaterequal(3.0,3.0) == 0)
17 
    link_error ();
18 
  if (__builtin_isgreaterequal(5.0,4.0) == 0)
19 
    link_error ();
20 
 
21 
  if (__builtin_isless(1.0,2.0) == 0)
22 
    link_error ();
23 
  if (__builtin_isless(3.0,3.0) != 0)
24 
    link_error ();
25 
  if (__builtin_isless(5.0,4.0) != 0)
26 
    link_error ();
27 
 
28 
  if (__builtin_islessequal(1.0,2.0) == 0)
29 
    link_error ();
30 
  if (__builtin_islessequal(3.0,3.0) == 0)
31 
    link_error ();
32 
  if (__builtin_islessequal(5.0,4.0) != 0)
33 
    link_error ();
34 
 
35 
  if (__builtin_islessgreater(1.0,2.0) == 0)
36 
    link_error ();
37 
  if (__builtin_islessgreater(3.0,3.0) != 0)
38 
    link_error ();
39 
  if (__builtin_islessgreater(5.0,4.0) == 0)
40 
    link_error ();
41 
 
42 
  if (__builtin_isunordered(1.0,2.0) != 0)
43 
    link_error ();
44 
  if (__builtin_isunordered(3.0,3.0) != 0)
45 
    link_error ();
46 
  if (__builtin_isunordered(5.0,4.0) != 0)
47 
    link_error ();
48 
 
49 
  return 0;
50 
}
51 
 

powered by: WebSVN 2.1.0

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