ORCA-C/Tests/Conformance/C4.2.5.1.CC

47 lines
854 B
Plaintext
Raw Normal View History

/* Conformance Test 4.2.5.1: Verification of duplicate extern references */
int a;
extern float F1 (int x, int y);
main ()
{
extern int a;
extern float F1 (int x, int y);
float x;
extern extended G1 (void);
a = (int) F1 (2, 3);
if (a != 5)
goto Fail;
x = (float) G1 ();
if (x != 10.0)
goto Fail;
printf ("Passed Conformance Test 4.2.5.1\n");
return;
Fail:
printf ("Failed Conformance Test 4.2.5.1\n");
}
/*****************************************************************************/
extended G1 (void)
{
extern float F1 (int x, int y);
extern int a;
return (F1 (a, 5));
}
/*****************************************************************************/
float F1 (int x, int y)
{
extern extended G1 (void);
extern int a;
return (float) (x + y);
}