ORCA-C/Tests/Conformance/C14.8.0.1.CC

50 lines
940 B
Plaintext
Raw Normal View History

/* Conformance Test 14.8.0.1: Verification of toint function */
#include <ctype.h>
#include <stdio.h>
main ()
{
int i, j;
char ch;
unsigned char uc;
/* toint: returns 0-9 for char in ['0'..'9'] and 10-15 for char in */
/* ['a'..'f'] or ['A'..'F'] */
for (uc = '0', i = 0; i < 10; uc++, i++)
{
j = toint (uc);
if (j != i)
goto Fail;
}
for (ch = 'A', i = 10; ch <= 'F'; ch++, i++)
{
j = toint (ch);
if (j != i)
goto Fail;
}
for (ch = 'a', i = 10; ch <= 'f'; ch++, i++)
{
j = toint (ch);
if (j != i)
goto Fail;
}
for (ch = 'G'; ch <= 'Z'; ch++)
{
j = toint (ch);
if (j != EOF)
goto Fail;
}
printf ("Passed Conformance Test 14.8.0.1\n");
return;
Fail:
printf ("Failed Conformance Test 14.8.0.1\n");
}