float03.c

开放源码的编译器open watcom 1.6.0版的源代码

#include "fail.h"

double c[] = {
    1.2 - .2,
    .9 + .1,
    .3 * 10,
    3 / .2,
#if __WATCOMC__ > 1060
    .1111111111111111111111111111111 <
    .1111111111111111111111111111112,
    .1111111111111111111111111111111 <=
    .1111111111111111111111111111112,
    .1111111111111111111111111111111 >
    .1111111111111111111111111111112,
    .1111111111111111111111111111111 >=
    .1111111111111111111111111111112,
    .1111111111111111111111111111111 ==
    .1111111111111111111111111111112,
    .1111111111111111111111111111111 !=
    .1111111111111111111111111111112,
#endif
    ( .23 , 1.25 )
};

unsigned n[] = {
    3,
    2,
    6,
    60,
#if __WATCOMC__ > 1060
    1,
    1,
    0,
    0,
    0,
    1,
#endif
    10,
};
unsigned d[] = {
    3,
    2,
    2,
    4,
#if __WATCOMC__ > 1060
    1,
    1,
    1,
    1,
    1,
    1,
#endif
    8,
};

int main() {
    unsigned *nn;
    unsigned *dd;
    double *p;

#if __WATCOMC__ > 1060
    if( (unsigned)34.99999999999999999999999999999999999999 != 34 ) fail(__LINE__);
#endif
    if( ((double)2)/2/2*2*2 != 2 ) fail(__LINE__);
    nn = n;
    dd = d;
    for( p = c; p < &c[ sizeof(c) / sizeof(c[0]) ]; ++p ) {
	if( *p != ( (double)*nn ) / *dd ) {
	    printf( "%f != %u/%u\n", *p, *nn, *dd );
	    fail(__LINE__);
	}
	++nn;
	++dd;
    }
    _PASS;
}