arith.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print "1..12\n";
print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
}
# Division (and modulo) of floating point numbers
# seem to be rather sloppy in Cray.
# UVs should behave properly