6 print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
12 try 4, -13 % -4 == -1;
16 # Division (and modulo) of floating point numbers
17 # seem to be rather sloppy in Cray.
18 $limit = 1e8 if $^O eq 'unicos';
20 try 5, abs( 13e21 % 4e21 - 1e21) < $limit;
21 try 6, abs(-13e21 % 4e21 - 3e21) < $limit;
22 try 7, abs( 13e21 % -4e21 - -3e21) < $limit;
23 try 8, abs(-13e21 % -4e21 - -1e21) < $limit;