mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-08-17 07:28:57 +00:00
31 lines
618 B
C++
31 lines
618 B
C++
/* Conformance Test 3.3.4.1: Verification of ANSI C and ORCA/C predefined */
|
|
/* macros */
|
|
|
|
main ()
|
|
{
|
|
int i, j;
|
|
float x, y;
|
|
char str[80], fname[20] = "C3.3.4.1.CC";
|
|
|
|
#line 10
|
|
if (__LINE__ != 10)
|
|
goto Fail;
|
|
|
|
strcpy(str, __FILE__);
|
|
i = strlen(str)-strlen(fname);
|
|
if ((strcmp (&str[i], fname)) != 0)
|
|
goto Fail;
|
|
|
|
if (__STDC__ == 0)
|
|
goto Fail;
|
|
|
|
if (__ORCAC__ != 1)
|
|
goto Fail;
|
|
|
|
printf ("Passed Conformance Test 3.3.4.1\n");
|
|
return;
|
|
|
|
Fail:
|
|
printf ("Failed Conformance Test 3.3.4.1\n");
|
|
}
|