mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-17 20:29:31 +00:00
1 line
817 B
C++
Executable File
1 line
817 B
C++
Executable File
/* 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);
|
|
}
|