
(* These raised Size exceptions *)
fun test1 (r:real) =   Real.toLargeInt IEEEReal.TO_NEAREST r;
fun test2 (r:real) =   Real.toLargeInt IEEEReal.TO_ZERO r;
test1 2.23E34;
test1 2.23E35;
test2 2.23E34;
test2 2.23E35;

Add the test for Real.fromInt that used to raise an exception.
Add the test for Real.fromInt that used to raise an exception.

git-svn-id: 98787b36aaefbae4b30fa755be920954cd25e1e4@1970 ae7d391e-3f74-4a2b-a0db-a8776840fd2a
