or download this
# rounding mode by wrapping (in the rndna XSub)
# the mpfr_round_nearest_away() macro which is
...
if($p_109 > $check) {print "ok 3 - given absence of mpfr_strtofr bug
+\n"}
else {print "not ok 3 - given absence of mpfr_strtofr bug\n"}
}