ORCA-C/Tests/Conformance/C9.7.0.1.CC
2017-10-01 17:47:47 -06:00

1 line
4.5 KiB
C++
Executable File

/* Conformance Test 9.7.0.1: Verification of function return types: enum, */
/* pointer to array, pointer to function, struct, */
/* and union */
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
struct S { float f;
extended e; };
union U { double d;
extended e; };
enum E { a, b, c };
/**************************************************************************/
void V1 (void)
{
}
/**************************************************************************/
main ()
{
/* Func1 returns an enumeration E constant. */
static enum E Func1 (char ch, int i, double d, struct S s);
/* Func2 returns a pointer to an array of integers. */
static int ( *Func2 (long L, extended e, enum E e0) ) [];
/* Func3 returns a pointer to a function returning void. */
static void ( *Func3 (union U u, unsigned long ul1) ) ();
/* Func4 returns a struct S. */
static struct S Func4 (extended e, unsigned short s, float f);
/* Func5 returns a union U. */
static union U Func5 (struct S s, double d, char ch, comp c);
extended e = 8.88e-2;
double d = 47.81;
float f = 32.32;
comp c = 222222;
long L = 33769;
char ch = 'k';
int i = 897;
enum E e0 = b;
int (*j)[], (*m)[], k;
unsigned short sh = 0177;
unsigned long ul1 = 0x11001100;
struct S s = { 5.5, 6.6 };
union U u = 4.5;
void (*funcPtr) (void);
e0 = Func1 (ch, i, d, s); /* call functions & test return values */
if (e0 != a)
goto Fail;
m = j = Func2 (L, e, e0);
if (j == NULL)
goto Fail;
for (k = 0; k < 5; k++)
if ((*j)[k] != k)
goto Fail;
free (m);
funcPtr = Func3 (u, ul1);
if (funcPtr != V1)
goto Fail;
s = Func4 (e, sh, f);
if ((fabs(s.f - 2340.0) > 0.01) || (fabs(s.e - (-159.4088)) > 0.001))
goto Fail;
u = Func5 (s, d, ch, c);
if (fabs(u.e - 123.456e+300) > 1e295)
goto Fail;
printf ("Passed Conformance Test 9.7.0.1\n");
return;
Fail:
printf ("Failed Conformance Test 9.7.0.1\n");
}
/**************************************************************************/
static enum E Func1 (char ch, int i, double d, struct S s)
{
d = s.f - 0.5;
if (d != 5.0)
goto Fail;
i += ch;
if (i != 1004)
goto Fail;
return a;
Fail:
printf ("Failure in Conformance Test 9.7.0.1, Func1\n");
exit (-1);
}
/**************************************************************************/
static int ( *Func2 (long L, extended e, enum E e0) ) []
{
int (*i)[], *j, k;
e += ((extended) (L) - (extended) (e0)); /* check passed parameters */
if (fabs(e - 33769.0888) > 0.00001)
goto Fail;
i = (int (*)[]) calloc (5, sizeof (int)); /* create array to return */
if (i == NULL)
goto Fail;
for (j = *i, k = 0; k < 5; k++, j++)
*j = k;
return (i);
Fail:
printf ("Failure in Conformance Test 9.7.0.1, Func2\n");
exit (-1);
}
/**************************************************************************/
static void ( *Func3 (union U u, unsigned long ul1) ) ()
{
extended e;
e = (extended) (u.d) + (extended) (ul1);
if (e != 285217028.5)
goto Fail;
return V1;
Fail:
printf ("Failure in Conformance Test 9.7.0.1, Func3\n");
exit (-1);
}
/**************************************************************************/
static struct S Func4 (extended e, unsigned short s, float f)
{
double d;
struct S *SS;
d = - ((double) (e)) - ((double) (s)) - ((double) (f)); /* test parms */
if (fabs(d - (-159.4088)) > 0.00001)
goto Fail;
/* Create struct to return. */
SS = (struct S *) calloc (1, sizeof (struct S));
if (SS == NULL)
goto Fail;
SS->f = 23.4e+02;
SS->e = d;
return * SS;
Fail:
printf ("Failure in Conformance Test 9.7.0.1, Func4\n");
exit (-1);
}
/**************************************************************************/
static union U Func5 (struct S s, double d, char ch, comp c)
{
extended e;
comp cp;
union U *u;
e = s.f - d; /* test parameters */
if (fabs(e - 2292.19) > 0.01)
goto Fail;
cp = (comp) ch + c;
if (cp != 222329)
goto Fail;
u = (union U *) calloc (1, sizeof (union U)); /* create union to return */
if (u == NULL)
goto Fail;
u->e = 123.456E+300;
return (*u);
Fail:
printf ("Failure in Conformance Test 9.7.0.1, Func5\n");
exit (-1);
}