ORCA-C/Tests/Conformance/C7.4.1.1.CC
2017-10-21 18:40:19 -05:00

44 lines
817 B
C++

/* Conformance Test 7.4.1.1: Verification of subscripted expressions */
#include <stdio.h>
#include <math.h>
main ()
{
int i [5] = { 1, 2, 3, 4, 5 }, *iptr = i;
struct S { float f; char ch; } s = { 2.2, 'k' }, *sptr = &s;
static double D (extended e), (*fptr) () = D, d;
if ((iptr++ [2]) != 3)
goto Fail;
if (iptr != &i [1])
goto Fail;
if (i [4] != 5)
goto Fail;
d = (*fptr) (5.5);
if (fabs(d - 11.0) > 0.00001)
goto Fail;
d = fptr (4.5);
if (fabs(d - 9.0) > 0.00001)
goto Fail;
printf ("Passed Conformance Test 7.4.1.1\n");
return;
Fail:
printf ("Failed Conformance Test 7.4.1.1\n");
}
/*****************************************************************************/
static double D (extended e)
{
return (e * 2.0);
}