mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-10-12 02:23:41 +00:00
1 line
434 B
Plaintext
1 line
434 B
Plaintext
|
/* Conformance Test 9.2.0.1: Make sure pascal functions can be called. */
#include <stdio.h>
pascal int pasFunc (int i, int j)
{
return i+j;
}
void main(void)
{
if (pasFunc(2,5) != 7) goto Fail;
if (pasFunc(3,0) != 3) goto Fail;
if (pasFunc(8,1) != 9) goto Fail;
if (pasFunc(1,1) != 2) goto Fail;
printf ("Passed Conformance Test 9.2.0.1\n");
return;
Fail:
printf ("Failed Conformance Test 9.2.0.1\n");
}
|