1
/* Copyright INRIA/ENPC */
5
#include "../machine.h"
15
/* testing Nan returns 1 if a Nan is found and 0 elsewhere */
16
/* should be changed to use a libm isnan function when possible */
18
integer C2F(isanan)(x)
22
return(_isnan(*x)== 1);
24
return((!( *x <= 1.0 )) && (!( *x >= 1.0 )));
35
if ( C2F(isanan)(&z) == 1)
36
fprintf(stdout,"z is a Nan\n");
37
if ( C2F(isanan)(&x) == 1)
38
fprintf(stdout,"x is a Nan\n");
39
if ( C2F(isanan)(&y) == 1)
40
fprintf(stdout,"y is a Nan\n");