mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-07 03:29:29 +00:00
91d33b586d
The main changes made to most tests are:
*Declarations always include explicit types, not relying on implicit int. The declaration of main in most test programs is changed to be "int main (void) {...}", adding an explicit return type and a prototype. (There are still some non-prototyped functions, though.)
*Functions are always declared before use, either by including a header or by providing a declaration for the specific function. The latter approach is usually used for printf, to avoid requiring ORCA/C to process stdio.h when compiling every test case (which might make test runs noticeably slower).
*Make all return statements in non-void functions (e.g. main) return a value.
*Avoid some instances of undefined behavior and type errors in printf and scanf calls.
Several miscellaneous bugs are also fixed.
There are still a couple test cases that intentionally rely on the C89 behavior, to ensure it still works.
56 lines
1.3 KiB
C++
56 lines
1.3 KiB
C++
/* Conformance Test 17.8.0.23: Verification of scanf, f e E g G format codes */
|
|
|
|
#include <stdio.h>
|
|
#include <math.h>
|
|
|
|
int main (void)
|
|
{
|
|
float f1, f2, f3, f4;
|
|
double d1, d2, d3;
|
|
int i;
|
|
FILE *f;
|
|
|
|
|
|
/* Redirect standard input from a file */
|
|
|
|
f = fopen ("3/tmp", "wb+"); /* open input file for test */
|
|
if (f == NULL)
|
|
goto Fail1;
|
|
fprintf(f, "23 -3.8E20 - e- +25e- 00002.00008e000049.9");
|
|
fclose(f);
|
|
|
|
stdin = freopen ("3/tmp", "r", stdin);
|
|
if (stdin == NULL)
|
|
goto Fail1;
|
|
|
|
f1 = f2 = f3 = f4 = 1.0;
|
|
d1 = d2 = d3 = 1.0;
|
|
i = scanf ("%*07f %e %E %lg %30lG %17lf%e", &f2, &f3, &d1, &d2,
|
|
&d3, &f4);
|
|
if (i != 6)
|
|
goto Fail;
|
|
if ((fabs(f1 - 1.0) > 0.00001) ||
|
|
(fabs(f2 - (-3.8E20)) > 1e15) ||
|
|
(fabs(f3) > 0.00001) ||
|
|
(fabs(f4 - 9.9) > 0.00001) ||
|
|
(fabs(d1) > 0.00001) ||
|
|
(fabs(d2 - 25.0) > 0.00001) ||
|
|
(fabs(d3 - 2.00008e4) > 0.00001))
|
|
goto Fail;
|
|
|
|
stdin = freopen (".CONSOLE", "r", stdin); /* reset stdin and quit */
|
|
if (stdin == NULL)
|
|
goto Fail1;
|
|
|
|
printf ("Passed Conformance Test 17.8.0.23\n");
|
|
return 0;
|
|
|
|
Fail:
|
|
printf ("Failed Conformance Test 17.8.0.23\n");
|
|
return 0;
|
|
|
|
Fail1:
|
|
printf ("Unable to redirect stdin for Conformance Test 17.8.0.23\n");
|
|
return 0;
|
|
}
|