* testsuite/libgomp.fortran/vla7.f90: Add -w to options.
[official-gcc.git] / gcc / testsuite / gcc.dg / unordered-2.c
blob0696d37cfb40c5aeaed6af81e27a53231f83ca1c
1 /* { dg-do link } */
3 void link_error ();
5 int main()
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 ();
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 ();
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 ();
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 ();
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 ();
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 ();
49 return 0;