mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-08 10:35:18 +00:00
50 lines
1.1 KiB
C++
50 lines
1.1 KiB
C++
/* Conformance Test 7.6.4.1: Verification of relational operators */
|
|
|
|
#include <stdio.h>
|
|
|
|
main ()
|
|
{
|
|
int i [3] = { 5, 6, 7 }, *i1ptr = i, *i2ptr = &i [2];
|
|
int j, k, m, n;
|
|
long L = 32777;
|
|
char ch = '!';
|
|
|
|
unsigned int ui = 653;
|
|
unsigned long ul = 895;
|
|
unsigned char uch = 0x8;
|
|
|
|
comp c = 4294;
|
|
float f = 3.5;
|
|
double d = 87.65;
|
|
extended e = 92.33;
|
|
|
|
|
|
/* Compare integers and test expected results. */
|
|
|
|
j = i [0] < i [2]; k = L <= c; m = uch >= ul; n = ch > ch;
|
|
if ((j != 1) || (k != 0) || (m != 0) || (n != 0))
|
|
goto Fail;
|
|
|
|
|
|
/* Compare floating point values and test expected results. */
|
|
|
|
j = f < d; k = e <= e; m = d > e; n = e >= f;
|
|
if ((j != 1) || (k != 1) || (m != 0) || (n != 1))
|
|
goto Fail;
|
|
|
|
|
|
/* Compare pointers and test expected results. */
|
|
|
|
j = i1ptr > i2ptr; k = i2ptr <= i1ptr;
|
|
m = i2ptr > i1ptr; n = i1ptr >= i2ptr;
|
|
if ((j != 0) || (k != 0) || (m != 1) || (n != 0))
|
|
goto Fail;
|
|
|
|
|
|
printf ("Passed Conformance Test 7.6.4.1\n");
|
|
return;
|
|
|
|
Fail:
|
|
printf ("Failed Conformance Test 7.6.4.1\n");
|
|
}
|