16 lines
467 B
Text
16 lines
467 B
Text
constant inf = 1E400
|
|
constant minus_inf = -inf
|
|
constant nan = 0*inf
|
|
|
|
printf(1,"positive infinity: %f\n", inf)
|
|
printf(1,"negative infinity: %f\n", minus_inf)
|
|
printf(1,"not a number: %f\n", nan)
|
|
|
|
-- some arithmetic
|
|
|
|
printf(1,"+inf + 2.0 = %f\n", inf + 2.0)
|
|
printf(1,"+inf - 10.1 = %f\n", inf - 10.1)
|
|
printf(1,"+inf + -inf = %f\n", inf + minus_inf)
|
|
printf(1,"0.0 * +inf = %f\n", 0.0 * inf)
|
|
printf(1,"NaN + 1.0 = %f\n", nan + 1.0)
|
|
printf(1,"NaN + NaN = %f\n", nan + nan)
|