ORCA-C/Tests/Spec.Conform/SPC4633.1.CC

1 line
1.5 KiB
Plaintext
Raw Normal View History

/* File spc4633.1.cc; the second source file which accesses the external */ /* variables defined in the main source file. Part of Special Conformance */ /* Test 4.6.3.3 */ #include <math.h> int ExternTest (void) { int count = 0; struct S { int a; float b; }; union U { int i; long L; }; /* Declare extern pointers */ extern int (*i2Ptr); extern char (*ch2Ptr); extern long (*L2Ptr); extern comp (*c2Ptr); extern float (*f2Ptr); extern double (*d2Ptr); extern extended (*e2Ptr); extern unsigned int (*ui2Ptr); extern unsigned long (*uL2Ptr); extern struct S (*struct2Ptr); extern union U (*union2Ptr ); count++; if (*(i2Ptr) != 8) goto Fail; count++; if (*(ch2Ptr) != 'x') goto Fail; count++; if (*(L2Ptr) != 17) goto Fail; count++; if (*(c2Ptr) != 45000) goto Fail; count++; if (fabs (*(f2Ptr) - 123.456) > 0.0001) goto Fail; count++; if (fabs (*(d2Ptr) - 0.5e10) > 0.0001) goto Fail; count++; if (fabs (*(e2Ptr) - 7.4) > 0.0001) goto Fail; count++; if (*(ui2Ptr) != 10) goto Fail; count++; if (*(uL2Ptr) != 4) goto Fail; count++; if ((struct2Ptr->a != 888) || (fabs (struct2Ptr->b - 8.88) > 0.0001)) goto Fail; count++; if (union2Ptr->i != 7777) goto Fail; return 0; Fail: printf ("Failure in ExternTest: count = %d\n", count); return 1; }