mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-12-22 23:29:27 +00:00
34 lines
1.1 KiB
C++
34 lines
1.1 KiB
C++
/* Special Conformance Test 4.3.1.1: Ensure default storage class for */
|
|
/* functions declared at the head of a */
|
|
/* block is extern */
|
|
/* */
|
|
/* Other files needed: spc4311.cc - separately compiled file containing */
|
|
/* functions called in this file */
|
|
/* spc4311.exec - EXEC file which separately compiles */
|
|
/* links and runs the files comprising */
|
|
/* this test */
|
|
/* */
|
|
|
|
main ()
|
|
{
|
|
int I1 (char ch);
|
|
double D1 (float f);
|
|
|
|
char c;
|
|
float f;
|
|
|
|
c = I1 ('z');
|
|
if (c != 'Z')
|
|
goto Fail;
|
|
|
|
f = D1 (8.9);
|
|
if (f != 8.0)
|
|
goto Fail;
|
|
|
|
printf ("Passed Special Conformance Test 4.3.1.1\n");
|
|
return;
|
|
|
|
Fail:
|
|
printf ("Failed Special Conformance Test 4.3.1.1\n");
|
|
}
|