mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-09 01:29:33 +00:00
1 line
434 B
C++
Executable File
1 line
434 B
C++
Executable File
/* 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");
|
|
}
|