2. gmp tests

Start felix section to test/gmp/gmp-1-0.flx[1 /1 ]
     1: #line 121 "./lpsrc/flx_gmp.pak"
     2: #import <flx.flxh>
     3: include "flx_gmp";
     4: open Gmp;
     5: 
     6: {
     7:   val x:mpz = mpz_of_int 99;
     8:   val y:mpz = mpz_of_int 7;
     9:   print x; endl;
    10:   print y; endl;
    11:   print$ x + y; endl;
    12:   print$ x - y; endl;
    13:   print$ x * y; endl;
    14:   print$ x / y; endl;
    15:   print$ x % y; endl;
    16: 
    17:   print$ x == y; endl;
    18:   print$ x != y; endl;
    19:   print$ x < y; endl;
    20:   print$ x <= y; endl;
    21:   print$ x > y; endl;
    22:   print$ x >= y; endl;
    23: 
    24:   print$ lcm (x,y); endl;
    25:   print$ gcd (x,y); endl;
    26:   print$ x /\ y; endl;
    27:   print$ x \/ y; endl;
    28: };
    29: {
    30:   val x:mpq = mpq_of_int 99;
    31:   val y:mpq = mpq_of_int 7;
    32:   print x; endl;
    33:   print y; endl;
    34:   print$ x + y; endl;
    35:   print$ x - y; endl;
    36:   print$ x * y; endl;
    37:   print$ x / y; endl;
    38:   print$ x == y; endl;
    39:   print$ x != y; endl;
    40:   print$ x < y; endl;
    41:   print$ x <= y; endl;
    42:   print$ x > y; endl;
    43:   print$ x >= y; endl;
    44: };
    45: {
    46:   val x:mpf = mpf_of_double 99.0;
    47:   val y:mpf = mpf_of_double 7.0;
    48:   print x; endl;
    49:   print y; endl;
    50:   print$ x + y; endl;
    51:   print$ x - y; endl;
    52:   print$ x * y; endl;
    53:   print$ x / y; endl;
    54:   print$ x == y; endl;
    55:   print$ x != y; endl;
    56:   print$ x < y; endl;
    57:   print$ x <= y; endl;
    58:   print$ x > y; endl;
    59:   print$ x >= y; endl;
    60: };
End felix section to test/gmp/gmp-1-0.flx[1]
Start data section to test/gmp/gmp-1-0.expect[1 /1 ]
     1: 99
     2: 7
     3: 106
     4: 92
     5: 693
     6: 14
     7: 1
     8: false
     9: true
    10: false
    11: false
    12: true
    13: true
    14: 693
    15: 1
    16: 693
    17: 1
    18: 99
    19: 7
    20: 106
    21: 92
    22: 693
    23: 99/7
    24: false
    25: true
    26: false
    27: false
    28: true
    29: true
    30: 99
    31: 7
    32: 106
    33: 92
    34: 693
    35: 14.1429
    36: false
    37: true
    38: false
    39: false
    40: true
    41: true
End data section to test/gmp/gmp-1-0.expect[1]