
my @aa = ();
my @ab = (7);
my @ac = (9, 3, 5);
$v = (" " / "1"); print "not " if $v ne q{0}; print 'ok 1 - (" " / "1") --> ('.$v.")
";
$v = (" " / "2"); print "not " if $v ne q{0}; print 'ok 2 - (" " / "2") --> ('.$v.")
";
$v = (" " / "3"); print "not " if $v ne q{0}; print 'ok 3 - (" " / "3") --> ('.$v.")
";
$v = (" " / "-1"); print "not " if $v ne q{0}; print 'ok 4 - (" " / "-1") --> ('.$v.")
";
$v = (" " / "-2"); print "not " if $v ne q{0}; print 'ok 5 - (" " / "-2") --> ('.$v.")
";
$v = (" " / "-3"); print "not " if $v ne q{0}; print 'ok 6 - (" " / "-3") --> ('.$v.")
";
$v = (" " / ".1"); print "not " if $v ne q{0}; print 'ok 7 - (" " / ".1") --> ('.$v.")
";
$v = (" " / ".2"); print "not " if $v ne q{0}; print 'ok 8 - (" " / ".2") --> ('.$v.")
";
$v = (" " / ".3"); print "not " if $v ne q{0}; print 'ok 9 - (" " / ".3") --> ('.$v.")
";
$v = (" " / "-.1"); print "not " if $v ne q{0}; print 'ok 10 - (" " / "-.1") --> ('.$v.")
";
$v = (" " / "-.2"); print "not " if $v ne q{0}; print 'ok 11 - (" " / "-.2") --> ('.$v.")
";
$v = (" " / "-.3"); print "not " if $v ne q{0}; print 'ok 12 - (" " / "-.3") --> ('.$v.")
";
$v = (" " / "0.1"); print "not " if $v ne q{0}; print 'ok 13 - (" " / "0.1") --> ('.$v.")
";
$v = (" " / "0.2"); print "not " if $v ne q{0}; print 'ok 14 - (" " / "0.2") --> ('.$v.")
";
$v = (" " / "0.3"); print "not " if $v ne q{0}; print 'ok 15 - (" " / "0.3") --> ('.$v.")
";
$v = (" " / "-0.1"); print "not " if $v ne q{0}; print 'ok 16 - (" " / "-0.1") --> ('.$v.")
";
$v = (" " / "-0.2"); print "not " if $v ne q{0}; print 'ok 17 - (" " / "-0.2") --> ('.$v.")
";
$v = (" " / "-0.3"); print "not " if $v ne q{0}; print 'ok 18 - (" " / "-0.3") --> ('.$v.")
";
$v = (" " / "0.1e1"); print "not " if $v ne q{0}; print 'ok 19 - (" " / "0.1e1") --> ('.$v.")
";
$v = (" " / "0.2e1"); print "not " if $v ne q{0}; print 'ok 20 - (" " / "0.2e1") --> ('.$v.")
";
$v = (" " / "0.3e1"); print "not " if $v ne q{0}; print 'ok 21 - (" " / "0.3e1") --> ('.$v.")
";
$v = (" " / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 22 - (" " / "-0.1e1") --> ('.$v.")
";
$v = (" " / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 23 - (" " / "-0.2e1") --> ('.$v.")
";
$v = (" " / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 24 - (" " / "-0.3e1") --> ('.$v.")
";
$v = (" " / "10"); print "not " if $v ne q{0}; print 'ok 25 - (" " / "10") --> ('.$v.")
";
$v = (" " / "20"); print "not " if $v ne q{0}; print 'ok 26 - (" " / "20") --> ('.$v.")
";
$v = (" " / "30"); print "not " if $v ne q{0}; print 'ok 27 - (" " / "30") --> ('.$v.")
";
$v = (" " / "-10"); print "not " if $v ne q{0}; print 'ok 28 - (" " / "-10") --> ('.$v.")
";
$v = (" " / "-20"); print "not " if $v ne q{0}; print 'ok 29 - (" " / "-20") --> ('.$v.")
";
$v = (" " / "-30"); print "not " if $v ne q{0}; print 'ok 30 - (" " / "-30") --> ('.$v.")
";
$v = (" " / .1); print "not " if $v ne q{0}; print 'ok 31 - (" " / .1) --> ('.$v.")
";
$v = (" " / .2); print "not " if $v ne q{0}; print 'ok 32 - (" " / .2) --> ('.$v.")
";
$v = (" " / .3); print "not " if $v ne q{0}; print 'ok 33 - (" " / .3) --> ('.$v.")
";
$v = (" " / -.1); print "not " if $v ne q{0}; print 'ok 34 - (" " / -.1) --> ('.$v.")
";
$v = (" " / -.2); print "not " if $v ne q{0}; print 'ok 35 - (" " / -.2) --> ('.$v.")
";
$v = (" " / -.3); print "not " if $v ne q{0}; print 'ok 36 - (" " / -.3) --> ('.$v.")
";
$v = (" " / 0.1); print "not " if $v ne q{0}; print 'ok 37 - (" " / 0.1) --> ('.$v.")
";
$v = (" " / 0.2); print "not " if $v ne q{0}; print 'ok 38 - (" " / 0.2) --> ('.$v.")
";
$v = (" " / 0.3); print "not " if $v ne q{0}; print 'ok 39 - (" " / 0.3) --> ('.$v.")
";
$v = (" " / -0.1); print "not " if $v ne q{0}; print 'ok 40 - (" " / -0.1) --> ('.$v.")
";
$v = (" " / -0.2); print "not " if $v ne q{0}; print 'ok 41 - (" " / -0.2) --> ('.$v.")
";
$v = (" " / -0.3); print "not " if $v ne q{0}; print 'ok 42 - (" " / -0.3) --> ('.$v.")
";
$v = (" " / 0.1e1); print "not " if $v ne q{0}; print 'ok 43 - (" " / 0.1e1) --> ('.$v.")
";
$v = (" " / 0.2e1); print "not " if $v ne q{0}; print 'ok 44 - (" " / 0.2e1) --> ('.$v.")
";
$v = (" " / 0.3e1); print "not " if $v ne q{0}; print 'ok 45 - (" " / 0.3e1) --> ('.$v.")
";
$v = (" " / -0.1e1); print "not " if $v ne q{0}; print 'ok 46 - (" " / -0.1e1) --> ('.$v.")
";
$v = (" " / -0.2e1); print "not " if $v ne q{0}; print 'ok 47 - (" " / -0.2e1) --> ('.$v.")
";
$v = (" " / -0.3e1); print "not " if $v ne q{0}; print 'ok 48 - (" " / -0.3e1) --> ('.$v.")
";
$v = (" " / 10); print "not " if $v ne q{0}; print 'ok 49 - (" " / 10) --> ('.$v.")
";
$v = (" " / 20); print "not " if $v ne q{0}; print 'ok 50 - (" " / 20) --> ('.$v.")
";
$v = (" " / 30); print "not " if $v ne q{0}; print 'ok 51 - (" " / 30) --> ('.$v.")
";
$v = (" " / -10); print "not " if $v ne q{0}; print 'ok 52 - (" " / -10) --> ('.$v.")
";
$v = (" " / -20); print "not " if $v ne q{0}; print 'ok 53 - (" " / -20) --> ('.$v.")
";
$v = (" " / -30); print "not " if $v ne q{0}; print 'ok 54 - (" " / -30) --> ('.$v.")
";
$v = (" " / @ab); print "not " if $v ne q{0}; print 'ok 55 - (" " / @ab) --> ('.$v.")
";
$v = (" " / @ac); print "not " if $v ne q{0}; print 'ok 56 - (" " / @ac) --> ('.$v.")
";
$v = ("" / "1"); print "not " if $v ne q{0}; print 'ok 57 - ("" / "1") --> ('.$v.")
";
$v = ("" / "2"); print "not " if $v ne q{0}; print 'ok 58 - ("" / "2") --> ('.$v.")
";
$v = ("" / "3"); print "not " if $v ne q{0}; print 'ok 59 - ("" / "3") --> ('.$v.")
";
$v = ("" / "-1"); print "not " if $v ne q{0}; print 'ok 60 - ("" / "-1") --> ('.$v.")
";
$v = ("" / "-2"); print "not " if $v ne q{0}; print 'ok 61 - ("" / "-2") --> ('.$v.")
";
$v = ("" / "-3"); print "not " if $v ne q{0}; print 'ok 62 - ("" / "-3") --> ('.$v.")
";
$v = ("" / ".1"); print "not " if $v ne q{0}; print 'ok 63 - ("" / ".1") --> ('.$v.")
";
$v = ("" / ".2"); print "not " if $v ne q{0}; print 'ok 64 - ("" / ".2") --> ('.$v.")
";
$v = ("" / ".3"); print "not " if $v ne q{0}; print 'ok 65 - ("" / ".3") --> ('.$v.")
";
$v = ("" / "-.1"); print "not " if $v ne q{0}; print 'ok 66 - ("" / "-.1") --> ('.$v.")
";
$v = ("" / "-.2"); print "not " if $v ne q{0}; print 'ok 67 - ("" / "-.2") --> ('.$v.")
";
$v = ("" / "-.3"); print "not " if $v ne q{0}; print 'ok 68 - ("" / "-.3") --> ('.$v.")
";
$v = ("" / "0.1"); print "not " if $v ne q{0}; print 'ok 69 - ("" / "0.1") --> ('.$v.")
";
$v = ("" / "0.2"); print "not " if $v ne q{0}; print 'ok 70 - ("" / "0.2") --> ('.$v.")
";
$v = ("" / "0.3"); print "not " if $v ne q{0}; print 'ok 71 - ("" / "0.3") --> ('.$v.")
";
$v = ("" / "-0.1"); print "not " if $v ne q{0}; print 'ok 72 - ("" / "-0.1") --> ('.$v.")
";
$v = ("" / "-0.2"); print "not " if $v ne q{0}; print 'ok 73 - ("" / "-0.2") --> ('.$v.")
";
$v = ("" / "-0.3"); print "not " if $v ne q{0}; print 'ok 74 - ("" / "-0.3") --> ('.$v.")
";
$v = ("" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 75 - ("" / "0.1e1") --> ('.$v.")
";
$v = ("" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 76 - ("" / "0.2e1") --> ('.$v.")
";
$v = ("" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 77 - ("" / "0.3e1") --> ('.$v.")
";
$v = ("" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 78 - ("" / "-0.1e1") --> ('.$v.")
";
$v = ("" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 79 - ("" / "-0.2e1") --> ('.$v.")
";
$v = ("" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 80 - ("" / "-0.3e1") --> ('.$v.")
";
$v = ("" / "10"); print "not " if $v ne q{0}; print 'ok 81 - ("" / "10") --> ('.$v.")
";
$v = ("" / "20"); print "not " if $v ne q{0}; print 'ok 82 - ("" / "20") --> ('.$v.")
";
$v = ("" / "30"); print "not " if $v ne q{0}; print 'ok 83 - ("" / "30") --> ('.$v.")
";
$v = ("" / "-10"); print "not " if $v ne q{0}; print 'ok 84 - ("" / "-10") --> ('.$v.")
";
$v = ("" / "-20"); print "not " if $v ne q{0}; print 'ok 85 - ("" / "-20") --> ('.$v.")
";
$v = ("" / "-30"); print "not " if $v ne q{0}; print 'ok 86 - ("" / "-30") --> ('.$v.")
";
$v = ("" / .1); print "not " if $v ne q{0}; print 'ok 87 - ("" / .1) --> ('.$v.")
";
$v = ("" / .2); print "not " if $v ne q{0}; print 'ok 88 - ("" / .2) --> ('.$v.")
";
$v = ("" / .3); print "not " if $v ne q{0}; print 'ok 89 - ("" / .3) --> ('.$v.")
";
$v = ("" / -.1); print "not " if $v ne q{0}; print 'ok 90 - ("" / -.1) --> ('.$v.")
";
$v = ("" / -.2); print "not " if $v ne q{0}; print 'ok 91 - ("" / -.2) --> ('.$v.")
";
$v = ("" / -.3); print "not " if $v ne q{0}; print 'ok 92 - ("" / -.3) --> ('.$v.")
";
$v = ("" / 0.1); print "not " if $v ne q{0}; print 'ok 93 - ("" / 0.1) --> ('.$v.")
";
$v = ("" / 0.2); print "not " if $v ne q{0}; print 'ok 94 - ("" / 0.2) --> ('.$v.")
";
$v = ("" / 0.3); print "not " if $v ne q{0}; print 'ok 95 - ("" / 0.3) --> ('.$v.")
";
$v = ("" / -0.1); print "not " if $v ne q{0}; print 'ok 96 - ("" / -0.1) --> ('.$v.")
";
$v = ("" / -0.2); print "not " if $v ne q{0}; print 'ok 97 - ("" / -0.2) --> ('.$v.")
";
$v = ("" / -0.3); print "not " if $v ne q{0}; print 'ok 98 - ("" / -0.3) --> ('.$v.")
";
$v = ("" / 0.1e1); print "not " if $v ne q{0}; print 'ok 99 - ("" / 0.1e1) --> ('.$v.")
";
$v = ("" / 0.2e1); print "not " if $v ne q{0}; print 'ok 100 - ("" / 0.2e1) --> ('.$v.")
";
$v = ("" / 0.3e1); print "not " if $v ne q{0}; print 'ok 101 - ("" / 0.3e1) --> ('.$v.")
";
$v = ("" / -0.1e1); print "not " if $v ne q{0}; print 'ok 102 - ("" / -0.1e1) --> ('.$v.")
";
$v = ("" / -0.2e1); print "not " if $v ne q{0}; print 'ok 103 - ("" / -0.2e1) --> ('.$v.")
";
$v = ("" / -0.3e1); print "not " if $v ne q{0}; print 'ok 104 - ("" / -0.3e1) --> ('.$v.")
";
$v = ("" / 10); print "not " if $v ne q{0}; print 'ok 105 - ("" / 10) --> ('.$v.")
";
$v = ("" / 20); print "not " if $v ne q{0}; print 'ok 106 - ("" / 20) --> ('.$v.")
";
$v = ("" / 30); print "not " if $v ne q{0}; print 'ok 107 - ("" / 30) --> ('.$v.")
";
$v = ("" / -10); print "not " if $v ne q{0}; print 'ok 108 - ("" / -10) --> ('.$v.")
";
$v = ("" / -20); print "not " if $v ne q{0}; print 'ok 109 - ("" / -20) --> ('.$v.")
";
$v = ("" / -30); print "not " if $v ne q{0}; print 'ok 110 - ("" / -30) --> ('.$v.")
";
$v = ("" / @ab); print "not " if $v ne q{0}; print 'ok 111 - ("" / @ab) --> ('.$v.")
";
$v = ("" / @ac); print "not " if $v ne q{0}; print 'ok 112 - ("" / @ac) --> ('.$v.")
";
$v = ("0" / "1"); print "not " if $v ne q{0}; print 'ok 113 - ("0" / "1") --> ('.$v.")
";
$v = ("0" / "2"); print "not " if $v ne q{0}; print 'ok 114 - ("0" / "2") --> ('.$v.")
";
$v = ("0" / "3"); print "not " if $v ne q{0}; print 'ok 115 - ("0" / "3") --> ('.$v.")
";
$v = ("0" / "-1"); print "not " if $v ne q{0}; print 'ok 116 - ("0" / "-1") --> ('.$v.")
";
$v = ("0" / "-2"); print "not " if $v ne q{0}; print 'ok 117 - ("0" / "-2") --> ('.$v.")
";
$v = ("0" / "-3"); print "not " if $v ne q{0}; print 'ok 118 - ("0" / "-3") --> ('.$v.")
";
$v = ("0" / ".1"); print "not " if $v ne q{0}; print 'ok 119 - ("0" / ".1") --> ('.$v.")
";
$v = ("0" / ".2"); print "not " if $v ne q{0}; print 'ok 120 - ("0" / ".2") --> ('.$v.")
";
$v = ("0" / ".3"); print "not " if $v ne q{0}; print 'ok 121 - ("0" / ".3") --> ('.$v.")
";
$v = ("0" / "-.1"); print "not " if $v ne q{0}; print 'ok 122 - ("0" / "-.1") --> ('.$v.")
";
$v = ("0" / "-.2"); print "not " if $v ne q{0}; print 'ok 123 - ("0" / "-.2") --> ('.$v.")
";
$v = ("0" / "-.3"); print "not " if $v ne q{0}; print 'ok 124 - ("0" / "-.3") --> ('.$v.")
";
$v = ("0" / "0.1"); print "not " if $v ne q{0}; print 'ok 125 - ("0" / "0.1") --> ('.$v.")
";
$v = ("0" / "0.2"); print "not " if $v ne q{0}; print 'ok 126 - ("0" / "0.2") --> ('.$v.")
";
$v = ("0" / "0.3"); print "not " if $v ne q{0}; print 'ok 127 - ("0" / "0.3") --> ('.$v.")
";
$v = ("0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 128 - ("0" / "-0.1") --> ('.$v.")
";
$v = ("0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 129 - ("0" / "-0.2") --> ('.$v.")
";
$v = ("0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 130 - ("0" / "-0.3") --> ('.$v.")
";
$v = ("0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 131 - ("0" / "0.1e1") --> ('.$v.")
";
$v = ("0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 132 - ("0" / "0.2e1") --> ('.$v.")
";
$v = ("0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 133 - ("0" / "0.3e1") --> ('.$v.")
";
$v = ("0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 134 - ("0" / "-0.1e1") --> ('.$v.")
";
$v = ("0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 135 - ("0" / "-0.2e1") --> ('.$v.")
";
$v = ("0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 136 - ("0" / "-0.3e1") --> ('.$v.")
";
$v = ("0" / "10"); print "not " if $v ne q{0}; print 'ok 137 - ("0" / "10") --> ('.$v.")
";
$v = ("0" / "20"); print "not " if $v ne q{0}; print 'ok 138 - ("0" / "20") --> ('.$v.")
";
$v = ("0" / "30"); print "not " if $v ne q{0}; print 'ok 139 - ("0" / "30") --> ('.$v.")
";
$v = ("0" / "-10"); print "not " if $v ne q{0}; print 'ok 140 - ("0" / "-10") --> ('.$v.")
";
$v = ("0" / "-20"); print "not " if $v ne q{0}; print 'ok 141 - ("0" / "-20") --> ('.$v.")
";
$v = ("0" / "-30"); print "not " if $v ne q{0}; print 'ok 142 - ("0" / "-30") --> ('.$v.")
";
$v = ("0" / .1); print "not " if $v ne q{0}; print 'ok 143 - ("0" / .1) --> ('.$v.")
";
$v = ("0" / .2); print "not " if $v ne q{0}; print 'ok 144 - ("0" / .2) --> ('.$v.")
";
$v = ("0" / .3); print "not " if $v ne q{0}; print 'ok 145 - ("0" / .3) --> ('.$v.")
";
$v = ("0" / -.1); print "not " if $v ne q{0}; print 'ok 146 - ("0" / -.1) --> ('.$v.")
";
$v = ("0" / -.2); print "not " if $v ne q{0}; print 'ok 147 - ("0" / -.2) --> ('.$v.")
";
$v = ("0" / -.3); print "not " if $v ne q{0}; print 'ok 148 - ("0" / -.3) --> ('.$v.")
";
$v = ("0" / 0.1); print "not " if $v ne q{0}; print 'ok 149 - ("0" / 0.1) --> ('.$v.")
";
$v = ("0" / 0.2); print "not " if $v ne q{0}; print 'ok 150 - ("0" / 0.2) --> ('.$v.")
";
$v = ("0" / 0.3); print "not " if $v ne q{0}; print 'ok 151 - ("0" / 0.3) --> ('.$v.")
";
$v = ("0" / -0.1); print "not " if $v ne q{0}; print 'ok 152 - ("0" / -0.1) --> ('.$v.")
";
$v = ("0" / -0.2); print "not " if $v ne q{0}; print 'ok 153 - ("0" / -0.2) --> ('.$v.")
";
$v = ("0" / -0.3); print "not " if $v ne q{0}; print 'ok 154 - ("0" / -0.3) --> ('.$v.")
";
$v = ("0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 155 - ("0" / 0.1e1) --> ('.$v.")
";
$v = ("0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 156 - ("0" / 0.2e1) --> ('.$v.")
";
$v = ("0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 157 - ("0" / 0.3e1) --> ('.$v.")
";
$v = ("0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 158 - ("0" / -0.1e1) --> ('.$v.")
";
$v = ("0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 159 - ("0" / -0.2e1) --> ('.$v.")
";
$v = ("0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 160 - ("0" / -0.3e1) --> ('.$v.")
";
$v = ("0" / 10); print "not " if $v ne q{0}; print 'ok 161 - ("0" / 10) --> ('.$v.")
";
$v = ("0" / 20); print "not " if $v ne q{0}; print 'ok 162 - ("0" / 20) --> ('.$v.")
";
$v = ("0" / 30); print "not " if $v ne q{0}; print 'ok 163 - ("0" / 30) --> ('.$v.")
";
$v = ("0" / -10); print "not " if $v ne q{0}; print 'ok 164 - ("0" / -10) --> ('.$v.")
";
$v = ("0" / -20); print "not " if $v ne q{0}; print 'ok 165 - ("0" / -20) --> ('.$v.")
";
$v = ("0" / -30); print "not " if $v ne q{0}; print 'ok 166 - ("0" / -30) --> ('.$v.")
";
$v = ("0" / @ab); print "not " if $v ne q{0}; print 'ok 167 - ("0" / @ab) --> ('.$v.")
";
$v = ("0" / @ac); print "not " if $v ne q{0}; print 'ok 168 - ("0" / @ac) --> ('.$v.")
";
$v = ("1" / "1"); print "not " if $v ne q{1}; print 'ok 169 - ("1" / "1") --> ('.$v.")
";
$v = ("1" / "2"); print "not " if $v ne q{0.5}; print 'ok 170 - ("1" / "2") --> ('.$v.")
";
$v = ("1" / "3"); print "not " if $v ne q{0.333333333333333}; print 'ok 171 - ("1" / "3") --> ('.$v.")
";
$v = ("1" / "-1"); print "not " if $v ne q{-1}; print 'ok 172 - ("1" / "-1") --> ('.$v.")
";
$v = ("1" / "-2"); print "not " if $v ne q{-0.5}; print 'ok 173 - ("1" / "-2") --> ('.$v.")
";
$v = ("1" / "-3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 174 - ("1" / "-3") --> ('.$v.")
";
$v = ("1" / ".1"); print "not " if $v ne q{10}; print 'ok 175 - ("1" / ".1") --> ('.$v.")
";
$v = ("1" / ".2"); print "not " if $v ne q{5}; print 'ok 176 - ("1" / ".2") --> ('.$v.")
";
$v = ("1" / ".3"); print "not " if $v ne q{3.33333333333333}; print 'ok 177 - ("1" / ".3") --> ('.$v.")
";
$v = ("1" / "-.1"); print "not " if $v ne q{-10}; print 'ok 178 - ("1" / "-.1") --> ('.$v.")
";
$v = ("1" / "-.2"); print "not " if $v ne q{-5}; print 'ok 179 - ("1" / "-.2") --> ('.$v.")
";
$v = ("1" / "-.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 180 - ("1" / "-.3") --> ('.$v.")
";
$v = ("1" / "0.1"); print "not " if $v ne q{10}; print 'ok 181 - ("1" / "0.1") --> ('.$v.")
";
$v = ("1" / "0.2"); print "not " if $v ne q{5}; print 'ok 182 - ("1" / "0.2") --> ('.$v.")
";
$v = ("1" / "0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 183 - ("1" / "0.3") --> ('.$v.")
";
$v = ("1" / "-0.1"); print "not " if $v ne q{-10}; print 'ok 184 - ("1" / "-0.1") --> ('.$v.")
";
$v = ("1" / "-0.2"); print "not " if $v ne q{-5}; print 'ok 185 - ("1" / "-0.2") --> ('.$v.")
";
$v = ("1" / "-0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 186 - ("1" / "-0.3") --> ('.$v.")
";
$v = ("1" / "0.1e1"); print "not " if $v ne q{1}; print 'ok 187 - ("1" / "0.1e1") --> ('.$v.")
";
$v = ("1" / "0.2e1"); print "not " if $v ne q{0.5}; print 'ok 188 - ("1" / "0.2e1") --> ('.$v.")
";
$v = ("1" / "0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 189 - ("1" / "0.3e1") --> ('.$v.")
";
$v = ("1" / "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 190 - ("1" / "-0.1e1") --> ('.$v.")
";
$v = ("1" / "-0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 191 - ("1" / "-0.2e1") --> ('.$v.")
";
$v = ("1" / "-0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 192 - ("1" / "-0.3e1") --> ('.$v.")
";
$v = ("1" / "10"); print "not " if $v ne q{0.1}; print 'ok 193 - ("1" / "10") --> ('.$v.")
";
$v = ("1" / "20"); print "not " if $v ne q{0.05}; print 'ok 194 - ("1" / "20") --> ('.$v.")
";
$v = ("1" / "30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 195 - ("1" / "30") --> ('.$v.")
";
$v = ("1" / "-10"); print "not " if $v ne q{-0.1}; print 'ok 196 - ("1" / "-10") --> ('.$v.")
";
$v = ("1" / "-20"); print "not " if $v ne q{-0.05}; print 'ok 197 - ("1" / "-20") --> ('.$v.")
";
$v = ("1" / "-30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 198 - ("1" / "-30") --> ('.$v.")
";
$v = ("1" / .1); print "not " if $v ne q{10}; print 'ok 199 - ("1" / .1) --> ('.$v.")
";
$v = ("1" / .2); print "not " if $v ne q{5}; print 'ok 200 - ("1" / .2) --> ('.$v.")
";
$v = ("1" / .3); print "not " if $v ne q{3.33333333333333}; print 'ok 201 - ("1" / .3) --> ('.$v.")
";
$v = ("1" / -.1); print "not " if $v ne q{-10}; print 'ok 202 - ("1" / -.1) --> ('.$v.")
";
$v = ("1" / -.2); print "not " if $v ne q{-5}; print 'ok 203 - ("1" / -.2) --> ('.$v.")
";
$v = ("1" / -.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 204 - ("1" / -.3) --> ('.$v.")
";
$v = ("1" / 0.1); print "not " if $v ne q{10}; print 'ok 205 - ("1" / 0.1) --> ('.$v.")
";
$v = ("1" / 0.2); print "not " if $v ne q{5}; print 'ok 206 - ("1" / 0.2) --> ('.$v.")
";
$v = ("1" / 0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 207 - ("1" / 0.3) --> ('.$v.")
";
$v = ("1" / -0.1); print "not " if $v ne q{-10}; print 'ok 208 - ("1" / -0.1) --> ('.$v.")
";
$v = ("1" / -0.2); print "not " if $v ne q{-5}; print 'ok 209 - ("1" / -0.2) --> ('.$v.")
";
$v = ("1" / -0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 210 - ("1" / -0.3) --> ('.$v.")
";
$v = ("1" / 0.1e1); print "not " if $v ne q{1}; print 'ok 211 - ("1" / 0.1e1) --> ('.$v.")
";
$v = ("1" / 0.2e1); print "not " if $v ne q{0.5}; print 'ok 212 - ("1" / 0.2e1) --> ('.$v.")
";
$v = ("1" / 0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 213 - ("1" / 0.3e1) --> ('.$v.")
";
$v = ("1" / -0.1e1); print "not " if $v ne q{-1}; print 'ok 214 - ("1" / -0.1e1) --> ('.$v.")
";
$v = ("1" / -0.2e1); print "not " if $v ne q{-0.5}; print 'ok 215 - ("1" / -0.2e1) --> ('.$v.")
";
$v = ("1" / -0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 216 - ("1" / -0.3e1) --> ('.$v.")
";
$v = ("1" / 10); print "not " if $v ne q{0.1}; print 'ok 217 - ("1" / 10) --> ('.$v.")
";
$v = ("1" / 20); print "not " if $v ne q{0.05}; print 'ok 218 - ("1" / 20) --> ('.$v.")
";
$v = ("1" / 30); print "not " if $v ne q{0.0333333333333333}; print 'ok 219 - ("1" / 30) --> ('.$v.")
";
$v = ("1" / -10); print "not " if $v ne q{-0.1}; print 'ok 220 - ("1" / -10) --> ('.$v.")
";
$v = ("1" / -20); print "not " if $v ne q{-0.05}; print 'ok 221 - ("1" / -20) --> ('.$v.")
";
$v = ("1" / -30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 222 - ("1" / -30) --> ('.$v.")
";
$v = ("1" / @ab); print "not " if $v ne q{1}; print 'ok 223 - ("1" / @ab) --> ('.$v.")
";
$v = ("1" / @ac); print "not " if $v ne q{0.333333333333333}; print 'ok 224 - ("1" / @ac) --> ('.$v.")
";
$v = ("2" / "1"); print "not " if $v ne q{2}; print 'ok 225 - ("2" / "1") --> ('.$v.")
";
$v = ("2" / "2"); print "not " if $v ne q{1}; print 'ok 226 - ("2" / "2") --> ('.$v.")
";
$v = ("2" / "3"); print "not " if $v ne q{0.666666666666667}; print 'ok 227 - ("2" / "3") --> ('.$v.")
";
$v = ("2" / "-1"); print "not " if $v ne q{-2}; print 'ok 228 - ("2" / "-1") --> ('.$v.")
";
$v = ("2" / "-2"); print "not " if $v ne q{-1}; print 'ok 229 - ("2" / "-2") --> ('.$v.")
";
$v = ("2" / "-3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 230 - ("2" / "-3") --> ('.$v.")
";
$v = ("2" / ".1"); print "not " if $v ne q{20}; print 'ok 231 - ("2" / ".1") --> ('.$v.")
";
$v = ("2" / ".2"); print "not " if $v ne q{10}; print 'ok 232 - ("2" / ".2") --> ('.$v.")
";
$v = ("2" / ".3"); print "not " if $v ne q{6.66666666666667}; print 'ok 233 - ("2" / ".3") --> ('.$v.")
";
$v = ("2" / "-.1"); print "not " if $v ne q{-20}; print 'ok 234 - ("2" / "-.1") --> ('.$v.")
";
$v = ("2" / "-.2"); print "not " if $v ne q{-10}; print 'ok 235 - ("2" / "-.2") --> ('.$v.")
";
$v = ("2" / "-.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 236 - ("2" / "-.3") --> ('.$v.")
";
$v = ("2" / "0.1"); print "not " if $v ne q{20}; print 'ok 237 - ("2" / "0.1") --> ('.$v.")
";
$v = ("2" / "0.2"); print "not " if $v ne q{10}; print 'ok 238 - ("2" / "0.2") --> ('.$v.")
";
$v = ("2" / "0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 239 - ("2" / "0.3") --> ('.$v.")
";
$v = ("2" / "-0.1"); print "not " if $v ne q{-20}; print 'ok 240 - ("2" / "-0.1") --> ('.$v.")
";
$v = ("2" / "-0.2"); print "not " if $v ne q{-10}; print 'ok 241 - ("2" / "-0.2") --> ('.$v.")
";
$v = ("2" / "-0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 242 - ("2" / "-0.3") --> ('.$v.")
";
$v = ("2" / "0.1e1"); print "not " if $v ne q{2}; print 'ok 243 - ("2" / "0.1e1") --> ('.$v.")
";
$v = ("2" / "0.2e1"); print "not " if $v ne q{1}; print 'ok 244 - ("2" / "0.2e1") --> ('.$v.")
";
$v = ("2" / "0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 245 - ("2" / "0.3e1") --> ('.$v.")
";
$v = ("2" / "-0.1e1"); print "not " if $v ne q{-2}; print 'ok 246 - ("2" / "-0.1e1") --> ('.$v.")
";
$v = ("2" / "-0.2e1"); print "not " if $v ne q{-1}; print 'ok 247 - ("2" / "-0.2e1") --> ('.$v.")
";
$v = ("2" / "-0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 248 - ("2" / "-0.3e1") --> ('.$v.")
";
$v = ("2" / "10"); print "not " if $v ne q{0.2}; print 'ok 249 - ("2" / "10") --> ('.$v.")
";
$v = ("2" / "20"); print "not " if $v ne q{0.1}; print 'ok 250 - ("2" / "20") --> ('.$v.")
";
$v = ("2" / "30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 251 - ("2" / "30") --> ('.$v.")
";
$v = ("2" / "-10"); print "not " if $v ne q{-0.2}; print 'ok 252 - ("2" / "-10") --> ('.$v.")
";
$v = ("2" / "-20"); print "not " if $v ne q{-0.1}; print 'ok 253 - ("2" / "-20") --> ('.$v.")
";
$v = ("2" / "-30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 254 - ("2" / "-30") --> ('.$v.")
";
$v = ("2" / .1); print "not " if $v ne q{20}; print 'ok 255 - ("2" / .1) --> ('.$v.")
";
$v = ("2" / .2); print "not " if $v ne q{10}; print 'ok 256 - ("2" / .2) --> ('.$v.")
";
$v = ("2" / .3); print "not " if $v ne q{6.66666666666667}; print 'ok 257 - ("2" / .3) --> ('.$v.")
";
$v = ("2" / -.1); print "not " if $v ne q{-20}; print 'ok 258 - ("2" / -.1) --> ('.$v.")
";
$v = ("2" / -.2); print "not " if $v ne q{-10}; print 'ok 259 - ("2" / -.2) --> ('.$v.")
";
$v = ("2" / -.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 260 - ("2" / -.3) --> ('.$v.")
";
$v = ("2" / 0.1); print "not " if $v ne q{20}; print 'ok 261 - ("2" / 0.1) --> ('.$v.")
";
$v = ("2" / 0.2); print "not " if $v ne q{10}; print 'ok 262 - ("2" / 0.2) --> ('.$v.")
";
$v = ("2" / 0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 263 - ("2" / 0.3) --> ('.$v.")
";
$v = ("2" / -0.1); print "not " if $v ne q{-20}; print 'ok 264 - ("2" / -0.1) --> ('.$v.")
";
$v = ("2" / -0.2); print "not " if $v ne q{-10}; print 'ok 265 - ("2" / -0.2) --> ('.$v.")
";
$v = ("2" / -0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 266 - ("2" / -0.3) --> ('.$v.")
";
$v = ("2" / 0.1e1); print "not " if $v ne q{2}; print 'ok 267 - ("2" / 0.1e1) --> ('.$v.")
";
$v = ("2" / 0.2e1); print "not " if $v ne q{1}; print 'ok 268 - ("2" / 0.2e1) --> ('.$v.")
";
$v = ("2" / 0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 269 - ("2" / 0.3e1) --> ('.$v.")
";
$v = ("2" / -0.1e1); print "not " if $v ne q{-2}; print 'ok 270 - ("2" / -0.1e1) --> ('.$v.")
";
$v = ("2" / -0.2e1); print "not " if $v ne q{-1}; print 'ok 271 - ("2" / -0.2e1) --> ('.$v.")
";
$v = ("2" / -0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 272 - ("2" / -0.3e1) --> ('.$v.")
";
$v = ("2" / 10); print "not " if $v ne q{0.2}; print 'ok 273 - ("2" / 10) --> ('.$v.")
";
$v = ("2" / 20); print "not " if $v ne q{0.1}; print 'ok 274 - ("2" / 20) --> ('.$v.")
";
$v = ("2" / 30); print "not " if $v ne q{0.0666666666666667}; print 'ok 275 - ("2" / 30) --> ('.$v.")
";
$v = ("2" / -10); print "not " if $v ne q{-0.2}; print 'ok 276 - ("2" / -10) --> ('.$v.")
";
$v = ("2" / -20); print "not " if $v ne q{-0.1}; print 'ok 277 - ("2" / -20) --> ('.$v.")
";
$v = ("2" / -30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 278 - ("2" / -30) --> ('.$v.")
";
$v = ("2" / @ab); print "not " if $v ne q{2}; print 'ok 279 - ("2" / @ab) --> ('.$v.")
";
$v = ("2" / @ac); print "not " if $v ne q{0.666666666666667}; print 'ok 280 - ("2" / @ac) --> ('.$v.")
";
$v = ("3" / "1"); print "not " if $v ne q{3}; print 'ok 281 - ("3" / "1") --> ('.$v.")
";
$v = ("3" / "2"); print "not " if $v ne q{1.5}; print 'ok 282 - ("3" / "2") --> ('.$v.")
";
$v = ("3" / "3"); print "not " if $v ne q{1}; print 'ok 283 - ("3" / "3") --> ('.$v.")
";
$v = ("3" / "-1"); print "not " if $v ne q{-3}; print 'ok 284 - ("3" / "-1") --> ('.$v.")
";
$v = ("3" / "-2"); print "not " if $v ne q{-1.5}; print 'ok 285 - ("3" / "-2") --> ('.$v.")
";
$v = ("3" / "-3"); print "not " if $v ne q{-1}; print 'ok 286 - ("3" / "-3") --> ('.$v.")
";
$v = ("3" / ".1"); print "not " if $v ne q{30}; print 'ok 287 - ("3" / ".1") --> ('.$v.")
";
$v = ("3" / ".2"); print "not " if $v ne q{15}; print 'ok 288 - ("3" / ".2") --> ('.$v.")
";
$v = ("3" / ".3"); print "not " if $v ne q{10}; print 'ok 289 - ("3" / ".3") --> ('.$v.")
";
$v = ("3" / "-.1"); print "not " if $v ne q{-30}; print 'ok 290 - ("3" / "-.1") --> ('.$v.")
";
$v = ("3" / "-.2"); print "not " if $v ne q{-15}; print 'ok 291 - ("3" / "-.2") --> ('.$v.")
";
$v = ("3" / "-.3"); print "not " if $v ne q{-10}; print 'ok 292 - ("3" / "-.3") --> ('.$v.")
";
$v = ("3" / "0.1"); print "not " if $v ne q{30}; print 'ok 293 - ("3" / "0.1") --> ('.$v.")
";
$v = ("3" / "0.2"); print "not " if $v ne q{15}; print 'ok 294 - ("3" / "0.2") --> ('.$v.")
";
$v = ("3" / "0.3"); print "not " if $v ne q{10}; print 'ok 295 - ("3" / "0.3") --> ('.$v.")
";
$v = ("3" / "-0.1"); print "not " if $v ne q{-30}; print 'ok 296 - ("3" / "-0.1") --> ('.$v.")
";
$v = ("3" / "-0.2"); print "not " if $v ne q{-15}; print 'ok 297 - ("3" / "-0.2") --> ('.$v.")
";
$v = ("3" / "-0.3"); print "not " if $v ne q{-10}; print 'ok 298 - ("3" / "-0.3") --> ('.$v.")
";
$v = ("3" / "0.1e1"); print "not " if $v ne q{3}; print 'ok 299 - ("3" / "0.1e1") --> ('.$v.")
";
$v = ("3" / "0.2e1"); print "not " if $v ne q{1.5}; print 'ok 300 - ("3" / "0.2e1") --> ('.$v.")
";
$v = ("3" / "0.3e1"); print "not " if $v ne q{1}; print 'ok 301 - ("3" / "0.3e1") --> ('.$v.")
";
$v = ("3" / "-0.1e1"); print "not " if $v ne q{-3}; print 'ok 302 - ("3" / "-0.1e1") --> ('.$v.")
";
$v = ("3" / "-0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 303 - ("3" / "-0.2e1") --> ('.$v.")
";
$v = ("3" / "-0.3e1"); print "not " if $v ne q{-1}; print 'ok 304 - ("3" / "-0.3e1") --> ('.$v.")
";
$v = ("3" / "10"); print "not " if $v ne q{0.3}; print 'ok 305 - ("3" / "10") --> ('.$v.")
";
$v = ("3" / "20"); print "not " if $v ne q{0.15}; print 'ok 306 - ("3" / "20") --> ('.$v.")
";
$v = ("3" / "30"); print "not " if $v ne q{0.1}; print 'ok 307 - ("3" / "30") --> ('.$v.")
";
$v = ("3" / "-10"); print "not " if $v ne q{-0.3}; print 'ok 308 - ("3" / "-10") --> ('.$v.")
";
$v = ("3" / "-20"); print "not " if $v ne q{-0.15}; print 'ok 309 - ("3" / "-20") --> ('.$v.")
";
$v = ("3" / "-30"); print "not " if $v ne q{-0.1}; print 'ok 310 - ("3" / "-30") --> ('.$v.")
";
$v = ("3" / .1); print "not " if $v ne q{30}; print 'ok 311 - ("3" / .1) --> ('.$v.")
";
$v = ("3" / .2); print "not " if $v ne q{15}; print 'ok 312 - ("3" / .2) --> ('.$v.")
";
$v = ("3" / .3); print "not " if $v ne q{10}; print 'ok 313 - ("3" / .3) --> ('.$v.")
";
$v = ("3" / -.1); print "not " if $v ne q{-30}; print 'ok 314 - ("3" / -.1) --> ('.$v.")
";
$v = ("3" / -.2); print "not " if $v ne q{-15}; print 'ok 315 - ("3" / -.2) --> ('.$v.")
";
$v = ("3" / -.3); print "not " if $v ne q{-10}; print 'ok 316 - ("3" / -.3) --> ('.$v.")
";
$v = ("3" / 0.1); print "not " if $v ne q{30}; print 'ok 317 - ("3" / 0.1) --> ('.$v.")
";
$v = ("3" / 0.2); print "not " if $v ne q{15}; print 'ok 318 - ("3" / 0.2) --> ('.$v.")
";
$v = ("3" / 0.3); print "not " if $v ne q{10}; print 'ok 319 - ("3" / 0.3) --> ('.$v.")
";
$v = ("3" / -0.1); print "not " if $v ne q{-30}; print 'ok 320 - ("3" / -0.1) --> ('.$v.")
";
$v = ("3" / -0.2); print "not " if $v ne q{-15}; print 'ok 321 - ("3" / -0.2) --> ('.$v.")
";
$v = ("3" / -0.3); print "not " if $v ne q{-10}; print 'ok 322 - ("3" / -0.3) --> ('.$v.")
";
$v = ("3" / 0.1e1); print "not " if $v ne q{3}; print 'ok 323 - ("3" / 0.1e1) --> ('.$v.")
";
$v = ("3" / 0.2e1); print "not " if $v ne q{1.5}; print 'ok 324 - ("3" / 0.2e1) --> ('.$v.")
";
$v = ("3" / 0.3e1); print "not " if $v ne q{1}; print 'ok 325 - ("3" / 0.3e1) --> ('.$v.")
";
$v = ("3" / -0.1e1); print "not " if $v ne q{-3}; print 'ok 326 - ("3" / -0.1e1) --> ('.$v.")
";
$v = ("3" / -0.2e1); print "not " if $v ne q{-1.5}; print 'ok 327 - ("3" / -0.2e1) --> ('.$v.")
";
$v = ("3" / -0.3e1); print "not " if $v ne q{-1}; print 'ok 328 - ("3" / -0.3e1) --> ('.$v.")
";
$v = ("3" / 10); print "not " if $v ne q{0.3}; print 'ok 329 - ("3" / 10) --> ('.$v.")
";
$v = ("3" / 20); print "not " if $v ne q{0.15}; print 'ok 330 - ("3" / 20) --> ('.$v.")
";
$v = ("3" / 30); print "not " if $v ne q{0.1}; print 'ok 331 - ("3" / 30) --> ('.$v.")
";
$v = ("3" / -10); print "not " if $v ne q{-0.3}; print 'ok 332 - ("3" / -10) --> ('.$v.")
";
$v = ("3" / -20); print "not " if $v ne q{-0.15}; print 'ok 333 - ("3" / -20) --> ('.$v.")
";
$v = ("3" / -30); print "not " if $v ne q{-0.1}; print 'ok 334 - ("3" / -30) --> ('.$v.")
";
$v = ("3" / @ab); print "not " if $v ne q{3}; print 'ok 335 - ("3" / @ab) --> ('.$v.")
";
$v = ("3" / @ac); print "not " if $v ne q{1}; print 'ok 336 - ("3" / @ac) --> ('.$v.")
";
$v = ("-0" / "1"); print "not " if $v ne q{0}; print 'ok 337 - ("-0" / "1") --> ('.$v.")
";
$v = ("-0" / "2"); print "not " if $v ne q{0}; print 'ok 338 - ("-0" / "2") --> ('.$v.")
";
$v = ("-0" / "3"); print "not " if $v ne q{0}; print 'ok 339 - ("-0" / "3") --> ('.$v.")
";
$v = ("-0" / "-1"); print "not " if $v ne q{0}; print 'ok 340 - ("-0" / "-1") --> ('.$v.")
";
$v = ("-0" / "-2"); print "not " if $v ne q{0}; print 'ok 341 - ("-0" / "-2") --> ('.$v.")
";
$v = ("-0" / "-3"); print "not " if $v ne q{0}; print 'ok 342 - ("-0" / "-3") --> ('.$v.")
";
$v = ("-0" / ".1"); print "not " if $v ne q{0}; print 'ok 343 - ("-0" / ".1") --> ('.$v.")
";
$v = ("-0" / ".2"); print "not " if $v ne q{0}; print 'ok 344 - ("-0" / ".2") --> ('.$v.")
";
$v = ("-0" / ".3"); print "not " if $v ne q{0}; print 'ok 345 - ("-0" / ".3") --> ('.$v.")
";
$v = ("-0" / "-.1"); print "not " if $v ne q{0}; print 'ok 346 - ("-0" / "-.1") --> ('.$v.")
";
$v = ("-0" / "-.2"); print "not " if $v ne q{0}; print 'ok 347 - ("-0" / "-.2") --> ('.$v.")
";
$v = ("-0" / "-.3"); print "not " if $v ne q{0}; print 'ok 348 - ("-0" / "-.3") --> ('.$v.")
";
$v = ("-0" / "0.1"); print "not " if $v ne q{0}; print 'ok 349 - ("-0" / "0.1") --> ('.$v.")
";
$v = ("-0" / "0.2"); print "not " if $v ne q{0}; print 'ok 350 - ("-0" / "0.2") --> ('.$v.")
";
$v = ("-0" / "0.3"); print "not " if $v ne q{0}; print 'ok 351 - ("-0" / "0.3") --> ('.$v.")
";
$v = ("-0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 352 - ("-0" / "-0.1") --> ('.$v.")
";
$v = ("-0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 353 - ("-0" / "-0.2") --> ('.$v.")
";
$v = ("-0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 354 - ("-0" / "-0.3") --> ('.$v.")
";
$v = ("-0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 355 - ("-0" / "0.1e1") --> ('.$v.")
";
$v = ("-0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 356 - ("-0" / "0.2e1") --> ('.$v.")
";
$v = ("-0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 357 - ("-0" / "0.3e1") --> ('.$v.")
";
$v = ("-0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 358 - ("-0" / "-0.1e1") --> ('.$v.")
";
$v = ("-0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 359 - ("-0" / "-0.2e1") --> ('.$v.")
";
$v = ("-0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 360 - ("-0" / "-0.3e1") --> ('.$v.")
";
$v = ("-0" / "10"); print "not " if $v ne q{0}; print 'ok 361 - ("-0" / "10") --> ('.$v.")
";
$v = ("-0" / "20"); print "not " if $v ne q{0}; print 'ok 362 - ("-0" / "20") --> ('.$v.")
";
$v = ("-0" / "30"); print "not " if $v ne q{0}; print 'ok 363 - ("-0" / "30") --> ('.$v.")
";
$v = ("-0" / "-10"); print "not " if $v ne q{0}; print 'ok 364 - ("-0" / "-10") --> ('.$v.")
";
$v = ("-0" / "-20"); print "not " if $v ne q{0}; print 'ok 365 - ("-0" / "-20") --> ('.$v.")
";
$v = ("-0" / "-30"); print "not " if $v ne q{0}; print 'ok 366 - ("-0" / "-30") --> ('.$v.")
";
$v = ("-0" / .1); print "not " if $v ne q{0}; print 'ok 367 - ("-0" / .1) --> ('.$v.")
";
$v = ("-0" / .2); print "not " if $v ne q{0}; print 'ok 368 - ("-0" / .2) --> ('.$v.")
";
$v = ("-0" / .3); print "not " if $v ne q{0}; print 'ok 369 - ("-0" / .3) --> ('.$v.")
";
$v = ("-0" / -.1); print "not " if $v ne q{0}; print 'ok 370 - ("-0" / -.1) --> ('.$v.")
";
$v = ("-0" / -.2); print "not " if $v ne q{0}; print 'ok 371 - ("-0" / -.2) --> ('.$v.")
";
$v = ("-0" / -.3); print "not " if $v ne q{0}; print 'ok 372 - ("-0" / -.3) --> ('.$v.")
";
$v = ("-0" / 0.1); print "not " if $v ne q{0}; print 'ok 373 - ("-0" / 0.1) --> ('.$v.")
";
$v = ("-0" / 0.2); print "not " if $v ne q{0}; print 'ok 374 - ("-0" / 0.2) --> ('.$v.")
";
$v = ("-0" / 0.3); print "not " if $v ne q{0}; print 'ok 375 - ("-0" / 0.3) --> ('.$v.")
";
$v = ("-0" / -0.1); print "not " if $v ne q{0}; print 'ok 376 - ("-0" / -0.1) --> ('.$v.")
";
$v = ("-0" / -0.2); print "not " if $v ne q{0}; print 'ok 377 - ("-0" / -0.2) --> ('.$v.")
";
$v = ("-0" / -0.3); print "not " if $v ne q{0}; print 'ok 378 - ("-0" / -0.3) --> ('.$v.")
";
$v = ("-0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 379 - ("-0" / 0.1e1) --> ('.$v.")
";
$v = ("-0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 380 - ("-0" / 0.2e1) --> ('.$v.")
";
$v = ("-0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 381 - ("-0" / 0.3e1) --> ('.$v.")
";
$v = ("-0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 382 - ("-0" / -0.1e1) --> ('.$v.")
";
$v = ("-0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 383 - ("-0" / -0.2e1) --> ('.$v.")
";
$v = ("-0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 384 - ("-0" / -0.3e1) --> ('.$v.")
";
$v = ("-0" / 10); print "not " if $v ne q{0}; print 'ok 385 - ("-0" / 10) --> ('.$v.")
";
$v = ("-0" / 20); print "not " if $v ne q{0}; print 'ok 386 - ("-0" / 20) --> ('.$v.")
";
$v = ("-0" / 30); print "not " if $v ne q{0}; print 'ok 387 - ("-0" / 30) --> ('.$v.")
";
$v = ("-0" / -10); print "not " if $v ne q{0}; print 'ok 388 - ("-0" / -10) --> ('.$v.")
";
$v = ("-0" / -20); print "not " if $v ne q{0}; print 'ok 389 - ("-0" / -20) --> ('.$v.")
";
$v = ("-0" / -30); print "not " if $v ne q{0}; print 'ok 390 - ("-0" / -30) --> ('.$v.")
";
$v = ("-0" / @ab); print "not " if $v ne q{0}; print 'ok 391 - ("-0" / @ab) --> ('.$v.")
";
$v = ("-0" / @ac); print "not " if $v ne q{0}; print 'ok 392 - ("-0" / @ac) --> ('.$v.")
";
$v = ("-1" / "1"); print "not " if $v ne q{-1}; print 'ok 393 - ("-1" / "1") --> ('.$v.")
";
$v = ("-1" / "2"); print "not " if $v ne q{-0.5}; print 'ok 394 - ("-1" / "2") --> ('.$v.")
";
$v = ("-1" / "3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 395 - ("-1" / "3") --> ('.$v.")
";
$v = ("-1" / "-1"); print "not " if $v ne q{1}; print 'ok 396 - ("-1" / "-1") --> ('.$v.")
";
$v = ("-1" / "-2"); print "not " if $v ne q{0.5}; print 'ok 397 - ("-1" / "-2") --> ('.$v.")
";
$v = ("-1" / "-3"); print "not " if $v ne q{0.333333333333333}; print 'ok 398 - ("-1" / "-3") --> ('.$v.")
";
$v = ("-1" / ".1"); print "not " if $v ne q{-10}; print 'ok 399 - ("-1" / ".1") --> ('.$v.")
";
$v = ("-1" / ".2"); print "not " if $v ne q{-5}; print 'ok 400 - ("-1" / ".2") --> ('.$v.")
";
$v = ("-1" / ".3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 401 - ("-1" / ".3") --> ('.$v.")
";
$v = ("-1" / "-.1"); print "not " if $v ne q{10}; print 'ok 402 - ("-1" / "-.1") --> ('.$v.")
";
$v = ("-1" / "-.2"); print "not " if $v ne q{5}; print 'ok 403 - ("-1" / "-.2") --> ('.$v.")
";
$v = ("-1" / "-.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 404 - ("-1" / "-.3") --> ('.$v.")
";
$v = ("-1" / "0.1"); print "not " if $v ne q{-10}; print 'ok 405 - ("-1" / "0.1") --> ('.$v.")
";
$v = ("-1" / "0.2"); print "not " if $v ne q{-5}; print 'ok 406 - ("-1" / "0.2") --> ('.$v.")
";
$v = ("-1" / "0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 407 - ("-1" / "0.3") --> ('.$v.")
";
$v = ("-1" / "-0.1"); print "not " if $v ne q{10}; print 'ok 408 - ("-1" / "-0.1") --> ('.$v.")
";
$v = ("-1" / "-0.2"); print "not " if $v ne q{5}; print 'ok 409 - ("-1" / "-0.2") --> ('.$v.")
";
$v = ("-1" / "-0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 410 - ("-1" / "-0.3") --> ('.$v.")
";
$v = ("-1" / "0.1e1"); print "not " if $v ne q{-1}; print 'ok 411 - ("-1" / "0.1e1") --> ('.$v.")
";
$v = ("-1" / "0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 412 - ("-1" / "0.2e1") --> ('.$v.")
";
$v = ("-1" / "0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 413 - ("-1" / "0.3e1") --> ('.$v.")
";
$v = ("-1" / "-0.1e1"); print "not " if $v ne q{1}; print 'ok 414 - ("-1" / "-0.1e1") --> ('.$v.")
";
$v = ("-1" / "-0.2e1"); print "not " if $v ne q{0.5}; print 'ok 415 - ("-1" / "-0.2e1") --> ('.$v.")
";
$v = ("-1" / "-0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 416 - ("-1" / "-0.3e1") --> ('.$v.")
";
$v = ("-1" / "10"); print "not " if $v ne q{-0.1}; print 'ok 417 - ("-1" / "10") --> ('.$v.")
";
$v = ("-1" / "20"); print "not " if $v ne q{-0.05}; print 'ok 418 - ("-1" / "20") --> ('.$v.")
";
$v = ("-1" / "30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 419 - ("-1" / "30") --> ('.$v.")
";
$v = ("-1" / "-10"); print "not " if $v ne q{0.1}; print 'ok 420 - ("-1" / "-10") --> ('.$v.")
";
$v = ("-1" / "-20"); print "not " if $v ne q{0.05}; print 'ok 421 - ("-1" / "-20") --> ('.$v.")
";
$v = ("-1" / "-30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 422 - ("-1" / "-30") --> ('.$v.")
";
$v = ("-1" / .1); print "not " if $v ne q{-10}; print 'ok 423 - ("-1" / .1) --> ('.$v.")
";
$v = ("-1" / .2); print "not " if $v ne q{-5}; print 'ok 424 - ("-1" / .2) --> ('.$v.")
";
$v = ("-1" / .3); print "not " if $v ne q{-3.33333333333333}; print 'ok 425 - ("-1" / .3) --> ('.$v.")
";
$v = ("-1" / -.1); print "not " if $v ne q{10}; print 'ok 426 - ("-1" / -.1) --> ('.$v.")
";
$v = ("-1" / -.2); print "not " if $v ne q{5}; print 'ok 427 - ("-1" / -.2) --> ('.$v.")
";
$v = ("-1" / -.3); print "not " if $v ne q{3.33333333333333}; print 'ok 428 - ("-1" / -.3) --> ('.$v.")
";
$v = ("-1" / 0.1); print "not " if $v ne q{-10}; print 'ok 429 - ("-1" / 0.1) --> ('.$v.")
";
$v = ("-1" / 0.2); print "not " if $v ne q{-5}; print 'ok 430 - ("-1" / 0.2) --> ('.$v.")
";
$v = ("-1" / 0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 431 - ("-1" / 0.3) --> ('.$v.")
";
$v = ("-1" / -0.1); print "not " if $v ne q{10}; print 'ok 432 - ("-1" / -0.1) --> ('.$v.")
";
$v = ("-1" / -0.2); print "not " if $v ne q{5}; print 'ok 433 - ("-1" / -0.2) --> ('.$v.")
";
$v = ("-1" / -0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 434 - ("-1" / -0.3) --> ('.$v.")
";
$v = ("-1" / 0.1e1); print "not " if $v ne q{-1}; print 'ok 435 - ("-1" / 0.1e1) --> ('.$v.")
";
$v = ("-1" / 0.2e1); print "not " if $v ne q{-0.5}; print 'ok 436 - ("-1" / 0.2e1) --> ('.$v.")
";
$v = ("-1" / 0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 437 - ("-1" / 0.3e1) --> ('.$v.")
";
$v = ("-1" / -0.1e1); print "not " if $v ne q{1}; print 'ok 438 - ("-1" / -0.1e1) --> ('.$v.")
";
$v = ("-1" / -0.2e1); print "not " if $v ne q{0.5}; print 'ok 439 - ("-1" / -0.2e1) --> ('.$v.")
";
$v = ("-1" / -0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 440 - ("-1" / -0.3e1) --> ('.$v.")
";
$v = ("-1" / 10); print "not " if $v ne q{-0.1}; print 'ok 441 - ("-1" / 10) --> ('.$v.")
";
$v = ("-1" / 20); print "not " if $v ne q{-0.05}; print 'ok 442 - ("-1" / 20) --> ('.$v.")
";
$v = ("-1" / 30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 443 - ("-1" / 30) --> ('.$v.")
";
$v = ("-1" / -10); print "not " if $v ne q{0.1}; print 'ok 444 - ("-1" / -10) --> ('.$v.")
";
$v = ("-1" / -20); print "not " if $v ne q{0.05}; print 'ok 445 - ("-1" / -20) --> ('.$v.")
";
$v = ("-1" / -30); print "not " if $v ne q{0.0333333333333333}; print 'ok 446 - ("-1" / -30) --> ('.$v.")
";
$v = ("-1" / @ab); print "not " if $v ne q{-1}; print 'ok 447 - ("-1" / @ab) --> ('.$v.")
";
$v = ("-1" / @ac); print "not " if $v ne q{-0.333333333333333}; print 'ok 448 - ("-1" / @ac) --> ('.$v.")
";
$v = ("-2" / "1"); print "not " if $v ne q{-2}; print 'ok 449 - ("-2" / "1") --> ('.$v.")
";
$v = ("-2" / "2"); print "not " if $v ne q{-1}; print 'ok 450 - ("-2" / "2") --> ('.$v.")
";
$v = ("-2" / "3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 451 - ("-2" / "3") --> ('.$v.")
";
$v = ("-2" / "-1"); print "not " if $v ne q{2}; print 'ok 452 - ("-2" / "-1") --> ('.$v.")
";
$v = ("-2" / "-2"); print "not " if $v ne q{1}; print 'ok 453 - ("-2" / "-2") --> ('.$v.")
";
$v = ("-2" / "-3"); print "not " if $v ne q{0.666666666666667}; print 'ok 454 - ("-2" / "-3") --> ('.$v.")
";
$v = ("-2" / ".1"); print "not " if $v ne q{-20}; print 'ok 455 - ("-2" / ".1") --> ('.$v.")
";
$v = ("-2" / ".2"); print "not " if $v ne q{-10}; print 'ok 456 - ("-2" / ".2") --> ('.$v.")
";
$v = ("-2" / ".3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 457 - ("-2" / ".3") --> ('.$v.")
";
$v = ("-2" / "-.1"); print "not " if $v ne q{20}; print 'ok 458 - ("-2" / "-.1") --> ('.$v.")
";
$v = ("-2" / "-.2"); print "not " if $v ne q{10}; print 'ok 459 - ("-2" / "-.2") --> ('.$v.")
";
$v = ("-2" / "-.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 460 - ("-2" / "-.3") --> ('.$v.")
";
$v = ("-2" / "0.1"); print "not " if $v ne q{-20}; print 'ok 461 - ("-2" / "0.1") --> ('.$v.")
";
$v = ("-2" / "0.2"); print "not " if $v ne q{-10}; print 'ok 462 - ("-2" / "0.2") --> ('.$v.")
";
$v = ("-2" / "0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 463 - ("-2" / "0.3") --> ('.$v.")
";
$v = ("-2" / "-0.1"); print "not " if $v ne q{20}; print 'ok 464 - ("-2" / "-0.1") --> ('.$v.")
";
$v = ("-2" / "-0.2"); print "not " if $v ne q{10}; print 'ok 465 - ("-2" / "-0.2") --> ('.$v.")
";
$v = ("-2" / "-0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 466 - ("-2" / "-0.3") --> ('.$v.")
";
$v = ("-2" / "0.1e1"); print "not " if $v ne q{-2}; print 'ok 467 - ("-2" / "0.1e1") --> ('.$v.")
";
$v = ("-2" / "0.2e1"); print "not " if $v ne q{-1}; print 'ok 468 - ("-2" / "0.2e1") --> ('.$v.")
";
$v = ("-2" / "0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 469 - ("-2" / "0.3e1") --> ('.$v.")
";
$v = ("-2" / "-0.1e1"); print "not " if $v ne q{2}; print 'ok 470 - ("-2" / "-0.1e1") --> ('.$v.")
";
$v = ("-2" / "-0.2e1"); print "not " if $v ne q{1}; print 'ok 471 - ("-2" / "-0.2e1") --> ('.$v.")
";
$v = ("-2" / "-0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 472 - ("-2" / "-0.3e1") --> ('.$v.")
";
$v = ("-2" / "10"); print "not " if $v ne q{-0.2}; print 'ok 473 - ("-2" / "10") --> ('.$v.")
";
$v = ("-2" / "20"); print "not " if $v ne q{-0.1}; print 'ok 474 - ("-2" / "20") --> ('.$v.")
";
$v = ("-2" / "30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 475 - ("-2" / "30") --> ('.$v.")
";
$v = ("-2" / "-10"); print "not " if $v ne q{0.2}; print 'ok 476 - ("-2" / "-10") --> ('.$v.")
";
$v = ("-2" / "-20"); print "not " if $v ne q{0.1}; print 'ok 477 - ("-2" / "-20") --> ('.$v.")
";
$v = ("-2" / "-30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 478 - ("-2" / "-30") --> ('.$v.")
";
$v = ("-2" / .1); print "not " if $v ne q{-20}; print 'ok 479 - ("-2" / .1) --> ('.$v.")
";
$v = ("-2" / .2); print "not " if $v ne q{-10}; print 'ok 480 - ("-2" / .2) --> ('.$v.")
";
$v = ("-2" / .3); print "not " if $v ne q{-6.66666666666667}; print 'ok 481 - ("-2" / .3) --> ('.$v.")
";
$v = ("-2" / -.1); print "not " if $v ne q{20}; print 'ok 482 - ("-2" / -.1) --> ('.$v.")
";
$v = ("-2" / -.2); print "not " if $v ne q{10}; print 'ok 483 - ("-2" / -.2) --> ('.$v.")
";
$v = ("-2" / -.3); print "not " if $v ne q{6.66666666666667}; print 'ok 484 - ("-2" / -.3) --> ('.$v.")
";
$v = ("-2" / 0.1); print "not " if $v ne q{-20}; print 'ok 485 - ("-2" / 0.1) --> ('.$v.")
";
$v = ("-2" / 0.2); print "not " if $v ne q{-10}; print 'ok 486 - ("-2" / 0.2) --> ('.$v.")
";
$v = ("-2" / 0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 487 - ("-2" / 0.3) --> ('.$v.")
";
$v = ("-2" / -0.1); print "not " if $v ne q{20}; print 'ok 488 - ("-2" / -0.1) --> ('.$v.")
";
$v = ("-2" / -0.2); print "not " if $v ne q{10}; print 'ok 489 - ("-2" / -0.2) --> ('.$v.")
";
$v = ("-2" / -0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 490 - ("-2" / -0.3) --> ('.$v.")
";
$v = ("-2" / 0.1e1); print "not " if $v ne q{-2}; print 'ok 491 - ("-2" / 0.1e1) --> ('.$v.")
";
$v = ("-2" / 0.2e1); print "not " if $v ne q{-1}; print 'ok 492 - ("-2" / 0.2e1) --> ('.$v.")
";
$v = ("-2" / 0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 493 - ("-2" / 0.3e1) --> ('.$v.")
";
$v = ("-2" / -0.1e1); print "not " if $v ne q{2}; print 'ok 494 - ("-2" / -0.1e1) --> ('.$v.")
";
$v = ("-2" / -0.2e1); print "not " if $v ne q{1}; print 'ok 495 - ("-2" / -0.2e1) --> ('.$v.")
";
$v = ("-2" / -0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 496 - ("-2" / -0.3e1) --> ('.$v.")
";
$v = ("-2" / 10); print "not " if $v ne q{-0.2}; print 'ok 497 - ("-2" / 10) --> ('.$v.")
";
$v = ("-2" / 20); print "not " if $v ne q{-0.1}; print 'ok 498 - ("-2" / 20) --> ('.$v.")
";
$v = ("-2" / 30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 499 - ("-2" / 30) --> ('.$v.")
";
$v = ("-2" / -10); print "not " if $v ne q{0.2}; print 'ok 500 - ("-2" / -10) --> ('.$v.")
";
$v = ("-2" / -20); print "not " if $v ne q{0.1}; print 'ok 501 - ("-2" / -20) --> ('.$v.")
";
$v = ("-2" / -30); print "not " if $v ne q{0.0666666666666667}; print 'ok 502 - ("-2" / -30) --> ('.$v.")
";
$v = ("-2" / @ab); print "not " if $v ne q{-2}; print 'ok 503 - ("-2" / @ab) --> ('.$v.")
";
$v = ("-2" / @ac); print "not " if $v ne q{-0.666666666666667}; print 'ok 504 - ("-2" / @ac) --> ('.$v.")
";
$v = ("-3" / "1"); print "not " if $v ne q{-3}; print 'ok 505 - ("-3" / "1") --> ('.$v.")
";
$v = ("-3" / "2"); print "not " if $v ne q{-1.5}; print 'ok 506 - ("-3" / "2") --> ('.$v.")
";
$v = ("-3" / "3"); print "not " if $v ne q{-1}; print 'ok 507 - ("-3" / "3") --> ('.$v.")
";
$v = ("-3" / "-1"); print "not " if $v ne q{3}; print 'ok 508 - ("-3" / "-1") --> ('.$v.")
";
$v = ("-3" / "-2"); print "not " if $v ne q{1.5}; print 'ok 509 - ("-3" / "-2") --> ('.$v.")
";
$v = ("-3" / "-3"); print "not " if $v ne q{1}; print 'ok 510 - ("-3" / "-3") --> ('.$v.")
";
$v = ("-3" / ".1"); print "not " if $v ne q{-30}; print 'ok 511 - ("-3" / ".1") --> ('.$v.")
";
$v = ("-3" / ".2"); print "not " if $v ne q{-15}; print 'ok 512 - ("-3" / ".2") --> ('.$v.")
";
$v = ("-3" / ".3"); print "not " if $v ne q{-10}; print 'ok 513 - ("-3" / ".3") --> ('.$v.")
";
$v = ("-3" / "-.1"); print "not " if $v ne q{30}; print 'ok 514 - ("-3" / "-.1") --> ('.$v.")
";
$v = ("-3" / "-.2"); print "not " if $v ne q{15}; print 'ok 515 - ("-3" / "-.2") --> ('.$v.")
";
$v = ("-3" / "-.3"); print "not " if $v ne q{10}; print 'ok 516 - ("-3" / "-.3") --> ('.$v.")
";
$v = ("-3" / "0.1"); print "not " if $v ne q{-30}; print 'ok 517 - ("-3" / "0.1") --> ('.$v.")
";
$v = ("-3" / "0.2"); print "not " if $v ne q{-15}; print 'ok 518 - ("-3" / "0.2") --> ('.$v.")
";
$v = ("-3" / "0.3"); print "not " if $v ne q{-10}; print 'ok 519 - ("-3" / "0.3") --> ('.$v.")
";
$v = ("-3" / "-0.1"); print "not " if $v ne q{30}; print 'ok 520 - ("-3" / "-0.1") --> ('.$v.")
";
$v = ("-3" / "-0.2"); print "not " if $v ne q{15}; print 'ok 521 - ("-3" / "-0.2") --> ('.$v.")
";
$v = ("-3" / "-0.3"); print "not " if $v ne q{10}; print 'ok 522 - ("-3" / "-0.3") --> ('.$v.")
";
$v = ("-3" / "0.1e1"); print "not " if $v ne q{-3}; print 'ok 523 - ("-3" / "0.1e1") --> ('.$v.")
";
$v = ("-3" / "0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 524 - ("-3" / "0.2e1") --> ('.$v.")
";
$v = ("-3" / "0.3e1"); print "not " if $v ne q{-1}; print 'ok 525 - ("-3" / "0.3e1") --> ('.$v.")
";
$v = ("-3" / "-0.1e1"); print "not " if $v ne q{3}; print 'ok 526 - ("-3" / "-0.1e1") --> ('.$v.")
";
$v = ("-3" / "-0.2e1"); print "not " if $v ne q{1.5}; print 'ok 527 - ("-3" / "-0.2e1") --> ('.$v.")
";
$v = ("-3" / "-0.3e1"); print "not " if $v ne q{1}; print 'ok 528 - ("-3" / "-0.3e1") --> ('.$v.")
";
$v = ("-3" / "10"); print "not " if $v ne q{-0.3}; print 'ok 529 - ("-3" / "10") --> ('.$v.")
";
$v = ("-3" / "20"); print "not " if $v ne q{-0.15}; print 'ok 530 - ("-3" / "20") --> ('.$v.")
";
$v = ("-3" / "30"); print "not " if $v ne q{-0.1}; print 'ok 531 - ("-3" / "30") --> ('.$v.")
";
$v = ("-3" / "-10"); print "not " if $v ne q{0.3}; print 'ok 532 - ("-3" / "-10") --> ('.$v.")
";
$v = ("-3" / "-20"); print "not " if $v ne q{0.15}; print 'ok 533 - ("-3" / "-20") --> ('.$v.")
";
$v = ("-3" / "-30"); print "not " if $v ne q{0.1}; print 'ok 534 - ("-3" / "-30") --> ('.$v.")
";
$v = ("-3" / .1); print "not " if $v ne q{-30}; print 'ok 535 - ("-3" / .1) --> ('.$v.")
";
$v = ("-3" / .2); print "not " if $v ne q{-15}; print 'ok 536 - ("-3" / .2) --> ('.$v.")
";
$v = ("-3" / .3); print "not " if $v ne q{-10}; print 'ok 537 - ("-3" / .3) --> ('.$v.")
";
$v = ("-3" / -.1); print "not " if $v ne q{30}; print 'ok 538 - ("-3" / -.1) --> ('.$v.")
";
$v = ("-3" / -.2); print "not " if $v ne q{15}; print 'ok 539 - ("-3" / -.2) --> ('.$v.")
";
$v = ("-3" / -.3); print "not " if $v ne q{10}; print 'ok 540 - ("-3" / -.3) --> ('.$v.")
";
$v = ("-3" / 0.1); print "not " if $v ne q{-30}; print 'ok 541 - ("-3" / 0.1) --> ('.$v.")
";
$v = ("-3" / 0.2); print "not " if $v ne q{-15}; print 'ok 542 - ("-3" / 0.2) --> ('.$v.")
";
$v = ("-3" / 0.3); print "not " if $v ne q{-10}; print 'ok 543 - ("-3" / 0.3) --> ('.$v.")
";
$v = ("-3" / -0.1); print "not " if $v ne q{30}; print 'ok 544 - ("-3" / -0.1) --> ('.$v.")
";
$v = ("-3" / -0.2); print "not " if $v ne q{15}; print 'ok 545 - ("-3" / -0.2) --> ('.$v.")
";
$v = ("-3" / -0.3); print "not " if $v ne q{10}; print 'ok 546 - ("-3" / -0.3) --> ('.$v.")
";
$v = ("-3" / 0.1e1); print "not " if $v ne q{-3}; print 'ok 547 - ("-3" / 0.1e1) --> ('.$v.")
";
$v = ("-3" / 0.2e1); print "not " if $v ne q{-1.5}; print 'ok 548 - ("-3" / 0.2e1) --> ('.$v.")
";
$v = ("-3" / 0.3e1); print "not " if $v ne q{-1}; print 'ok 549 - ("-3" / 0.3e1) --> ('.$v.")
";
$v = ("-3" / -0.1e1); print "not " if $v ne q{3}; print 'ok 550 - ("-3" / -0.1e1) --> ('.$v.")
";
$v = ("-3" / -0.2e1); print "not " if $v ne q{1.5}; print 'ok 551 - ("-3" / -0.2e1) --> ('.$v.")
";
$v = ("-3" / -0.3e1); print "not " if $v ne q{1}; print 'ok 552 - ("-3" / -0.3e1) --> ('.$v.")
";
$v = ("-3" / 10); print "not " if $v ne q{-0.3}; print 'ok 553 - ("-3" / 10) --> ('.$v.")
";
$v = ("-3" / 20); print "not " if $v ne q{-0.15}; print 'ok 554 - ("-3" / 20) --> ('.$v.")
";
$v = ("-3" / 30); print "not " if $v ne q{-0.1}; print 'ok 555 - ("-3" / 30) --> ('.$v.")
";
$v = ("-3" / -10); print "not " if $v ne q{0.3}; print 'ok 556 - ("-3" / -10) --> ('.$v.")
";
$v = ("-3" / -20); print "not " if $v ne q{0.15}; print 'ok 557 - ("-3" / -20) --> ('.$v.")
";
$v = ("-3" / -30); print "not " if $v ne q{0.1}; print 'ok 558 - ("-3" / -30) --> ('.$v.")
";
$v = ("-3" / @ab); print "not " if $v ne q{-3}; print 'ok 559 - ("-3" / @ab) --> ('.$v.")
";
$v = ("-3" / @ac); print "not " if $v ne q{-1}; print 'ok 560 - ("-3" / @ac) --> ('.$v.")
";
$v = ("." / "1"); print "not " if $v ne q{0}; print 'ok 561 - ("." / "1") --> ('.$v.")
";
$v = ("." / "2"); print "not " if $v ne q{0}; print 'ok 562 - ("." / "2") --> ('.$v.")
";
$v = ("." / "3"); print "not " if $v ne q{0}; print 'ok 563 - ("." / "3") --> ('.$v.")
";
$v = ("." / "-1"); print "not " if $v ne q{0}; print 'ok 564 - ("." / "-1") --> ('.$v.")
";
$v = ("." / "-2"); print "not " if $v ne q{0}; print 'ok 565 - ("." / "-2") --> ('.$v.")
";
$v = ("." / "-3"); print "not " if $v ne q{0}; print 'ok 566 - ("." / "-3") --> ('.$v.")
";
$v = ("." / ".1"); print "not " if $v ne q{0}; print 'ok 567 - ("." / ".1") --> ('.$v.")
";
$v = ("." / ".2"); print "not " if $v ne q{0}; print 'ok 568 - ("." / ".2") --> ('.$v.")
";
$v = ("." / ".3"); print "not " if $v ne q{0}; print 'ok 569 - ("." / ".3") --> ('.$v.")
";
$v = ("." / "-.1"); print "not " if $v ne q{0}; print 'ok 570 - ("." / "-.1") --> ('.$v.")
";
$v = ("." / "-.2"); print "not " if $v ne q{0}; print 'ok 571 - ("." / "-.2") --> ('.$v.")
";
$v = ("." / "-.3"); print "not " if $v ne q{0}; print 'ok 572 - ("." / "-.3") --> ('.$v.")
";
$v = ("." / "0.1"); print "not " if $v ne q{0}; print 'ok 573 - ("." / "0.1") --> ('.$v.")
";
$v = ("." / "0.2"); print "not " if $v ne q{0}; print 'ok 574 - ("." / "0.2") --> ('.$v.")
";
$v = ("." / "0.3"); print "not " if $v ne q{0}; print 'ok 575 - ("." / "0.3") --> ('.$v.")
";
$v = ("." / "-0.1"); print "not " if $v ne q{0}; print 'ok 576 - ("." / "-0.1") --> ('.$v.")
";
$v = ("." / "-0.2"); print "not " if $v ne q{0}; print 'ok 577 - ("." / "-0.2") --> ('.$v.")
";
$v = ("." / "-0.3"); print "not " if $v ne q{0}; print 'ok 578 - ("." / "-0.3") --> ('.$v.")
";
$v = ("." / "0.1e1"); print "not " if $v ne q{0}; print 'ok 579 - ("." / "0.1e1") --> ('.$v.")
";
$v = ("." / "0.2e1"); print "not " if $v ne q{0}; print 'ok 580 - ("." / "0.2e1") --> ('.$v.")
";
$v = ("." / "0.3e1"); print "not " if $v ne q{0}; print 'ok 581 - ("." / "0.3e1") --> ('.$v.")
";
$v = ("." / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 582 - ("." / "-0.1e1") --> ('.$v.")
";
$v = ("." / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 583 - ("." / "-0.2e1") --> ('.$v.")
";
$v = ("." / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 584 - ("." / "-0.3e1") --> ('.$v.")
";
$v = ("." / "10"); print "not " if $v ne q{0}; print 'ok 585 - ("." / "10") --> ('.$v.")
";
$v = ("." / "20"); print "not " if $v ne q{0}; print 'ok 586 - ("." / "20") --> ('.$v.")
";
$v = ("." / "30"); print "not " if $v ne q{0}; print 'ok 587 - ("." / "30") --> ('.$v.")
";
$v = ("." / "-10"); print "not " if $v ne q{0}; print 'ok 588 - ("." / "-10") --> ('.$v.")
";
$v = ("." / "-20"); print "not " if $v ne q{0}; print 'ok 589 - ("." / "-20") --> ('.$v.")
";
$v = ("." / "-30"); print "not " if $v ne q{0}; print 'ok 590 - ("." / "-30") --> ('.$v.")
";
$v = ("." / .1); print "not " if $v ne q{0}; print 'ok 591 - ("." / .1) --> ('.$v.")
";
$v = ("." / .2); print "not " if $v ne q{0}; print 'ok 592 - ("." / .2) --> ('.$v.")
";
$v = ("." / .3); print "not " if $v ne q{0}; print 'ok 593 - ("." / .3) --> ('.$v.")
";
$v = ("." / -.1); print "not " if $v ne q{0}; print 'ok 594 - ("." / -.1) --> ('.$v.")
";
$v = ("." / -.2); print "not " if $v ne q{0}; print 'ok 595 - ("." / -.2) --> ('.$v.")
";
$v = ("." / -.3); print "not " if $v ne q{0}; print 'ok 596 - ("." / -.3) --> ('.$v.")
";
$v = ("." / 0.1); print "not " if $v ne q{0}; print 'ok 597 - ("." / 0.1) --> ('.$v.")
";
$v = ("." / 0.2); print "not " if $v ne q{0}; print 'ok 598 - ("." / 0.2) --> ('.$v.")
";
$v = ("." / 0.3); print "not " if $v ne q{0}; print 'ok 599 - ("." / 0.3) --> ('.$v.")
";
$v = ("." / -0.1); print "not " if $v ne q{0}; print 'ok 600 - ("." / -0.1) --> ('.$v.")
";
$v = ("." / -0.2); print "not " if $v ne q{0}; print 'ok 601 - ("." / -0.2) --> ('.$v.")
";
$v = ("." / -0.3); print "not " if $v ne q{0}; print 'ok 602 - ("." / -0.3) --> ('.$v.")
";
$v = ("." / 0.1e1); print "not " if $v ne q{0}; print 'ok 603 - ("." / 0.1e1) --> ('.$v.")
";
$v = ("." / 0.2e1); print "not " if $v ne q{0}; print 'ok 604 - ("." / 0.2e1) --> ('.$v.")
";
$v = ("." / 0.3e1); print "not " if $v ne q{0}; print 'ok 605 - ("." / 0.3e1) --> ('.$v.")
";
$v = ("." / -0.1e1); print "not " if $v ne q{0}; print 'ok 606 - ("." / -0.1e1) --> ('.$v.")
";
$v = ("." / -0.2e1); print "not " if $v ne q{0}; print 'ok 607 - ("." / -0.2e1) --> ('.$v.")
";
$v = ("." / -0.3e1); print "not " if $v ne q{0}; print 'ok 608 - ("." / -0.3e1) --> ('.$v.")
";
$v = ("." / 10); print "not " if $v ne q{0}; print 'ok 609 - ("." / 10) --> ('.$v.")
";
$v = ("." / 20); print "not " if $v ne q{0}; print 'ok 610 - ("." / 20) --> ('.$v.")
";
$v = ("." / 30); print "not " if $v ne q{0}; print 'ok 611 - ("." / 30) --> ('.$v.")
";
$v = ("." / -10); print "not " if $v ne q{0}; print 'ok 612 - ("." / -10) --> ('.$v.")
";
$v = ("." / -20); print "not " if $v ne q{0}; print 'ok 613 - ("." / -20) --> ('.$v.")
";
$v = ("." / -30); print "not " if $v ne q{0}; print 'ok 614 - ("." / -30) --> ('.$v.")
";
$v = ("." / @ab); print "not " if $v ne q{0}; print 'ok 615 - ("." / @ab) --> ('.$v.")
";
$v = ("." / @ac); print "not " if $v ne q{0}; print 'ok 616 - ("." / @ac) --> ('.$v.")
";
$v = (".0" / "1"); print "not " if $v ne q{0}; print 'ok 617 - (".0" / "1") --> ('.$v.")
";
$v = (".0" / "2"); print "not " if $v ne q{0}; print 'ok 618 - (".0" / "2") --> ('.$v.")
";
$v = (".0" / "3"); print "not " if $v ne q{0}; print 'ok 619 - (".0" / "3") --> ('.$v.")
";
$v = (".0" / "-1"); print "not " if $v ne q{0}; print 'ok 620 - (".0" / "-1") --> ('.$v.")
";
$v = (".0" / "-2"); print "not " if $v ne q{0}; print 'ok 621 - (".0" / "-2") --> ('.$v.")
";
$v = (".0" / "-3"); print "not " if $v ne q{0}; print 'ok 622 - (".0" / "-3") --> ('.$v.")
";
$v = (".0" / ".1"); print "not " if $v ne q{0}; print 'ok 623 - (".0" / ".1") --> ('.$v.")
";
$v = (".0" / ".2"); print "not " if $v ne q{0}; print 'ok 624 - (".0" / ".2") --> ('.$v.")
";
$v = (".0" / ".3"); print "not " if $v ne q{0}; print 'ok 625 - (".0" / ".3") --> ('.$v.")
";
$v = (".0" / "-.1"); print "not " if $v ne q{0}; print 'ok 626 - (".0" / "-.1") --> ('.$v.")
";
$v = (".0" / "-.2"); print "not " if $v ne q{0}; print 'ok 627 - (".0" / "-.2") --> ('.$v.")
";
$v = (".0" / "-.3"); print "not " if $v ne q{0}; print 'ok 628 - (".0" / "-.3") --> ('.$v.")
";
$v = (".0" / "0.1"); print "not " if $v ne q{0}; print 'ok 629 - (".0" / "0.1") --> ('.$v.")
";
$v = (".0" / "0.2"); print "not " if $v ne q{0}; print 'ok 630 - (".0" / "0.2") --> ('.$v.")
";
$v = (".0" / "0.3"); print "not " if $v ne q{0}; print 'ok 631 - (".0" / "0.3") --> ('.$v.")
";
$v = (".0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 632 - (".0" / "-0.1") --> ('.$v.")
";
$v = (".0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 633 - (".0" / "-0.2") --> ('.$v.")
";
$v = (".0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 634 - (".0" / "-0.3") --> ('.$v.")
";
$v = (".0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 635 - (".0" / "0.1e1") --> ('.$v.")
";
$v = (".0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 636 - (".0" / "0.2e1") --> ('.$v.")
";
$v = (".0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 637 - (".0" / "0.3e1") --> ('.$v.")
";
$v = (".0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 638 - (".0" / "-0.1e1") --> ('.$v.")
";
$v = (".0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 639 - (".0" / "-0.2e1") --> ('.$v.")
";
$v = (".0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 640 - (".0" / "-0.3e1") --> ('.$v.")
";
$v = (".0" / "10"); print "not " if $v ne q{0}; print 'ok 641 - (".0" / "10") --> ('.$v.")
";
$v = (".0" / "20"); print "not " if $v ne q{0}; print 'ok 642 - (".0" / "20") --> ('.$v.")
";
$v = (".0" / "30"); print "not " if $v ne q{0}; print 'ok 643 - (".0" / "30") --> ('.$v.")
";
$v = (".0" / "-10"); print "not " if $v ne q{0}; print 'ok 644 - (".0" / "-10") --> ('.$v.")
";
$v = (".0" / "-20"); print "not " if $v ne q{0}; print 'ok 645 - (".0" / "-20") --> ('.$v.")
";
$v = (".0" / "-30"); print "not " if $v ne q{0}; print 'ok 646 - (".0" / "-30") --> ('.$v.")
";
$v = (".0" / .1); print "not " if $v ne q{0}; print 'ok 647 - (".0" / .1) --> ('.$v.")
";
$v = (".0" / .2); print "not " if $v ne q{0}; print 'ok 648 - (".0" / .2) --> ('.$v.")
";
$v = (".0" / .3); print "not " if $v ne q{0}; print 'ok 649 - (".0" / .3) --> ('.$v.")
";
$v = (".0" / -.1); print "not " if $v ne q{0}; print 'ok 650 - (".0" / -.1) --> ('.$v.")
";
$v = (".0" / -.2); print "not " if $v ne q{0}; print 'ok 651 - (".0" / -.2) --> ('.$v.")
";
$v = (".0" / -.3); print "not " if $v ne q{0}; print 'ok 652 - (".0" / -.3) --> ('.$v.")
";
$v = (".0" / 0.1); print "not " if $v ne q{0}; print 'ok 653 - (".0" / 0.1) --> ('.$v.")
";
$v = (".0" / 0.2); print "not " if $v ne q{0}; print 'ok 654 - (".0" / 0.2) --> ('.$v.")
";
$v = (".0" / 0.3); print "not " if $v ne q{0}; print 'ok 655 - (".0" / 0.3) --> ('.$v.")
";
$v = (".0" / -0.1); print "not " if $v ne q{0}; print 'ok 656 - (".0" / -0.1) --> ('.$v.")
";
$v = (".0" / -0.2); print "not " if $v ne q{0}; print 'ok 657 - (".0" / -0.2) --> ('.$v.")
";
$v = (".0" / -0.3); print "not " if $v ne q{0}; print 'ok 658 - (".0" / -0.3) --> ('.$v.")
";
$v = (".0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 659 - (".0" / 0.1e1) --> ('.$v.")
";
$v = (".0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 660 - (".0" / 0.2e1) --> ('.$v.")
";
$v = (".0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 661 - (".0" / 0.3e1) --> ('.$v.")
";
$v = (".0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 662 - (".0" / -0.1e1) --> ('.$v.")
";
$v = (".0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 663 - (".0" / -0.2e1) --> ('.$v.")
";
$v = (".0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 664 - (".0" / -0.3e1) --> ('.$v.")
";
$v = (".0" / 10); print "not " if $v ne q{0}; print 'ok 665 - (".0" / 10) --> ('.$v.")
";
$v = (".0" / 20); print "not " if $v ne q{0}; print 'ok 666 - (".0" / 20) --> ('.$v.")
";
$v = (".0" / 30); print "not " if $v ne q{0}; print 'ok 667 - (".0" / 30) --> ('.$v.")
";
$v = (".0" / -10); print "not " if $v ne q{0}; print 'ok 668 - (".0" / -10) --> ('.$v.")
";
$v = (".0" / -20); print "not " if $v ne q{0}; print 'ok 669 - (".0" / -20) --> ('.$v.")
";
$v = (".0" / -30); print "not " if $v ne q{0}; print 'ok 670 - (".0" / -30) --> ('.$v.")
";
$v = (".0" / @ab); print "not " if $v ne q{0}; print 'ok 671 - (".0" / @ab) --> ('.$v.")
";
$v = (".0" / @ac); print "not " if $v ne q{0}; print 'ok 672 - (".0" / @ac) --> ('.$v.")
";
$v = (".1" / "1"); print "not " if $v ne q{0.1}; print 'ok 673 - (".1" / "1") --> ('.$v.")
";
$v = (".1" / "2"); print "not " if $v ne q{0.05}; print 'ok 674 - (".1" / "2") --> ('.$v.")
";
$v = (".1" / "3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 675 - (".1" / "3") --> ('.$v.")
";
$v = (".1" / "-1"); print "not " if $v ne q{-0.1}; print 'ok 676 - (".1" / "-1") --> ('.$v.")
";
$v = (".1" / "-2"); print "not " if $v ne q{-0.05}; print 'ok 677 - (".1" / "-2") --> ('.$v.")
";
$v = (".1" / "-3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 678 - (".1" / "-3") --> ('.$v.")
";
$v = (".1" / ".1"); print "not " if $v ne q{1}; print 'ok 679 - (".1" / ".1") --> ('.$v.")
";
$v = (".1" / ".2"); print "not " if $v ne q{0.5}; print 'ok 680 - (".1" / ".2") --> ('.$v.")
";
$v = (".1" / ".3"); print "not " if $v ne q{0.333333333333333}; print 'ok 681 - (".1" / ".3") --> ('.$v.")
";
$v = (".1" / "-.1"); print "not " if $v ne q{-1}; print 'ok 682 - (".1" / "-.1") --> ('.$v.")
";
$v = (".1" / "-.2"); print "not " if $v ne q{-0.5}; print 'ok 683 - (".1" / "-.2") --> ('.$v.")
";
$v = (".1" / "-.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 684 - (".1" / "-.3") --> ('.$v.")
";
$v = (".1" / "0.1"); print "not " if $v ne q{1}; print 'ok 685 - (".1" / "0.1") --> ('.$v.")
";
$v = (".1" / "0.2"); print "not " if $v ne q{0.5}; print 'ok 686 - (".1" / "0.2") --> ('.$v.")
";
$v = (".1" / "0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 687 - (".1" / "0.3") --> ('.$v.")
";
$v = (".1" / "-0.1"); print "not " if $v ne q{-1}; print 'ok 688 - (".1" / "-0.1") --> ('.$v.")
";
$v = (".1" / "-0.2"); print "not " if $v ne q{-0.5}; print 'ok 689 - (".1" / "-0.2") --> ('.$v.")
";
$v = (".1" / "-0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 690 - (".1" / "-0.3") --> ('.$v.")
";
$v = (".1" / "0.1e1"); print "not " if $v ne q{0.1}; print 'ok 691 - (".1" / "0.1e1") --> ('.$v.")
";
$v = (".1" / "0.2e1"); print "not " if $v ne q{0.05}; print 'ok 692 - (".1" / "0.2e1") --> ('.$v.")
";
$v = (".1" / "0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 693 - (".1" / "0.3e1") --> ('.$v.")
";
$v = (".1" / "-0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 694 - (".1" / "-0.1e1") --> ('.$v.")
";
$v = (".1" / "-0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 695 - (".1" / "-0.2e1") --> ('.$v.")
";
$v = (".1" / "-0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 696 - (".1" / "-0.3e1") --> ('.$v.")
";
$v = (".1" / "10"); print "not " if $v ne q{0.01}; print 'ok 697 - (".1" / "10") --> ('.$v.")
";
$v = (".1" / "20"); print "not " if $v ne q{0.005}; print 'ok 698 - (".1" / "20") --> ('.$v.")
";
$v = (".1" / "30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 699 - (".1" / "30") --> ('.$v.")
";
$v = (".1" / "-10"); print "not " if $v ne q{-0.01}; print 'ok 700 - (".1" / "-10") --> ('.$v.")
";
$v = (".1" / "-20"); print "not " if $v ne q{-0.005}; print 'ok 701 - (".1" / "-20") --> ('.$v.")
";
$v = (".1" / "-30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 702 - (".1" / "-30") --> ('.$v.")
";
$v = (".1" / .1); print "not " if $v ne q{1}; print 'ok 703 - (".1" / .1) --> ('.$v.")
";
$v = (".1" / .2); print "not " if $v ne q{0.5}; print 'ok 704 - (".1" / .2) --> ('.$v.")
";
$v = (".1" / .3); print "not " if $v ne q{0.333333333333333}; print 'ok 705 - (".1" / .3) --> ('.$v.")
";
$v = (".1" / -.1); print "not " if $v ne q{-1}; print 'ok 706 - (".1" / -.1) --> ('.$v.")
";
$v = (".1" / -.2); print "not " if $v ne q{-0.5}; print 'ok 707 - (".1" / -.2) --> ('.$v.")
";
$v = (".1" / -.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 708 - (".1" / -.3) --> ('.$v.")
";
$v = (".1" / 0.1); print "not " if $v ne q{1}; print 'ok 709 - (".1" / 0.1) --> ('.$v.")
";
$v = (".1" / 0.2); print "not " if $v ne q{0.5}; print 'ok 710 - (".1" / 0.2) --> ('.$v.")
";
$v = (".1" / 0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 711 - (".1" / 0.3) --> ('.$v.")
";
$v = (".1" / -0.1); print "not " if $v ne q{-1}; print 'ok 712 - (".1" / -0.1) --> ('.$v.")
";
$v = (".1" / -0.2); print "not " if $v ne q{-0.5}; print 'ok 713 - (".1" / -0.2) --> ('.$v.")
";
$v = (".1" / -0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 714 - (".1" / -0.3) --> ('.$v.")
";
$v = (".1" / 0.1e1); print "not " if $v ne q{0.1}; print 'ok 715 - (".1" / 0.1e1) --> ('.$v.")
";
$v = (".1" / 0.2e1); print "not " if $v ne q{0.05}; print 'ok 716 - (".1" / 0.2e1) --> ('.$v.")
";
$v = (".1" / 0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 717 - (".1" / 0.3e1) --> ('.$v.")
";
$v = (".1" / -0.1e1); print "not " if $v ne q{-0.1}; print 'ok 718 - (".1" / -0.1e1) --> ('.$v.")
";
$v = (".1" / -0.2e1); print "not " if $v ne q{-0.05}; print 'ok 719 - (".1" / -0.2e1) --> ('.$v.")
";
$v = (".1" / -0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 720 - (".1" / -0.3e1) --> ('.$v.")
";
$v = (".1" / 10); print "not " if $v ne q{0.01}; print 'ok 721 - (".1" / 10) --> ('.$v.")
";
$v = (".1" / 20); print "not " if $v ne q{0.005}; print 'ok 722 - (".1" / 20) --> ('.$v.")
";
$v = (".1" / 30); print "not " if $v ne q{0.00333333333333333}; print 'ok 723 - (".1" / 30) --> ('.$v.")
";
$v = (".1" / -10); print "not " if $v ne q{-0.01}; print 'ok 724 - (".1" / -10) --> ('.$v.")
";
$v = (".1" / -20); print "not " if $v ne q{-0.005}; print 'ok 725 - (".1" / -20) --> ('.$v.")
";
$v = (".1" / -30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 726 - (".1" / -30) --> ('.$v.")
";
$v = (".1" / @ab); print "not " if $v ne q{0.1}; print 'ok 727 - (".1" / @ab) --> ('.$v.")
";
$v = (".1" / @ac); print "not " if $v ne q{0.0333333333333333}; print 'ok 728 - (".1" / @ac) --> ('.$v.")
";
$v = (".2" / "1"); print "not " if $v ne q{0.2}; print 'ok 729 - (".2" / "1") --> ('.$v.")
";
$v = (".2" / "2"); print "not " if $v ne q{0.1}; print 'ok 730 - (".2" / "2") --> ('.$v.")
";
$v = (".2" / "3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 731 - (".2" / "3") --> ('.$v.")
";
$v = (".2" / "-1"); print "not " if $v ne q{-0.2}; print 'ok 732 - (".2" / "-1") --> ('.$v.")
";
$v = (".2" / "-2"); print "not " if $v ne q{-0.1}; print 'ok 733 - (".2" / "-2") --> ('.$v.")
";
$v = (".2" / "-3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 734 - (".2" / "-3") --> ('.$v.")
";
$v = (".2" / ".1"); print "not " if $v ne q{2}; print 'ok 735 - (".2" / ".1") --> ('.$v.")
";
$v = (".2" / ".2"); print "not " if $v ne q{1}; print 'ok 736 - (".2" / ".2") --> ('.$v.")
";
$v = (".2" / ".3"); print "not " if $v ne q{0.666666666666667}; print 'ok 737 - (".2" / ".3") --> ('.$v.")
";
$v = (".2" / "-.1"); print "not " if $v ne q{-2}; print 'ok 738 - (".2" / "-.1") --> ('.$v.")
";
$v = (".2" / "-.2"); print "not " if $v ne q{-1}; print 'ok 739 - (".2" / "-.2") --> ('.$v.")
";
$v = (".2" / "-.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 740 - (".2" / "-.3") --> ('.$v.")
";
$v = (".2" / "0.1"); print "not " if $v ne q{2}; print 'ok 741 - (".2" / "0.1") --> ('.$v.")
";
$v = (".2" / "0.2"); print "not " if $v ne q{1}; print 'ok 742 - (".2" / "0.2") --> ('.$v.")
";
$v = (".2" / "0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 743 - (".2" / "0.3") --> ('.$v.")
";
$v = (".2" / "-0.1"); print "not " if $v ne q{-2}; print 'ok 744 - (".2" / "-0.1") --> ('.$v.")
";
$v = (".2" / "-0.2"); print "not " if $v ne q{-1}; print 'ok 745 - (".2" / "-0.2") --> ('.$v.")
";
$v = (".2" / "-0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 746 - (".2" / "-0.3") --> ('.$v.")
";
$v = (".2" / "0.1e1"); print "not " if $v ne q{0.2}; print 'ok 747 - (".2" / "0.1e1") --> ('.$v.")
";
$v = (".2" / "0.2e1"); print "not " if $v ne q{0.1}; print 'ok 748 - (".2" / "0.2e1") --> ('.$v.")
";
$v = (".2" / "0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 749 - (".2" / "0.3e1") --> ('.$v.")
";
$v = (".2" / "-0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 750 - (".2" / "-0.1e1") --> ('.$v.")
";
$v = (".2" / "-0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 751 - (".2" / "-0.2e1") --> ('.$v.")
";
$v = (".2" / "-0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 752 - (".2" / "-0.3e1") --> ('.$v.")
";
$v = (".2" / "10"); print "not " if $v ne q{0.02}; print 'ok 753 - (".2" / "10") --> ('.$v.")
";
$v = (".2" / "20"); print "not " if $v ne q{0.01}; print 'ok 754 - (".2" / "20") --> ('.$v.")
";
$v = (".2" / "30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 755 - (".2" / "30") --> ('.$v.")
";
$v = (".2" / "-10"); print "not " if $v ne q{-0.02}; print 'ok 756 - (".2" / "-10") --> ('.$v.")
";
$v = (".2" / "-20"); print "not " if $v ne q{-0.01}; print 'ok 757 - (".2" / "-20") --> ('.$v.")
";
$v = (".2" / "-30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 758 - (".2" / "-30") --> ('.$v.")
";
$v = (".2" / .1); print "not " if $v ne q{2}; print 'ok 759 - (".2" / .1) --> ('.$v.")
";
$v = (".2" / .2); print "not " if $v ne q{1}; print 'ok 760 - (".2" / .2) --> ('.$v.")
";
$v = (".2" / .3); print "not " if $v ne q{0.666666666666667}; print 'ok 761 - (".2" / .3) --> ('.$v.")
";
$v = (".2" / -.1); print "not " if $v ne q{-2}; print 'ok 762 - (".2" / -.1) --> ('.$v.")
";
$v = (".2" / -.2); print "not " if $v ne q{-1}; print 'ok 763 - (".2" / -.2) --> ('.$v.")
";
$v = (".2" / -.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 764 - (".2" / -.3) --> ('.$v.")
";
$v = (".2" / 0.1); print "not " if $v ne q{2}; print 'ok 765 - (".2" / 0.1) --> ('.$v.")
";
$v = (".2" / 0.2); print "not " if $v ne q{1}; print 'ok 766 - (".2" / 0.2) --> ('.$v.")
";
$v = (".2" / 0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 767 - (".2" / 0.3) --> ('.$v.")
";
$v = (".2" / -0.1); print "not " if $v ne q{-2}; print 'ok 768 - (".2" / -0.1) --> ('.$v.")
";
$v = (".2" / -0.2); print "not " if $v ne q{-1}; print 'ok 769 - (".2" / -0.2) --> ('.$v.")
";
$v = (".2" / -0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 770 - (".2" / -0.3) --> ('.$v.")
";
$v = (".2" / 0.1e1); print "not " if $v ne q{0.2}; print 'ok 771 - (".2" / 0.1e1) --> ('.$v.")
";
$v = (".2" / 0.2e1); print "not " if $v ne q{0.1}; print 'ok 772 - (".2" / 0.2e1) --> ('.$v.")
";
$v = (".2" / 0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 773 - (".2" / 0.3e1) --> ('.$v.")
";
$v = (".2" / -0.1e1); print "not " if $v ne q{-0.2}; print 'ok 774 - (".2" / -0.1e1) --> ('.$v.")
";
$v = (".2" / -0.2e1); print "not " if $v ne q{-0.1}; print 'ok 775 - (".2" / -0.2e1) --> ('.$v.")
";
$v = (".2" / -0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 776 - (".2" / -0.3e1) --> ('.$v.")
";
$v = (".2" / 10); print "not " if $v ne q{0.02}; print 'ok 777 - (".2" / 10) --> ('.$v.")
";
$v = (".2" / 20); print "not " if $v ne q{0.01}; print 'ok 778 - (".2" / 20) --> ('.$v.")
";
$v = (".2" / 30); print "not " if $v ne q{0.00666666666666667}; print 'ok 779 - (".2" / 30) --> ('.$v.")
";
$v = (".2" / -10); print "not " if $v ne q{-0.02}; print 'ok 780 - (".2" / -10) --> ('.$v.")
";
$v = (".2" / -20); print "not " if $v ne q{-0.01}; print 'ok 781 - (".2" / -20) --> ('.$v.")
";
$v = (".2" / -30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 782 - (".2" / -30) --> ('.$v.")
";
$v = (".2" / @ab); print "not " if $v ne q{0.2}; print 'ok 783 - (".2" / @ab) --> ('.$v.")
";
$v = (".2" / @ac); print "not " if $v ne q{0.0666666666666667}; print 'ok 784 - (".2" / @ac) --> ('.$v.")
";
$v = (".3" / "1"); print "not " if $v ne q{0.3}; print 'ok 785 - (".3" / "1") --> ('.$v.")
";
$v = (".3" / "2"); print "not " if $v ne q{0.15}; print 'ok 786 - (".3" / "2") --> ('.$v.")
";
$v = (".3" / "3"); print "not " if $v ne q{0.1}; print 'ok 787 - (".3" / "3") --> ('.$v.")
";
$v = (".3" / "-1"); print "not " if $v ne q{-0.3}; print 'ok 788 - (".3" / "-1") --> ('.$v.")
";
$v = (".3" / "-2"); print "not " if $v ne q{-0.15}; print 'ok 789 - (".3" / "-2") --> ('.$v.")
";
$v = (".3" / "-3"); print "not " if $v ne q{-0.1}; print 'ok 790 - (".3" / "-3") --> ('.$v.")
";
$v = (".3" / ".1"); print "not " if $v ne q{3}; print 'ok 791 - (".3" / ".1") --> ('.$v.")
";
$v = (".3" / ".2"); print "not " if $v ne q{1.5}; print 'ok 792 - (".3" / ".2") --> ('.$v.")
";
$v = (".3" / ".3"); print "not " if $v ne q{1}; print 'ok 793 - (".3" / ".3") --> ('.$v.")
";
$v = (".3" / "-.1"); print "not " if $v ne q{-3}; print 'ok 794 - (".3" / "-.1") --> ('.$v.")
";
$v = (".3" / "-.2"); print "not " if $v ne q{-1.5}; print 'ok 795 - (".3" / "-.2") --> ('.$v.")
";
$v = (".3" / "-.3"); print "not " if $v ne q{-1}; print 'ok 796 - (".3" / "-.3") --> ('.$v.")
";
$v = (".3" / "0.1"); print "not " if $v ne q{3}; print 'ok 797 - (".3" / "0.1") --> ('.$v.")
";
$v = (".3" / "0.2"); print "not " if $v ne q{1.5}; print 'ok 798 - (".3" / "0.2") --> ('.$v.")
";
$v = (".3" / "0.3"); print "not " if $v ne q{1}; print 'ok 799 - (".3" / "0.3") --> ('.$v.")
";
$v = (".3" / "-0.1"); print "not " if $v ne q{-3}; print 'ok 800 - (".3" / "-0.1") --> ('.$v.")
";
$v = (".3" / "-0.2"); print "not " if $v ne q{-1.5}; print 'ok 801 - (".3" / "-0.2") --> ('.$v.")
";
$v = (".3" / "-0.3"); print "not " if $v ne q{-1}; print 'ok 802 - (".3" / "-0.3") --> ('.$v.")
";
$v = (".3" / "0.1e1"); print "not " if $v ne q{0.3}; print 'ok 803 - (".3" / "0.1e1") --> ('.$v.")
";
$v = (".3" / "0.2e1"); print "not " if $v ne q{0.15}; print 'ok 804 - (".3" / "0.2e1") --> ('.$v.")
";
$v = (".3" / "0.3e1"); print "not " if $v ne q{0.1}; print 'ok 805 - (".3" / "0.3e1") --> ('.$v.")
";
$v = (".3" / "-0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 806 - (".3" / "-0.1e1") --> ('.$v.")
";
$v = (".3" / "-0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 807 - (".3" / "-0.2e1") --> ('.$v.")
";
$v = (".3" / "-0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 808 - (".3" / "-0.3e1") --> ('.$v.")
";
$v = (".3" / "10"); print "not " if $v ne q{0.03}; print 'ok 809 - (".3" / "10") --> ('.$v.")
";
$v = (".3" / "20"); print "not " if $v ne q{0.015}; print 'ok 810 - (".3" / "20") --> ('.$v.")
";
$v = (".3" / "30"); print "not " if $v ne q{0.01}; print 'ok 811 - (".3" / "30") --> ('.$v.")
";
$v = (".3" / "-10"); print "not " if $v ne q{-0.03}; print 'ok 812 - (".3" / "-10") --> ('.$v.")
";
$v = (".3" / "-20"); print "not " if $v ne q{-0.015}; print 'ok 813 - (".3" / "-20") --> ('.$v.")
";
$v = (".3" / "-30"); print "not " if $v ne q{-0.01}; print 'ok 814 - (".3" / "-30") --> ('.$v.")
";
$v = (".3" / .1); print "not " if $v ne q{3}; print 'ok 815 - (".3" / .1) --> ('.$v.")
";
$v = (".3" / .2); print "not " if $v ne q{1.5}; print 'ok 816 - (".3" / .2) --> ('.$v.")
";
$v = (".3" / .3); print "not " if $v ne q{1}; print 'ok 817 - (".3" / .3) --> ('.$v.")
";
$v = (".3" / -.1); print "not " if $v ne q{-3}; print 'ok 818 - (".3" / -.1) --> ('.$v.")
";
$v = (".3" / -.2); print "not " if $v ne q{-1.5}; print 'ok 819 - (".3" / -.2) --> ('.$v.")
";
$v = (".3" / -.3); print "not " if $v ne q{-1}; print 'ok 820 - (".3" / -.3) --> ('.$v.")
";
$v = (".3" / 0.1); print "not " if $v ne q{3}; print 'ok 821 - (".3" / 0.1) --> ('.$v.")
";
$v = (".3" / 0.2); print "not " if $v ne q{1.5}; print 'ok 822 - (".3" / 0.2) --> ('.$v.")
";
$v = (".3" / 0.3); print "not " if $v ne q{1}; print 'ok 823 - (".3" / 0.3) --> ('.$v.")
";
$v = (".3" / -0.1); print "not " if $v ne q{-3}; print 'ok 824 - (".3" / -0.1) --> ('.$v.")
";
$v = (".3" / -0.2); print "not " if $v ne q{-1.5}; print 'ok 825 - (".3" / -0.2) --> ('.$v.")
";
$v = (".3" / -0.3); print "not " if $v ne q{-1}; print 'ok 826 - (".3" / -0.3) --> ('.$v.")
";
$v = (".3" / 0.1e1); print "not " if $v ne q{0.3}; print 'ok 827 - (".3" / 0.1e1) --> ('.$v.")
";
$v = (".3" / 0.2e1); print "not " if $v ne q{0.15}; print 'ok 828 - (".3" / 0.2e1) --> ('.$v.")
";
$v = (".3" / 0.3e1); print "not " if $v ne q{0.1}; print 'ok 829 - (".3" / 0.3e1) --> ('.$v.")
";
$v = (".3" / -0.1e1); print "not " if $v ne q{-0.3}; print 'ok 830 - (".3" / -0.1e1) --> ('.$v.")
";
$v = (".3" / -0.2e1); print "not " if $v ne q{-0.15}; print 'ok 831 - (".3" / -0.2e1) --> ('.$v.")
";
$v = (".3" / -0.3e1); print "not " if $v ne q{-0.1}; print 'ok 832 - (".3" / -0.3e1) --> ('.$v.")
";
$v = (".3" / 10); print "not " if $v ne q{0.03}; print 'ok 833 - (".3" / 10) --> ('.$v.")
";
$v = (".3" / 20); print "not " if $v ne q{0.015}; print 'ok 834 - (".3" / 20) --> ('.$v.")
";
$v = (".3" / 30); print "not " if $v ne q{0.01}; print 'ok 835 - (".3" / 30) --> ('.$v.")
";
$v = (".3" / -10); print "not " if $v ne q{-0.03}; print 'ok 836 - (".3" / -10) --> ('.$v.")
";
$v = (".3" / -20); print "not " if $v ne q{-0.015}; print 'ok 837 - (".3" / -20) --> ('.$v.")
";
$v = (".3" / -30); print "not " if $v ne q{-0.01}; print 'ok 838 - (".3" / -30) --> ('.$v.")
";
$v = (".3" / @ab); print "not " if $v ne q{0.3}; print 'ok 839 - (".3" / @ab) --> ('.$v.")
";
$v = (".3" / @ac); print "not " if $v ne q{0.1}; print 'ok 840 - (".3" / @ac) --> ('.$v.")
";
$v = ("-.0" / "1"); print "not " if $v ne q{0}; print 'ok 841 - ("-.0" / "1") --> ('.$v.")
";
$v = ("-.0" / "2"); print "not " if $v ne q{0}; print 'ok 842 - ("-.0" / "2") --> ('.$v.")
";
$v = ("-.0" / "3"); print "not " if $v ne q{0}; print 'ok 843 - ("-.0" / "3") --> ('.$v.")
";
$v = ("-.0" / "-1"); print "not " if $v ne q{0}; print 'ok 844 - ("-.0" / "-1") --> ('.$v.")
";
$v = ("-.0" / "-2"); print "not " if $v ne q{0}; print 'ok 845 - ("-.0" / "-2") --> ('.$v.")
";
$v = ("-.0" / "-3"); print "not " if $v ne q{0}; print 'ok 846 - ("-.0" / "-3") --> ('.$v.")
";
$v = ("-.0" / ".1"); print "not " if $v ne q{0}; print 'ok 847 - ("-.0" / ".1") --> ('.$v.")
";
$v = ("-.0" / ".2"); print "not " if $v ne q{0}; print 'ok 848 - ("-.0" / ".2") --> ('.$v.")
";
$v = ("-.0" / ".3"); print "not " if $v ne q{0}; print 'ok 849 - ("-.0" / ".3") --> ('.$v.")
";
$v = ("-.0" / "-.1"); print "not " if $v ne q{0}; print 'ok 850 - ("-.0" / "-.1") --> ('.$v.")
";
$v = ("-.0" / "-.2"); print "not " if $v ne q{0}; print 'ok 851 - ("-.0" / "-.2") --> ('.$v.")
";
$v = ("-.0" / "-.3"); print "not " if $v ne q{0}; print 'ok 852 - ("-.0" / "-.3") --> ('.$v.")
";
$v = ("-.0" / "0.1"); print "not " if $v ne q{0}; print 'ok 853 - ("-.0" / "0.1") --> ('.$v.")
";
$v = ("-.0" / "0.2"); print "not " if $v ne q{0}; print 'ok 854 - ("-.0" / "0.2") --> ('.$v.")
";
$v = ("-.0" / "0.3"); print "not " if $v ne q{0}; print 'ok 855 - ("-.0" / "0.3") --> ('.$v.")
";
$v = ("-.0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 856 - ("-.0" / "-0.1") --> ('.$v.")
";
$v = ("-.0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 857 - ("-.0" / "-0.2") --> ('.$v.")
";
$v = ("-.0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 858 - ("-.0" / "-0.3") --> ('.$v.")
";
$v = ("-.0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 859 - ("-.0" / "0.1e1") --> ('.$v.")
";
$v = ("-.0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 860 - ("-.0" / "0.2e1") --> ('.$v.")
";
$v = ("-.0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 861 - ("-.0" / "0.3e1") --> ('.$v.")
";
$v = ("-.0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 862 - ("-.0" / "-0.1e1") --> ('.$v.")
";
$v = ("-.0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 863 - ("-.0" / "-0.2e1") --> ('.$v.")
";
$v = ("-.0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 864 - ("-.0" / "-0.3e1") --> ('.$v.")
";
$v = ("-.0" / "10"); print "not " if $v ne q{0}; print 'ok 865 - ("-.0" / "10") --> ('.$v.")
";
$v = ("-.0" / "20"); print "not " if $v ne q{0}; print 'ok 866 - ("-.0" / "20") --> ('.$v.")
";
$v = ("-.0" / "30"); print "not " if $v ne q{0}; print 'ok 867 - ("-.0" / "30") --> ('.$v.")
";
$v = ("-.0" / "-10"); print "not " if $v ne q{0}; print 'ok 868 - ("-.0" / "-10") --> ('.$v.")
";
$v = ("-.0" / "-20"); print "not " if $v ne q{0}; print 'ok 869 - ("-.0" / "-20") --> ('.$v.")
";
$v = ("-.0" / "-30"); print "not " if $v ne q{0}; print 'ok 870 - ("-.0" / "-30") --> ('.$v.")
";
$v = ("-.0" / .1); print "not " if $v ne q{0}; print 'ok 871 - ("-.0" / .1) --> ('.$v.")
";
$v = ("-.0" / .2); print "not " if $v ne q{0}; print 'ok 872 - ("-.0" / .2) --> ('.$v.")
";
$v = ("-.0" / .3); print "not " if $v ne q{0}; print 'ok 873 - ("-.0" / .3) --> ('.$v.")
";
$v = ("-.0" / -.1); print "not " if $v ne q{0}; print 'ok 874 - ("-.0" / -.1) --> ('.$v.")
";
$v = ("-.0" / -.2); print "not " if $v ne q{0}; print 'ok 875 - ("-.0" / -.2) --> ('.$v.")
";
$v = ("-.0" / -.3); print "not " if $v ne q{0}; print 'ok 876 - ("-.0" / -.3) --> ('.$v.")
";
$v = ("-.0" / 0.1); print "not " if $v ne q{0}; print 'ok 877 - ("-.0" / 0.1) --> ('.$v.")
";
$v = ("-.0" / 0.2); print "not " if $v ne q{0}; print 'ok 878 - ("-.0" / 0.2) --> ('.$v.")
";
$v = ("-.0" / 0.3); print "not " if $v ne q{0}; print 'ok 879 - ("-.0" / 0.3) --> ('.$v.")
";
$v = ("-.0" / -0.1); print "not " if $v ne q{0}; print 'ok 880 - ("-.0" / -0.1) --> ('.$v.")
";
$v = ("-.0" / -0.2); print "not " if $v ne q{0}; print 'ok 881 - ("-.0" / -0.2) --> ('.$v.")
";
$v = ("-.0" / -0.3); print "not " if $v ne q{0}; print 'ok 882 - ("-.0" / -0.3) --> ('.$v.")
";
$v = ("-.0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 883 - ("-.0" / 0.1e1) --> ('.$v.")
";
$v = ("-.0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 884 - ("-.0" / 0.2e1) --> ('.$v.")
";
$v = ("-.0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 885 - ("-.0" / 0.3e1) --> ('.$v.")
";
$v = ("-.0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 886 - ("-.0" / -0.1e1) --> ('.$v.")
";
$v = ("-.0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 887 - ("-.0" / -0.2e1) --> ('.$v.")
";
$v = ("-.0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 888 - ("-.0" / -0.3e1) --> ('.$v.")
";
$v = ("-.0" / 10); print "not " if $v ne q{0}; print 'ok 889 - ("-.0" / 10) --> ('.$v.")
";
$v = ("-.0" / 20); print "not " if $v ne q{0}; print 'ok 890 - ("-.0" / 20) --> ('.$v.")
";
$v = ("-.0" / 30); print "not " if $v ne q{0}; print 'ok 891 - ("-.0" / 30) --> ('.$v.")
";
$v = ("-.0" / -10); print "not " if $v ne q{0}; print 'ok 892 - ("-.0" / -10) --> ('.$v.")
";
$v = ("-.0" / -20); print "not " if $v ne q{0}; print 'ok 893 - ("-.0" / -20) --> ('.$v.")
";
$v = ("-.0" / -30); print "not " if $v ne q{0}; print 'ok 894 - ("-.0" / -30) --> ('.$v.")
";
$v = ("-.0" / @ab); print "not " if $v ne q{0}; print 'ok 895 - ("-.0" / @ab) --> ('.$v.")
";
$v = ("-.0" / @ac); print "not " if $v ne q{0}; print 'ok 896 - ("-.0" / @ac) --> ('.$v.")
";
$v = ("-.1" / "1"); print "not " if $v ne q{-0.1}; print 'ok 897 - ("-.1" / "1") --> ('.$v.")
";
$v = ("-.1" / "2"); print "not " if $v ne q{-0.05}; print 'ok 898 - ("-.1" / "2") --> ('.$v.")
";
$v = ("-.1" / "3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 899 - ("-.1" / "3") --> ('.$v.")
";
$v = ("-.1" / "-1"); print "not " if $v ne q{0.1}; print 'ok 900 - ("-.1" / "-1") --> ('.$v.")
";
$v = ("-.1" / "-2"); print "not " if $v ne q{0.05}; print 'ok 901 - ("-.1" / "-2") --> ('.$v.")
";
$v = ("-.1" / "-3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 902 - ("-.1" / "-3") --> ('.$v.")
";
$v = ("-.1" / ".1"); print "not " if $v ne q{-1}; print 'ok 903 - ("-.1" / ".1") --> ('.$v.")
";
$v = ("-.1" / ".2"); print "not " if $v ne q{-0.5}; print 'ok 904 - ("-.1" / ".2") --> ('.$v.")
";
$v = ("-.1" / ".3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 905 - ("-.1" / ".3") --> ('.$v.")
";
$v = ("-.1" / "-.1"); print "not " if $v ne q{1}; print 'ok 906 - ("-.1" / "-.1") --> ('.$v.")
";
$v = ("-.1" / "-.2"); print "not " if $v ne q{0.5}; print 'ok 907 - ("-.1" / "-.2") --> ('.$v.")
";
$v = ("-.1" / "-.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 908 - ("-.1" / "-.3") --> ('.$v.")
";
$v = ("-.1" / "0.1"); print "not " if $v ne q{-1}; print 'ok 909 - ("-.1" / "0.1") --> ('.$v.")
";
$v = ("-.1" / "0.2"); print "not " if $v ne q{-0.5}; print 'ok 910 - ("-.1" / "0.2") --> ('.$v.")
";
$v = ("-.1" / "0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 911 - ("-.1" / "0.3") --> ('.$v.")
";
$v = ("-.1" / "-0.1"); print "not " if $v ne q{1}; print 'ok 912 - ("-.1" / "-0.1") --> ('.$v.")
";
$v = ("-.1" / "-0.2"); print "not " if $v ne q{0.5}; print 'ok 913 - ("-.1" / "-0.2") --> ('.$v.")
";
$v = ("-.1" / "-0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 914 - ("-.1" / "-0.3") --> ('.$v.")
";
$v = ("-.1" / "0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 915 - ("-.1" / "0.1e1") --> ('.$v.")
";
$v = ("-.1" / "0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 916 - ("-.1" / "0.2e1") --> ('.$v.")
";
$v = ("-.1" / "0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 917 - ("-.1" / "0.3e1") --> ('.$v.")
";
$v = ("-.1" / "-0.1e1"); print "not " if $v ne q{0.1}; print 'ok 918 - ("-.1" / "-0.1e1") --> ('.$v.")
";
$v = ("-.1" / "-0.2e1"); print "not " if $v ne q{0.05}; print 'ok 919 - ("-.1" / "-0.2e1") --> ('.$v.")
";
$v = ("-.1" / "-0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 920 - ("-.1" / "-0.3e1") --> ('.$v.")
";
$v = ("-.1" / "10"); print "not " if $v ne q{-0.01}; print 'ok 921 - ("-.1" / "10") --> ('.$v.")
";
$v = ("-.1" / "20"); print "not " if $v ne q{-0.005}; print 'ok 922 - ("-.1" / "20") --> ('.$v.")
";
$v = ("-.1" / "30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 923 - ("-.1" / "30") --> ('.$v.")
";
$v = ("-.1" / "-10"); print "not " if $v ne q{0.01}; print 'ok 924 - ("-.1" / "-10") --> ('.$v.")
";
$v = ("-.1" / "-20"); print "not " if $v ne q{0.005}; print 'ok 925 - ("-.1" / "-20") --> ('.$v.")
";
$v = ("-.1" / "-30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 926 - ("-.1" / "-30") --> ('.$v.")
";
$v = ("-.1" / .1); print "not " if $v ne q{-1}; print 'ok 927 - ("-.1" / .1) --> ('.$v.")
";
$v = ("-.1" / .2); print "not " if $v ne q{-0.5}; print 'ok 928 - ("-.1" / .2) --> ('.$v.")
";
$v = ("-.1" / .3); print "not " if $v ne q{-0.333333333333333}; print 'ok 929 - ("-.1" / .3) --> ('.$v.")
";
$v = ("-.1" / -.1); print "not " if $v ne q{1}; print 'ok 930 - ("-.1" / -.1) --> ('.$v.")
";
$v = ("-.1" / -.2); print "not " if $v ne q{0.5}; print 'ok 931 - ("-.1" / -.2) --> ('.$v.")
";
$v = ("-.1" / -.3); print "not " if $v ne q{0.333333333333333}; print 'ok 932 - ("-.1" / -.3) --> ('.$v.")
";
$v = ("-.1" / 0.1); print "not " if $v ne q{-1}; print 'ok 933 - ("-.1" / 0.1) --> ('.$v.")
";
$v = ("-.1" / 0.2); print "not " if $v ne q{-0.5}; print 'ok 934 - ("-.1" / 0.2) --> ('.$v.")
";
$v = ("-.1" / 0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 935 - ("-.1" / 0.3) --> ('.$v.")
";
$v = ("-.1" / -0.1); print "not " if $v ne q{1}; print 'ok 936 - ("-.1" / -0.1) --> ('.$v.")
";
$v = ("-.1" / -0.2); print "not " if $v ne q{0.5}; print 'ok 937 - ("-.1" / -0.2) --> ('.$v.")
";
$v = ("-.1" / -0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 938 - ("-.1" / -0.3) --> ('.$v.")
";
$v = ("-.1" / 0.1e1); print "not " if $v ne q{-0.1}; print 'ok 939 - ("-.1" / 0.1e1) --> ('.$v.")
";
$v = ("-.1" / 0.2e1); print "not " if $v ne q{-0.05}; print 'ok 940 - ("-.1" / 0.2e1) --> ('.$v.")
";
$v = ("-.1" / 0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 941 - ("-.1" / 0.3e1) --> ('.$v.")
";
$v = ("-.1" / -0.1e1); print "not " if $v ne q{0.1}; print 'ok 942 - ("-.1" / -0.1e1) --> ('.$v.")
";
$v = ("-.1" / -0.2e1); print "not " if $v ne q{0.05}; print 'ok 943 - ("-.1" / -0.2e1) --> ('.$v.")
";
$v = ("-.1" / -0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 944 - ("-.1" / -0.3e1) --> ('.$v.")
";
$v = ("-.1" / 10); print "not " if $v ne q{-0.01}; print 'ok 945 - ("-.1" / 10) --> ('.$v.")
";
$v = ("-.1" / 20); print "not " if $v ne q{-0.005}; print 'ok 946 - ("-.1" / 20) --> ('.$v.")
";
$v = ("-.1" / 30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 947 - ("-.1" / 30) --> ('.$v.")
";
$v = ("-.1" / -10); print "not " if $v ne q{0.01}; print 'ok 948 - ("-.1" / -10) --> ('.$v.")
";
$v = ("-.1" / -20); print "not " if $v ne q{0.005}; print 'ok 949 - ("-.1" / -20) --> ('.$v.")
";
$v = ("-.1" / -30); print "not " if $v ne q{0.00333333333333333}; print 'ok 950 - ("-.1" / -30) --> ('.$v.")
";
$v = ("-.1" / @ab); print "not " if $v ne q{-0.1}; print 'ok 951 - ("-.1" / @ab) --> ('.$v.")
";
$v = ("-.1" / @ac); print "not " if $v ne q{-0.0333333333333333}; print 'ok 952 - ("-.1" / @ac) --> ('.$v.")
";
$v = ("-.2" / "1"); print "not " if $v ne q{-0.2}; print 'ok 953 - ("-.2" / "1") --> ('.$v.")
";
$v = ("-.2" / "2"); print "not " if $v ne q{-0.1}; print 'ok 954 - ("-.2" / "2") --> ('.$v.")
";
$v = ("-.2" / "3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 955 - ("-.2" / "3") --> ('.$v.")
";
$v = ("-.2" / "-1"); print "not " if $v ne q{0.2}; print 'ok 956 - ("-.2" / "-1") --> ('.$v.")
";
$v = ("-.2" / "-2"); print "not " if $v ne q{0.1}; print 'ok 957 - ("-.2" / "-2") --> ('.$v.")
";
$v = ("-.2" / "-3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 958 - ("-.2" / "-3") --> ('.$v.")
";
$v = ("-.2" / ".1"); print "not " if $v ne q{-2}; print 'ok 959 - ("-.2" / ".1") --> ('.$v.")
";
$v = ("-.2" / ".2"); print "not " if $v ne q{-1}; print 'ok 960 - ("-.2" / ".2") --> ('.$v.")
";
$v = ("-.2" / ".3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 961 - ("-.2" / ".3") --> ('.$v.")
";
$v = ("-.2" / "-.1"); print "not " if $v ne q{2}; print 'ok 962 - ("-.2" / "-.1") --> ('.$v.")
";
$v = ("-.2" / "-.2"); print "not " if $v ne q{1}; print 'ok 963 - ("-.2" / "-.2") --> ('.$v.")
";
$v = ("-.2" / "-.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 964 - ("-.2" / "-.3") --> ('.$v.")
";
$v = ("-.2" / "0.1"); print "not " if $v ne q{-2}; print 'ok 965 - ("-.2" / "0.1") --> ('.$v.")
";
$v = ("-.2" / "0.2"); print "not " if $v ne q{-1}; print 'ok 966 - ("-.2" / "0.2") --> ('.$v.")
";
$v = ("-.2" / "0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 967 - ("-.2" / "0.3") --> ('.$v.")
";
$v = ("-.2" / "-0.1"); print "not " if $v ne q{2}; print 'ok 968 - ("-.2" / "-0.1") --> ('.$v.")
";
$v = ("-.2" / "-0.2"); print "not " if $v ne q{1}; print 'ok 969 - ("-.2" / "-0.2") --> ('.$v.")
";
$v = ("-.2" / "-0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 970 - ("-.2" / "-0.3") --> ('.$v.")
";
$v = ("-.2" / "0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 971 - ("-.2" / "0.1e1") --> ('.$v.")
";
$v = ("-.2" / "0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 972 - ("-.2" / "0.2e1") --> ('.$v.")
";
$v = ("-.2" / "0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 973 - ("-.2" / "0.3e1") --> ('.$v.")
";
$v = ("-.2" / "-0.1e1"); print "not " if $v ne q{0.2}; print 'ok 974 - ("-.2" / "-0.1e1") --> ('.$v.")
";
$v = ("-.2" / "-0.2e1"); print "not " if $v ne q{0.1}; print 'ok 975 - ("-.2" / "-0.2e1") --> ('.$v.")
";
$v = ("-.2" / "-0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 976 - ("-.2" / "-0.3e1") --> ('.$v.")
";
$v = ("-.2" / "10"); print "not " if $v ne q{-0.02}; print 'ok 977 - ("-.2" / "10") --> ('.$v.")
";
$v = ("-.2" / "20"); print "not " if $v ne q{-0.01}; print 'ok 978 - ("-.2" / "20") --> ('.$v.")
";
$v = ("-.2" / "30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 979 - ("-.2" / "30") --> ('.$v.")
";
$v = ("-.2" / "-10"); print "not " if $v ne q{0.02}; print 'ok 980 - ("-.2" / "-10") --> ('.$v.")
";
$v = ("-.2" / "-20"); print "not " if $v ne q{0.01}; print 'ok 981 - ("-.2" / "-20") --> ('.$v.")
";
$v = ("-.2" / "-30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 982 - ("-.2" / "-30") --> ('.$v.")
";
$v = ("-.2" / .1); print "not " if $v ne q{-2}; print 'ok 983 - ("-.2" / .1) --> ('.$v.")
";
$v = ("-.2" / .2); print "not " if $v ne q{-1}; print 'ok 984 - ("-.2" / .2) --> ('.$v.")
";
$v = ("-.2" / .3); print "not " if $v ne q{-0.666666666666667}; print 'ok 985 - ("-.2" / .3) --> ('.$v.")
";
$v = ("-.2" / -.1); print "not " if $v ne q{2}; print 'ok 986 - ("-.2" / -.1) --> ('.$v.")
";
$v = ("-.2" / -.2); print "not " if $v ne q{1}; print 'ok 987 - ("-.2" / -.2) --> ('.$v.")
";
$v = ("-.2" / -.3); print "not " if $v ne q{0.666666666666667}; print 'ok 988 - ("-.2" / -.3) --> ('.$v.")
";
$v = ("-.2" / 0.1); print "not " if $v ne q{-2}; print 'ok 989 - ("-.2" / 0.1) --> ('.$v.")
";
$v = ("-.2" / 0.2); print "not " if $v ne q{-1}; print 'ok 990 - ("-.2" / 0.2) --> ('.$v.")
";
$v = ("-.2" / 0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 991 - ("-.2" / 0.3) --> ('.$v.")
";
$v = ("-.2" / -0.1); print "not " if $v ne q{2}; print 'ok 992 - ("-.2" / -0.1) --> ('.$v.")
";
$v = ("-.2" / -0.2); print "not " if $v ne q{1}; print 'ok 993 - ("-.2" / -0.2) --> ('.$v.")
";
$v = ("-.2" / -0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 994 - ("-.2" / -0.3) --> ('.$v.")
";
$v = ("-.2" / 0.1e1); print "not " if $v ne q{-0.2}; print 'ok 995 - ("-.2" / 0.1e1) --> ('.$v.")
";
$v = ("-.2" / 0.2e1); print "not " if $v ne q{-0.1}; print 'ok 996 - ("-.2" / 0.2e1) --> ('.$v.")
";
$v = ("-.2" / 0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 997 - ("-.2" / 0.3e1) --> ('.$v.")
";
$v = ("-.2" / -0.1e1); print "not " if $v ne q{0.2}; print 'ok 998 - ("-.2" / -0.1e1) --> ('.$v.")
";
$v = ("-.2" / -0.2e1); print "not " if $v ne q{0.1}; print 'ok 999 - ("-.2" / -0.2e1) --> ('.$v.")
";
$v = ("-.2" / -0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 1000 - ("-.2" / -0.3e1) --> ('.$v.")
";
$v = ("-.2" / 10); print "not " if $v ne q{-0.02}; print 'ok 1001 - ("-.2" / 10) --> ('.$v.")
";
$v = ("-.2" / 20); print "not " if $v ne q{-0.01}; print 'ok 1002 - ("-.2" / 20) --> ('.$v.")
";
$v = ("-.2" / 30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 1003 - ("-.2" / 30) --> ('.$v.")
";
$v = ("-.2" / -10); print "not " if $v ne q{0.02}; print 'ok 1004 - ("-.2" / -10) --> ('.$v.")
";
$v = ("-.2" / -20); print "not " if $v ne q{0.01}; print 'ok 1005 - ("-.2" / -20) --> ('.$v.")
";
$v = ("-.2" / -30); print "not " if $v ne q{0.00666666666666667}; print 'ok 1006 - ("-.2" / -30) --> ('.$v.")
";
$v = ("-.2" / @ab); print "not " if $v ne q{-0.2}; print 'ok 1007 - ("-.2" / @ab) --> ('.$v.")
";
$v = ("-.2" / @ac); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1008 - ("-.2" / @ac) --> ('.$v.")
";
$v = ("-.3" / "1"); print "not " if $v ne q{-0.3}; print 'ok 1009 - ("-.3" / "1") --> ('.$v.")
";
$v = ("-.3" / "2"); print "not " if $v ne q{-0.15}; print 'ok 1010 - ("-.3" / "2") --> ('.$v.")
";
$v = ("-.3" / "3"); print "not " if $v ne q{-0.1}; print 'ok 1011 - ("-.3" / "3") --> ('.$v.")
";
$v = ("-.3" / "-1"); print "not " if $v ne q{0.3}; print 'ok 1012 - ("-.3" / "-1") --> ('.$v.")
";
$v = ("-.3" / "-2"); print "not " if $v ne q{0.15}; print 'ok 1013 - ("-.3" / "-2") --> ('.$v.")
";
$v = ("-.3" / "-3"); print "not " if $v ne q{0.1}; print 'ok 1014 - ("-.3" / "-3") --> ('.$v.")
";
$v = ("-.3" / ".1"); print "not " if $v ne q{-3}; print 'ok 1015 - ("-.3" / ".1") --> ('.$v.")
";
$v = ("-.3" / ".2"); print "not " if $v ne q{-1.5}; print 'ok 1016 - ("-.3" / ".2") --> ('.$v.")
";
$v = ("-.3" / ".3"); print "not " if $v ne q{-1}; print 'ok 1017 - ("-.3" / ".3") --> ('.$v.")
";
$v = ("-.3" / "-.1"); print "not " if $v ne q{3}; print 'ok 1018 - ("-.3" / "-.1") --> ('.$v.")
";
$v = ("-.3" / "-.2"); print "not " if $v ne q{1.5}; print 'ok 1019 - ("-.3" / "-.2") --> ('.$v.")
";
$v = ("-.3" / "-.3"); print "not " if $v ne q{1}; print 'ok 1020 - ("-.3" / "-.3") --> ('.$v.")
";
$v = ("-.3" / "0.1"); print "not " if $v ne q{-3}; print 'ok 1021 - ("-.3" / "0.1") --> ('.$v.")
";
$v = ("-.3" / "0.2"); print "not " if $v ne q{-1.5}; print 'ok 1022 - ("-.3" / "0.2") --> ('.$v.")
";
$v = ("-.3" / "0.3"); print "not " if $v ne q{-1}; print 'ok 1023 - ("-.3" / "0.3") --> ('.$v.")
";
$v = ("-.3" / "-0.1"); print "not " if $v ne q{3}; print 'ok 1024 - ("-.3" / "-0.1") --> ('.$v.")
";
$v = ("-.3" / "-0.2"); print "not " if $v ne q{1.5}; print 'ok 1025 - ("-.3" / "-0.2") --> ('.$v.")
";
$v = ("-.3" / "-0.3"); print "not " if $v ne q{1}; print 'ok 1026 - ("-.3" / "-0.3") --> ('.$v.")
";
$v = ("-.3" / "0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 1027 - ("-.3" / "0.1e1") --> ('.$v.")
";
$v = ("-.3" / "0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 1028 - ("-.3" / "0.2e1") --> ('.$v.")
";
$v = ("-.3" / "0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 1029 - ("-.3" / "0.3e1") --> ('.$v.")
";
$v = ("-.3" / "-0.1e1"); print "not " if $v ne q{0.3}; print 'ok 1030 - ("-.3" / "-0.1e1") --> ('.$v.")
";
$v = ("-.3" / "-0.2e1"); print "not " if $v ne q{0.15}; print 'ok 1031 - ("-.3" / "-0.2e1") --> ('.$v.")
";
$v = ("-.3" / "-0.3e1"); print "not " if $v ne q{0.1}; print 'ok 1032 - ("-.3" / "-0.3e1") --> ('.$v.")
";
$v = ("-.3" / "10"); print "not " if $v ne q{-0.03}; print 'ok 1033 - ("-.3" / "10") --> ('.$v.")
";
$v = ("-.3" / "20"); print "not " if $v ne q{-0.015}; print 'ok 1034 - ("-.3" / "20") --> ('.$v.")
";
$v = ("-.3" / "30"); print "not " if $v ne q{-0.01}; print 'ok 1035 - ("-.3" / "30") --> ('.$v.")
";
$v = ("-.3" / "-10"); print "not " if $v ne q{0.03}; print 'ok 1036 - ("-.3" / "-10") --> ('.$v.")
";
$v = ("-.3" / "-20"); print "not " if $v ne q{0.015}; print 'ok 1037 - ("-.3" / "-20") --> ('.$v.")
";
$v = ("-.3" / "-30"); print "not " if $v ne q{0.01}; print 'ok 1038 - ("-.3" / "-30") --> ('.$v.")
";
$v = ("-.3" / .1); print "not " if $v ne q{-3}; print 'ok 1039 - ("-.3" / .1) --> ('.$v.")
";
$v = ("-.3" / .2); print "not " if $v ne q{-1.5}; print 'ok 1040 - ("-.3" / .2) --> ('.$v.")
";
$v = ("-.3" / .3); print "not " if $v ne q{-1}; print 'ok 1041 - ("-.3" / .3) --> ('.$v.")
";
$v = ("-.3" / -.1); print "not " if $v ne q{3}; print 'ok 1042 - ("-.3" / -.1) --> ('.$v.")
";
$v = ("-.3" / -.2); print "not " if $v ne q{1.5}; print 'ok 1043 - ("-.3" / -.2) --> ('.$v.")
";
$v = ("-.3" / -.3); print "not " if $v ne q{1}; print 'ok 1044 - ("-.3" / -.3) --> ('.$v.")
";
$v = ("-.3" / 0.1); print "not " if $v ne q{-3}; print 'ok 1045 - ("-.3" / 0.1) --> ('.$v.")
";
$v = ("-.3" / 0.2); print "not " if $v ne q{-1.5}; print 'ok 1046 - ("-.3" / 0.2) --> ('.$v.")
";
$v = ("-.3" / 0.3); print "not " if $v ne q{-1}; print 'ok 1047 - ("-.3" / 0.3) --> ('.$v.")
";
$v = ("-.3" / -0.1); print "not " if $v ne q{3}; print 'ok 1048 - ("-.3" / -0.1) --> ('.$v.")
";
$v = ("-.3" / -0.2); print "not " if $v ne q{1.5}; print 'ok 1049 - ("-.3" / -0.2) --> ('.$v.")
";
$v = ("-.3" / -0.3); print "not " if $v ne q{1}; print 'ok 1050 - ("-.3" / -0.3) --> ('.$v.")
";
$v = ("-.3" / 0.1e1); print "not " if $v ne q{-0.3}; print 'ok 1051 - ("-.3" / 0.1e1) --> ('.$v.")
";
$v = ("-.3" / 0.2e1); print "not " if $v ne q{-0.15}; print 'ok 1052 - ("-.3" / 0.2e1) --> ('.$v.")
";
$v = ("-.3" / 0.3e1); print "not " if $v ne q{-0.1}; print 'ok 1053 - ("-.3" / 0.3e1) --> ('.$v.")
";
$v = ("-.3" / -0.1e1); print "not " if $v ne q{0.3}; print 'ok 1054 - ("-.3" / -0.1e1) --> ('.$v.")
";
$v = ("-.3" / -0.2e1); print "not " if $v ne q{0.15}; print 'ok 1055 - ("-.3" / -0.2e1) --> ('.$v.")
";
$v = ("-.3" / -0.3e1); print "not " if $v ne q{0.1}; print 'ok 1056 - ("-.3" / -0.3e1) --> ('.$v.")
";
$v = ("-.3" / 10); print "not " if $v ne q{-0.03}; print 'ok 1057 - ("-.3" / 10) --> ('.$v.")
";
$v = ("-.3" / 20); print "not " if $v ne q{-0.015}; print 'ok 1058 - ("-.3" / 20) --> ('.$v.")
";
$v = ("-.3" / 30); print "not " if $v ne q{-0.01}; print 'ok 1059 - ("-.3" / 30) --> ('.$v.")
";
$v = ("-.3" / -10); print "not " if $v ne q{0.03}; print 'ok 1060 - ("-.3" / -10) --> ('.$v.")
";
$v = ("-.3" / -20); print "not " if $v ne q{0.015}; print 'ok 1061 - ("-.3" / -20) --> ('.$v.")
";
$v = ("-.3" / -30); print "not " if $v ne q{0.01}; print 'ok 1062 - ("-.3" / -30) --> ('.$v.")
";
$v = ("-.3" / @ab); print "not " if $v ne q{-0.3}; print 'ok 1063 - ("-.3" / @ab) --> ('.$v.")
";
$v = ("-.3" / @ac); print "not " if $v ne q{-0.1}; print 'ok 1064 - ("-.3" / @ac) --> ('.$v.")
";
$v = ("0." / "1"); print "not " if $v ne q{0}; print 'ok 1065 - ("0." / "1") --> ('.$v.")
";
$v = ("0." / "2"); print "not " if $v ne q{0}; print 'ok 1066 - ("0." / "2") --> ('.$v.")
";
$v = ("0." / "3"); print "not " if $v ne q{0}; print 'ok 1067 - ("0." / "3") --> ('.$v.")
";
$v = ("0." / "-1"); print "not " if $v ne q{0}; print 'ok 1068 - ("0." / "-1") --> ('.$v.")
";
$v = ("0." / "-2"); print "not " if $v ne q{0}; print 'ok 1069 - ("0." / "-2") --> ('.$v.")
";
$v = ("0." / "-3"); print "not " if $v ne q{0}; print 'ok 1070 - ("0." / "-3") --> ('.$v.")
";
$v = ("0." / ".1"); print "not " if $v ne q{0}; print 'ok 1071 - ("0." / ".1") --> ('.$v.")
";
$v = ("0." / ".2"); print "not " if $v ne q{0}; print 'ok 1072 - ("0." / ".2") --> ('.$v.")
";
$v = ("0." / ".3"); print "not " if $v ne q{0}; print 'ok 1073 - ("0." / ".3") --> ('.$v.")
";
$v = ("0." / "-.1"); print "not " if $v ne q{0}; print 'ok 1074 - ("0." / "-.1") --> ('.$v.")
";
$v = ("0." / "-.2"); print "not " if $v ne q{0}; print 'ok 1075 - ("0." / "-.2") --> ('.$v.")
";
$v = ("0." / "-.3"); print "not " if $v ne q{0}; print 'ok 1076 - ("0." / "-.3") --> ('.$v.")
";
$v = ("0." / "0.1"); print "not " if $v ne q{0}; print 'ok 1077 - ("0." / "0.1") --> ('.$v.")
";
$v = ("0." / "0.2"); print "not " if $v ne q{0}; print 'ok 1078 - ("0." / "0.2") --> ('.$v.")
";
$v = ("0." / "0.3"); print "not " if $v ne q{0}; print 'ok 1079 - ("0." / "0.3") --> ('.$v.")
";
$v = ("0." / "-0.1"); print "not " if $v ne q{0}; print 'ok 1080 - ("0." / "-0.1") --> ('.$v.")
";
$v = ("0." / "-0.2"); print "not " if $v ne q{0}; print 'ok 1081 - ("0." / "-0.2") --> ('.$v.")
";
$v = ("0." / "-0.3"); print "not " if $v ne q{0}; print 'ok 1082 - ("0." / "-0.3") --> ('.$v.")
";
$v = ("0." / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1083 - ("0." / "0.1e1") --> ('.$v.")
";
$v = ("0." / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1084 - ("0." / "0.2e1") --> ('.$v.")
";
$v = ("0." / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1085 - ("0." / "0.3e1") --> ('.$v.")
";
$v = ("0." / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1086 - ("0." / "-0.1e1") --> ('.$v.")
";
$v = ("0." / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1087 - ("0." / "-0.2e1") --> ('.$v.")
";
$v = ("0." / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1088 - ("0." / "-0.3e1") --> ('.$v.")
";
$v = ("0." / "10"); print "not " if $v ne q{0}; print 'ok 1089 - ("0." / "10") --> ('.$v.")
";
$v = ("0." / "20"); print "not " if $v ne q{0}; print 'ok 1090 - ("0." / "20") --> ('.$v.")
";
$v = ("0." / "30"); print "not " if $v ne q{0}; print 'ok 1091 - ("0." / "30") --> ('.$v.")
";
$v = ("0." / "-10"); print "not " if $v ne q{0}; print 'ok 1092 - ("0." / "-10") --> ('.$v.")
";
$v = ("0." / "-20"); print "not " if $v ne q{0}; print 'ok 1093 - ("0." / "-20") --> ('.$v.")
";
$v = ("0." / "-30"); print "not " if $v ne q{0}; print 'ok 1094 - ("0." / "-30") --> ('.$v.")
";
$v = ("0." / .1); print "not " if $v ne q{0}; print 'ok 1095 - ("0." / .1) --> ('.$v.")
";
$v = ("0." / .2); print "not " if $v ne q{0}; print 'ok 1096 - ("0." / .2) --> ('.$v.")
";
$v = ("0." / .3); print "not " if $v ne q{0}; print 'ok 1097 - ("0." / .3) --> ('.$v.")
";
$v = ("0." / -.1); print "not " if $v ne q{0}; print 'ok 1098 - ("0." / -.1) --> ('.$v.")
";
$v = ("0." / -.2); print "not " if $v ne q{0}; print 'ok 1099 - ("0." / -.2) --> ('.$v.")
";
$v = ("0." / -.3); print "not " if $v ne q{0}; print 'ok 1100 - ("0." / -.3) --> ('.$v.")
";
$v = ("0." / 0.1); print "not " if $v ne q{0}; print 'ok 1101 - ("0." / 0.1) --> ('.$v.")
";
$v = ("0." / 0.2); print "not " if $v ne q{0}; print 'ok 1102 - ("0." / 0.2) --> ('.$v.")
";
$v = ("0." / 0.3); print "not " if $v ne q{0}; print 'ok 1103 - ("0." / 0.3) --> ('.$v.")
";
$v = ("0." / -0.1); print "not " if $v ne q{0}; print 'ok 1104 - ("0." / -0.1) --> ('.$v.")
";
$v = ("0." / -0.2); print "not " if $v ne q{0}; print 'ok 1105 - ("0." / -0.2) --> ('.$v.")
";
$v = ("0." / -0.3); print "not " if $v ne q{0}; print 'ok 1106 - ("0." / -0.3) --> ('.$v.")
";
$v = ("0." / 0.1e1); print "not " if $v ne q{0}; print 'ok 1107 - ("0." / 0.1e1) --> ('.$v.")
";
$v = ("0." / 0.2e1); print "not " if $v ne q{0}; print 'ok 1108 - ("0." / 0.2e1) --> ('.$v.")
";
$v = ("0." / 0.3e1); print "not " if $v ne q{0}; print 'ok 1109 - ("0." / 0.3e1) --> ('.$v.")
";
$v = ("0." / -0.1e1); print "not " if $v ne q{0}; print 'ok 1110 - ("0." / -0.1e1) --> ('.$v.")
";
$v = ("0." / -0.2e1); print "not " if $v ne q{0}; print 'ok 1111 - ("0." / -0.2e1) --> ('.$v.")
";
$v = ("0." / -0.3e1); print "not " if $v ne q{0}; print 'ok 1112 - ("0." / -0.3e1) --> ('.$v.")
";
$v = ("0." / 10); print "not " if $v ne q{0}; print 'ok 1113 - ("0." / 10) --> ('.$v.")
";
$v = ("0." / 20); print "not " if $v ne q{0}; print 'ok 1114 - ("0." / 20) --> ('.$v.")
";
$v = ("0." / 30); print "not " if $v ne q{0}; print 'ok 1115 - ("0." / 30) --> ('.$v.")
";
$v = ("0." / -10); print "not " if $v ne q{0}; print 'ok 1116 - ("0." / -10) --> ('.$v.")
";
$v = ("0." / -20); print "not " if $v ne q{0}; print 'ok 1117 - ("0." / -20) --> ('.$v.")
";
$v = ("0." / -30); print "not " if $v ne q{0}; print 'ok 1118 - ("0." / -30) --> ('.$v.")
";
$v = ("0." / @ab); print "not " if $v ne q{0}; print 'ok 1119 - ("0." / @ab) --> ('.$v.")
";
$v = ("0." / @ac); print "not " if $v ne q{0}; print 'ok 1120 - ("0." / @ac) --> ('.$v.")
";
$v = ("0.0" / "1"); print "not " if $v ne q{0}; print 'ok 1121 - ("0.0" / "1") --> ('.$v.")
";
$v = ("0.0" / "2"); print "not " if $v ne q{0}; print 'ok 1122 - ("0.0" / "2") --> ('.$v.")
";
$v = ("0.0" / "3"); print "not " if $v ne q{0}; print 'ok 1123 - ("0.0" / "3") --> ('.$v.")
";
$v = ("0.0" / "-1"); print "not " if $v ne q{0}; print 'ok 1124 - ("0.0" / "-1") --> ('.$v.")
";
$v = ("0.0" / "-2"); print "not " if $v ne q{0}; print 'ok 1125 - ("0.0" / "-2") --> ('.$v.")
";
$v = ("0.0" / "-3"); print "not " if $v ne q{0}; print 'ok 1126 - ("0.0" / "-3") --> ('.$v.")
";
$v = ("0.0" / ".1"); print "not " if $v ne q{0}; print 'ok 1127 - ("0.0" / ".1") --> ('.$v.")
";
$v = ("0.0" / ".2"); print "not " if $v ne q{0}; print 'ok 1128 - ("0.0" / ".2") --> ('.$v.")
";
$v = ("0.0" / ".3"); print "not " if $v ne q{0}; print 'ok 1129 - ("0.0" / ".3") --> ('.$v.")
";
$v = ("0.0" / "-.1"); print "not " if $v ne q{0}; print 'ok 1130 - ("0.0" / "-.1") --> ('.$v.")
";
$v = ("0.0" / "-.2"); print "not " if $v ne q{0}; print 'ok 1131 - ("0.0" / "-.2") --> ('.$v.")
";
$v = ("0.0" / "-.3"); print "not " if $v ne q{0}; print 'ok 1132 - ("0.0" / "-.3") --> ('.$v.")
";
$v = ("0.0" / "0.1"); print "not " if $v ne q{0}; print 'ok 1133 - ("0.0" / "0.1") --> ('.$v.")
";
$v = ("0.0" / "0.2"); print "not " if $v ne q{0}; print 'ok 1134 - ("0.0" / "0.2") --> ('.$v.")
";
$v = ("0.0" / "0.3"); print "not " if $v ne q{0}; print 'ok 1135 - ("0.0" / "0.3") --> ('.$v.")
";
$v = ("0.0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 1136 - ("0.0" / "-0.1") --> ('.$v.")
";
$v = ("0.0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 1137 - ("0.0" / "-0.2") --> ('.$v.")
";
$v = ("0.0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 1138 - ("0.0" / "-0.3") --> ('.$v.")
";
$v = ("0.0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1139 - ("0.0" / "0.1e1") --> ('.$v.")
";
$v = ("0.0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1140 - ("0.0" / "0.2e1") --> ('.$v.")
";
$v = ("0.0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1141 - ("0.0" / "0.3e1") --> ('.$v.")
";
$v = ("0.0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1142 - ("0.0" / "-0.1e1") --> ('.$v.")
";
$v = ("0.0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1143 - ("0.0" / "-0.2e1") --> ('.$v.")
";
$v = ("0.0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1144 - ("0.0" / "-0.3e1") --> ('.$v.")
";
$v = ("0.0" / "10"); print "not " if $v ne q{0}; print 'ok 1145 - ("0.0" / "10") --> ('.$v.")
";
$v = ("0.0" / "20"); print "not " if $v ne q{0}; print 'ok 1146 - ("0.0" / "20") --> ('.$v.")
";
$v = ("0.0" / "30"); print "not " if $v ne q{0}; print 'ok 1147 - ("0.0" / "30") --> ('.$v.")
";
$v = ("0.0" / "-10"); print "not " if $v ne q{0}; print 'ok 1148 - ("0.0" / "-10") --> ('.$v.")
";
$v = ("0.0" / "-20"); print "not " if $v ne q{0}; print 'ok 1149 - ("0.0" / "-20") --> ('.$v.")
";
$v = ("0.0" / "-30"); print "not " if $v ne q{0}; print 'ok 1150 - ("0.0" / "-30") --> ('.$v.")
";
$v = ("0.0" / .1); print "not " if $v ne q{0}; print 'ok 1151 - ("0.0" / .1) --> ('.$v.")
";
$v = ("0.0" / .2); print "not " if $v ne q{0}; print 'ok 1152 - ("0.0" / .2) --> ('.$v.")
";
$v = ("0.0" / .3); print "not " if $v ne q{0}; print 'ok 1153 - ("0.0" / .3) --> ('.$v.")
";
$v = ("0.0" / -.1); print "not " if $v ne q{0}; print 'ok 1154 - ("0.0" / -.1) --> ('.$v.")
";
$v = ("0.0" / -.2); print "not " if $v ne q{0}; print 'ok 1155 - ("0.0" / -.2) --> ('.$v.")
";
$v = ("0.0" / -.3); print "not " if $v ne q{0}; print 'ok 1156 - ("0.0" / -.3) --> ('.$v.")
";
$v = ("0.0" / 0.1); print "not " if $v ne q{0}; print 'ok 1157 - ("0.0" / 0.1) --> ('.$v.")
";
$v = ("0.0" / 0.2); print "not " if $v ne q{0}; print 'ok 1158 - ("0.0" / 0.2) --> ('.$v.")
";
$v = ("0.0" / 0.3); print "not " if $v ne q{0}; print 'ok 1159 - ("0.0" / 0.3) --> ('.$v.")
";
$v = ("0.0" / -0.1); print "not " if $v ne q{0}; print 'ok 1160 - ("0.0" / -0.1) --> ('.$v.")
";
$v = ("0.0" / -0.2); print "not " if $v ne q{0}; print 'ok 1161 - ("0.0" / -0.2) --> ('.$v.")
";
$v = ("0.0" / -0.3); print "not " if $v ne q{0}; print 'ok 1162 - ("0.0" / -0.3) --> ('.$v.")
";
$v = ("0.0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 1163 - ("0.0" / 0.1e1) --> ('.$v.")
";
$v = ("0.0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 1164 - ("0.0" / 0.2e1) --> ('.$v.")
";
$v = ("0.0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 1165 - ("0.0" / 0.3e1) --> ('.$v.")
";
$v = ("0.0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 1166 - ("0.0" / -0.1e1) --> ('.$v.")
";
$v = ("0.0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 1167 - ("0.0" / -0.2e1) --> ('.$v.")
";
$v = ("0.0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 1168 - ("0.0" / -0.3e1) --> ('.$v.")
";
$v = ("0.0" / 10); print "not " if $v ne q{0}; print 'ok 1169 - ("0.0" / 10) --> ('.$v.")
";
$v = ("0.0" / 20); print "not " if $v ne q{0}; print 'ok 1170 - ("0.0" / 20) --> ('.$v.")
";
$v = ("0.0" / 30); print "not " if $v ne q{0}; print 'ok 1171 - ("0.0" / 30) --> ('.$v.")
";
$v = ("0.0" / -10); print "not " if $v ne q{0}; print 'ok 1172 - ("0.0" / -10) --> ('.$v.")
";
$v = ("0.0" / -20); print "not " if $v ne q{0}; print 'ok 1173 - ("0.0" / -20) --> ('.$v.")
";
$v = ("0.0" / -30); print "not " if $v ne q{0}; print 'ok 1174 - ("0.0" / -30) --> ('.$v.")
";
$v = ("0.0" / @ab); print "not " if $v ne q{0}; print 'ok 1175 - ("0.0" / @ab) --> ('.$v.")
";
$v = ("0.0" / @ac); print "not " if $v ne q{0}; print 'ok 1176 - ("0.0" / @ac) --> ('.$v.")
";
$v = ("0.1" / "1"); print "not " if $v ne q{0.1}; print 'ok 1177 - ("0.1" / "1") --> ('.$v.")
";
$v = ("0.1" / "2"); print "not " if $v ne q{0.05}; print 'ok 1178 - ("0.1" / "2") --> ('.$v.")
";
$v = ("0.1" / "3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1179 - ("0.1" / "3") --> ('.$v.")
";
$v = ("0.1" / "-1"); print "not " if $v ne q{-0.1}; print 'ok 1180 - ("0.1" / "-1") --> ('.$v.")
";
$v = ("0.1" / "-2"); print "not " if $v ne q{-0.05}; print 'ok 1181 - ("0.1" / "-2") --> ('.$v.")
";
$v = ("0.1" / "-3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1182 - ("0.1" / "-3") --> ('.$v.")
";
$v = ("0.1" / ".1"); print "not " if $v ne q{1}; print 'ok 1183 - ("0.1" / ".1") --> ('.$v.")
";
$v = ("0.1" / ".2"); print "not " if $v ne q{0.5}; print 'ok 1184 - ("0.1" / ".2") --> ('.$v.")
";
$v = ("0.1" / ".3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1185 - ("0.1" / ".3") --> ('.$v.")
";
$v = ("0.1" / "-.1"); print "not " if $v ne q{-1}; print 'ok 1186 - ("0.1" / "-.1") --> ('.$v.")
";
$v = ("0.1" / "-.2"); print "not " if $v ne q{-0.5}; print 'ok 1187 - ("0.1" / "-.2") --> ('.$v.")
";
$v = ("0.1" / "-.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1188 - ("0.1" / "-.3") --> ('.$v.")
";
$v = ("0.1" / "0.1"); print "not " if $v ne q{1}; print 'ok 1189 - ("0.1" / "0.1") --> ('.$v.")
";
$v = ("0.1" / "0.2"); print "not " if $v ne q{0.5}; print 'ok 1190 - ("0.1" / "0.2") --> ('.$v.")
";
$v = ("0.1" / "0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1191 - ("0.1" / "0.3") --> ('.$v.")
";
$v = ("0.1" / "-0.1"); print "not " if $v ne q{-1}; print 'ok 1192 - ("0.1" / "-0.1") --> ('.$v.")
";
$v = ("0.1" / "-0.2"); print "not " if $v ne q{-0.5}; print 'ok 1193 - ("0.1" / "-0.2") --> ('.$v.")
";
$v = ("0.1" / "-0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1194 - ("0.1" / "-0.3") --> ('.$v.")
";
$v = ("0.1" / "0.1e1"); print "not " if $v ne q{0.1}; print 'ok 1195 - ("0.1" / "0.1e1") --> ('.$v.")
";
$v = ("0.1" / "0.2e1"); print "not " if $v ne q{0.05}; print 'ok 1196 - ("0.1" / "0.2e1") --> ('.$v.")
";
$v = ("0.1" / "0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1197 - ("0.1" / "0.3e1") --> ('.$v.")
";
$v = ("0.1" / "-0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 1198 - ("0.1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.1" / "-0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 1199 - ("0.1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.1" / "-0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1200 - ("0.1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.1" / "10"); print "not " if $v ne q{0.01}; print 'ok 1201 - ("0.1" / "10") --> ('.$v.")
";
$v = ("0.1" / "20"); print "not " if $v ne q{0.005}; print 'ok 1202 - ("0.1" / "20") --> ('.$v.")
";
$v = ("0.1" / "30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 1203 - ("0.1" / "30") --> ('.$v.")
";
$v = ("0.1" / "-10"); print "not " if $v ne q{-0.01}; print 'ok 1204 - ("0.1" / "-10") --> ('.$v.")
";
$v = ("0.1" / "-20"); print "not " if $v ne q{-0.005}; print 'ok 1205 - ("0.1" / "-20") --> ('.$v.")
";
$v = ("0.1" / "-30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 1206 - ("0.1" / "-30") --> ('.$v.")
";
$v = ("0.1" / .1); print "not " if $v ne q{1}; print 'ok 1207 - ("0.1" / .1) --> ('.$v.")
";
$v = ("0.1" / .2); print "not " if $v ne q{0.5}; print 'ok 1208 - ("0.1" / .2) --> ('.$v.")
";
$v = ("0.1" / .3); print "not " if $v ne q{0.333333333333333}; print 'ok 1209 - ("0.1" / .3) --> ('.$v.")
";
$v = ("0.1" / -.1); print "not " if $v ne q{-1}; print 'ok 1210 - ("0.1" / -.1) --> ('.$v.")
";
$v = ("0.1" / -.2); print "not " if $v ne q{-0.5}; print 'ok 1211 - ("0.1" / -.2) --> ('.$v.")
";
$v = ("0.1" / -.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 1212 - ("0.1" / -.3) --> ('.$v.")
";
$v = ("0.1" / 0.1); print "not " if $v ne q{1}; print 'ok 1213 - ("0.1" / 0.1) --> ('.$v.")
";
$v = ("0.1" / 0.2); print "not " if $v ne q{0.5}; print 'ok 1214 - ("0.1" / 0.2) --> ('.$v.")
";
$v = ("0.1" / 0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 1215 - ("0.1" / 0.3) --> ('.$v.")
";
$v = ("0.1" / -0.1); print "not " if $v ne q{-1}; print 'ok 1216 - ("0.1" / -0.1) --> ('.$v.")
";
$v = ("0.1" / -0.2); print "not " if $v ne q{-0.5}; print 'ok 1217 - ("0.1" / -0.2) --> ('.$v.")
";
$v = ("0.1" / -0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 1218 - ("0.1" / -0.3) --> ('.$v.")
";
$v = ("0.1" / 0.1e1); print "not " if $v ne q{0.1}; print 'ok 1219 - ("0.1" / 0.1e1) --> ('.$v.")
";
$v = ("0.1" / 0.2e1); print "not " if $v ne q{0.05}; print 'ok 1220 - ("0.1" / 0.2e1) --> ('.$v.")
";
$v = ("0.1" / 0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 1221 - ("0.1" / 0.3e1) --> ('.$v.")
";
$v = ("0.1" / -0.1e1); print "not " if $v ne q{-0.1}; print 'ok 1222 - ("0.1" / -0.1e1) --> ('.$v.")
";
$v = ("0.1" / -0.2e1); print "not " if $v ne q{-0.05}; print 'ok 1223 - ("0.1" / -0.2e1) --> ('.$v.")
";
$v = ("0.1" / -0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1224 - ("0.1" / -0.3e1) --> ('.$v.")
";
$v = ("0.1" / 10); print "not " if $v ne q{0.01}; print 'ok 1225 - ("0.1" / 10) --> ('.$v.")
";
$v = ("0.1" / 20); print "not " if $v ne q{0.005}; print 'ok 1226 - ("0.1" / 20) --> ('.$v.")
";
$v = ("0.1" / 30); print "not " if $v ne q{0.00333333333333333}; print 'ok 1227 - ("0.1" / 30) --> ('.$v.")
";
$v = ("0.1" / -10); print "not " if $v ne q{-0.01}; print 'ok 1228 - ("0.1" / -10) --> ('.$v.")
";
$v = ("0.1" / -20); print "not " if $v ne q{-0.005}; print 'ok 1229 - ("0.1" / -20) --> ('.$v.")
";
$v = ("0.1" / -30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 1230 - ("0.1" / -30) --> ('.$v.")
";
$v = ("0.1" / @ab); print "not " if $v ne q{0.1}; print 'ok 1231 - ("0.1" / @ab) --> ('.$v.")
";
$v = ("0.1" / @ac); print "not " if $v ne q{0.0333333333333333}; print 'ok 1232 - ("0.1" / @ac) --> ('.$v.")
";
$v = ("0.2" / "1"); print "not " if $v ne q{0.2}; print 'ok 1233 - ("0.2" / "1") --> ('.$v.")
";
$v = ("0.2" / "2"); print "not " if $v ne q{0.1}; print 'ok 1234 - ("0.2" / "2") --> ('.$v.")
";
$v = ("0.2" / "3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1235 - ("0.2" / "3") --> ('.$v.")
";
$v = ("0.2" / "-1"); print "not " if $v ne q{-0.2}; print 'ok 1236 - ("0.2" / "-1") --> ('.$v.")
";
$v = ("0.2" / "-2"); print "not " if $v ne q{-0.1}; print 'ok 1237 - ("0.2" / "-2") --> ('.$v.")
";
$v = ("0.2" / "-3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1238 - ("0.2" / "-3") --> ('.$v.")
";
$v = ("0.2" / ".1"); print "not " if $v ne q{2}; print 'ok 1239 - ("0.2" / ".1") --> ('.$v.")
";
$v = ("0.2" / ".2"); print "not " if $v ne q{1}; print 'ok 1240 - ("0.2" / ".2") --> ('.$v.")
";
$v = ("0.2" / ".3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1241 - ("0.2" / ".3") --> ('.$v.")
";
$v = ("0.2" / "-.1"); print "not " if $v ne q{-2}; print 'ok 1242 - ("0.2" / "-.1") --> ('.$v.")
";
$v = ("0.2" / "-.2"); print "not " if $v ne q{-1}; print 'ok 1243 - ("0.2" / "-.2") --> ('.$v.")
";
$v = ("0.2" / "-.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1244 - ("0.2" / "-.3") --> ('.$v.")
";
$v = ("0.2" / "0.1"); print "not " if $v ne q{2}; print 'ok 1245 - ("0.2" / "0.1") --> ('.$v.")
";
$v = ("0.2" / "0.2"); print "not " if $v ne q{1}; print 'ok 1246 - ("0.2" / "0.2") --> ('.$v.")
";
$v = ("0.2" / "0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1247 - ("0.2" / "0.3") --> ('.$v.")
";
$v = ("0.2" / "-0.1"); print "not " if $v ne q{-2}; print 'ok 1248 - ("0.2" / "-0.1") --> ('.$v.")
";
$v = ("0.2" / "-0.2"); print "not " if $v ne q{-1}; print 'ok 1249 - ("0.2" / "-0.2") --> ('.$v.")
";
$v = ("0.2" / "-0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1250 - ("0.2" / "-0.3") --> ('.$v.")
";
$v = ("0.2" / "0.1e1"); print "not " if $v ne q{0.2}; print 'ok 1251 - ("0.2" / "0.1e1") --> ('.$v.")
";
$v = ("0.2" / "0.2e1"); print "not " if $v ne q{0.1}; print 'ok 1252 - ("0.2" / "0.2e1") --> ('.$v.")
";
$v = ("0.2" / "0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1253 - ("0.2" / "0.3e1") --> ('.$v.")
";
$v = ("0.2" / "-0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 1254 - ("0.2" / "-0.1e1") --> ('.$v.")
";
$v = ("0.2" / "-0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 1255 - ("0.2" / "-0.2e1") --> ('.$v.")
";
$v = ("0.2" / "-0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1256 - ("0.2" / "-0.3e1") --> ('.$v.")
";
$v = ("0.2" / "10"); print "not " if $v ne q{0.02}; print 'ok 1257 - ("0.2" / "10") --> ('.$v.")
";
$v = ("0.2" / "20"); print "not " if $v ne q{0.01}; print 'ok 1258 - ("0.2" / "20") --> ('.$v.")
";
$v = ("0.2" / "30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 1259 - ("0.2" / "30") --> ('.$v.")
";
$v = ("0.2" / "-10"); print "not " if $v ne q{-0.02}; print 'ok 1260 - ("0.2" / "-10") --> ('.$v.")
";
$v = ("0.2" / "-20"); print "not " if $v ne q{-0.01}; print 'ok 1261 - ("0.2" / "-20") --> ('.$v.")
";
$v = ("0.2" / "-30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 1262 - ("0.2" / "-30") --> ('.$v.")
";
$v = ("0.2" / .1); print "not " if $v ne q{2}; print 'ok 1263 - ("0.2" / .1) --> ('.$v.")
";
$v = ("0.2" / .2); print "not " if $v ne q{1}; print 'ok 1264 - ("0.2" / .2) --> ('.$v.")
";
$v = ("0.2" / .3); print "not " if $v ne q{0.666666666666667}; print 'ok 1265 - ("0.2" / .3) --> ('.$v.")
";
$v = ("0.2" / -.1); print "not " if $v ne q{-2}; print 'ok 1266 - ("0.2" / -.1) --> ('.$v.")
";
$v = ("0.2" / -.2); print "not " if $v ne q{-1}; print 'ok 1267 - ("0.2" / -.2) --> ('.$v.")
";
$v = ("0.2" / -.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 1268 - ("0.2" / -.3) --> ('.$v.")
";
$v = ("0.2" / 0.1); print "not " if $v ne q{2}; print 'ok 1269 - ("0.2" / 0.1) --> ('.$v.")
";
$v = ("0.2" / 0.2); print "not " if $v ne q{1}; print 'ok 1270 - ("0.2" / 0.2) --> ('.$v.")
";
$v = ("0.2" / 0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 1271 - ("0.2" / 0.3) --> ('.$v.")
";
$v = ("0.2" / -0.1); print "not " if $v ne q{-2}; print 'ok 1272 - ("0.2" / -0.1) --> ('.$v.")
";
$v = ("0.2" / -0.2); print "not " if $v ne q{-1}; print 'ok 1273 - ("0.2" / -0.2) --> ('.$v.")
";
$v = ("0.2" / -0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 1274 - ("0.2" / -0.3) --> ('.$v.")
";
$v = ("0.2" / 0.1e1); print "not " if $v ne q{0.2}; print 'ok 1275 - ("0.2" / 0.1e1) --> ('.$v.")
";
$v = ("0.2" / 0.2e1); print "not " if $v ne q{0.1}; print 'ok 1276 - ("0.2" / 0.2e1) --> ('.$v.")
";
$v = ("0.2" / 0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 1277 - ("0.2" / 0.3e1) --> ('.$v.")
";
$v = ("0.2" / -0.1e1); print "not " if $v ne q{-0.2}; print 'ok 1278 - ("0.2" / -0.1e1) --> ('.$v.")
";
$v = ("0.2" / -0.2e1); print "not " if $v ne q{-0.1}; print 'ok 1279 - ("0.2" / -0.2e1) --> ('.$v.")
";
$v = ("0.2" / -0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1280 - ("0.2" / -0.3e1) --> ('.$v.")
";
$v = ("0.2" / 10); print "not " if $v ne q{0.02}; print 'ok 1281 - ("0.2" / 10) --> ('.$v.")
";
$v = ("0.2" / 20); print "not " if $v ne q{0.01}; print 'ok 1282 - ("0.2" / 20) --> ('.$v.")
";
$v = ("0.2" / 30); print "not " if $v ne q{0.00666666666666667}; print 'ok 1283 - ("0.2" / 30) --> ('.$v.")
";
$v = ("0.2" / -10); print "not " if $v ne q{-0.02}; print 'ok 1284 - ("0.2" / -10) --> ('.$v.")
";
$v = ("0.2" / -20); print "not " if $v ne q{-0.01}; print 'ok 1285 - ("0.2" / -20) --> ('.$v.")
";
$v = ("0.2" / -30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 1286 - ("0.2" / -30) --> ('.$v.")
";
$v = ("0.2" / @ab); print "not " if $v ne q{0.2}; print 'ok 1287 - ("0.2" / @ab) --> ('.$v.")
";
$v = ("0.2" / @ac); print "not " if $v ne q{0.0666666666666667}; print 'ok 1288 - ("0.2" / @ac) --> ('.$v.")
";
$v = ("0.3" / "1"); print "not " if $v ne q{0.3}; print 'ok 1289 - ("0.3" / "1") --> ('.$v.")
";
$v = ("0.3" / "2"); print "not " if $v ne q{0.15}; print 'ok 1290 - ("0.3" / "2") --> ('.$v.")
";
$v = ("0.3" / "3"); print "not " if $v ne q{0.1}; print 'ok 1291 - ("0.3" / "3") --> ('.$v.")
";
$v = ("0.3" / "-1"); print "not " if $v ne q{-0.3}; print 'ok 1292 - ("0.3" / "-1") --> ('.$v.")
";
$v = ("0.3" / "-2"); print "not " if $v ne q{-0.15}; print 'ok 1293 - ("0.3" / "-2") --> ('.$v.")
";
$v = ("0.3" / "-3"); print "not " if $v ne q{-0.1}; print 'ok 1294 - ("0.3" / "-3") --> ('.$v.")
";
$v = ("0.3" / ".1"); print "not " if $v ne q{3}; print 'ok 1295 - ("0.3" / ".1") --> ('.$v.")
";
$v = ("0.3" / ".2"); print "not " if $v ne q{1.5}; print 'ok 1296 - ("0.3" / ".2") --> ('.$v.")
";
$v = ("0.3" / ".3"); print "not " if $v ne q{1}; print 'ok 1297 - ("0.3" / ".3") --> ('.$v.")
";
$v = ("0.3" / "-.1"); print "not " if $v ne q{-3}; print 'ok 1298 - ("0.3" / "-.1") --> ('.$v.")
";
$v = ("0.3" / "-.2"); print "not " if $v ne q{-1.5}; print 'ok 1299 - ("0.3" / "-.2") --> ('.$v.")
";
$v = ("0.3" / "-.3"); print "not " if $v ne q{-1}; print 'ok 1300 - ("0.3" / "-.3") --> ('.$v.")
";
$v = ("0.3" / "0.1"); print "not " if $v ne q{3}; print 'ok 1301 - ("0.3" / "0.1") --> ('.$v.")
";
$v = ("0.3" / "0.2"); print "not " if $v ne q{1.5}; print 'ok 1302 - ("0.3" / "0.2") --> ('.$v.")
";
$v = ("0.3" / "0.3"); print "not " if $v ne q{1}; print 'ok 1303 - ("0.3" / "0.3") --> ('.$v.")
";
$v = ("0.3" / "-0.1"); print "not " if $v ne q{-3}; print 'ok 1304 - ("0.3" / "-0.1") --> ('.$v.")
";
$v = ("0.3" / "-0.2"); print "not " if $v ne q{-1.5}; print 'ok 1305 - ("0.3" / "-0.2") --> ('.$v.")
";
$v = ("0.3" / "-0.3"); print "not " if $v ne q{-1}; print 'ok 1306 - ("0.3" / "-0.3") --> ('.$v.")
";
$v = ("0.3" / "0.1e1"); print "not " if $v ne q{0.3}; print 'ok 1307 - ("0.3" / "0.1e1") --> ('.$v.")
";
$v = ("0.3" / "0.2e1"); print "not " if $v ne q{0.15}; print 'ok 1308 - ("0.3" / "0.2e1") --> ('.$v.")
";
$v = ("0.3" / "0.3e1"); print "not " if $v ne q{0.1}; print 'ok 1309 - ("0.3" / "0.3e1") --> ('.$v.")
";
$v = ("0.3" / "-0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 1310 - ("0.3" / "-0.1e1") --> ('.$v.")
";
$v = ("0.3" / "-0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 1311 - ("0.3" / "-0.2e1") --> ('.$v.")
";
$v = ("0.3" / "-0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 1312 - ("0.3" / "-0.3e1") --> ('.$v.")
";
$v = ("0.3" / "10"); print "not " if $v ne q{0.03}; print 'ok 1313 - ("0.3" / "10") --> ('.$v.")
";
$v = ("0.3" / "20"); print "not " if $v ne q{0.015}; print 'ok 1314 - ("0.3" / "20") --> ('.$v.")
";
$v = ("0.3" / "30"); print "not " if $v ne q{0.01}; print 'ok 1315 - ("0.3" / "30") --> ('.$v.")
";
$v = ("0.3" / "-10"); print "not " if $v ne q{-0.03}; print 'ok 1316 - ("0.3" / "-10") --> ('.$v.")
";
$v = ("0.3" / "-20"); print "not " if $v ne q{-0.015}; print 'ok 1317 - ("0.3" / "-20") --> ('.$v.")
";
$v = ("0.3" / "-30"); print "not " if $v ne q{-0.01}; print 'ok 1318 - ("0.3" / "-30") --> ('.$v.")
";
$v = ("0.3" / .1); print "not " if $v ne q{3}; print 'ok 1319 - ("0.3" / .1) --> ('.$v.")
";
$v = ("0.3" / .2); print "not " if $v ne q{1.5}; print 'ok 1320 - ("0.3" / .2) --> ('.$v.")
";
$v = ("0.3" / .3); print "not " if $v ne q{1}; print 'ok 1321 - ("0.3" / .3) --> ('.$v.")
";
$v = ("0.3" / -.1); print "not " if $v ne q{-3}; print 'ok 1322 - ("0.3" / -.1) --> ('.$v.")
";
$v = ("0.3" / -.2); print "not " if $v ne q{-1.5}; print 'ok 1323 - ("0.3" / -.2) --> ('.$v.")
";
$v = ("0.3" / -.3); print "not " if $v ne q{-1}; print 'ok 1324 - ("0.3" / -.3) --> ('.$v.")
";
$v = ("0.3" / 0.1); print "not " if $v ne q{3}; print 'ok 1325 - ("0.3" / 0.1) --> ('.$v.")
";
$v = ("0.3" / 0.2); print "not " if $v ne q{1.5}; print 'ok 1326 - ("0.3" / 0.2) --> ('.$v.")
";
$v = ("0.3" / 0.3); print "not " if $v ne q{1}; print 'ok 1327 - ("0.3" / 0.3) --> ('.$v.")
";
$v = ("0.3" / -0.1); print "not " if $v ne q{-3}; print 'ok 1328 - ("0.3" / -0.1) --> ('.$v.")
";
$v = ("0.3" / -0.2); print "not " if $v ne q{-1.5}; print 'ok 1329 - ("0.3" / -0.2) --> ('.$v.")
";
$v = ("0.3" / -0.3); print "not " if $v ne q{-1}; print 'ok 1330 - ("0.3" / -0.3) --> ('.$v.")
";
$v = ("0.3" / 0.1e1); print "not " if $v ne q{0.3}; print 'ok 1331 - ("0.3" / 0.1e1) --> ('.$v.")
";
$v = ("0.3" / 0.2e1); print "not " if $v ne q{0.15}; print 'ok 1332 - ("0.3" / 0.2e1) --> ('.$v.")
";
$v = ("0.3" / 0.3e1); print "not " if $v ne q{0.1}; print 'ok 1333 - ("0.3" / 0.3e1) --> ('.$v.")
";
$v = ("0.3" / -0.1e1); print "not " if $v ne q{-0.3}; print 'ok 1334 - ("0.3" / -0.1e1) --> ('.$v.")
";
$v = ("0.3" / -0.2e1); print "not " if $v ne q{-0.15}; print 'ok 1335 - ("0.3" / -0.2e1) --> ('.$v.")
";
$v = ("0.3" / -0.3e1); print "not " if $v ne q{-0.1}; print 'ok 1336 - ("0.3" / -0.3e1) --> ('.$v.")
";
$v = ("0.3" / 10); print "not " if $v ne q{0.03}; print 'ok 1337 - ("0.3" / 10) --> ('.$v.")
";
$v = ("0.3" / 20); print "not " if $v ne q{0.015}; print 'ok 1338 - ("0.3" / 20) --> ('.$v.")
";
$v = ("0.3" / 30); print "not " if $v ne q{0.01}; print 'ok 1339 - ("0.3" / 30) --> ('.$v.")
";
$v = ("0.3" / -10); print "not " if $v ne q{-0.03}; print 'ok 1340 - ("0.3" / -10) --> ('.$v.")
";
$v = ("0.3" / -20); print "not " if $v ne q{-0.015}; print 'ok 1341 - ("0.3" / -20) --> ('.$v.")
";
$v = ("0.3" / -30); print "not " if $v ne q{-0.01}; print 'ok 1342 - ("0.3" / -30) --> ('.$v.")
";
$v = ("0.3" / @ab); print "not " if $v ne q{0.3}; print 'ok 1343 - ("0.3" / @ab) --> ('.$v.")
";
$v = ("0.3" / @ac); print "not " if $v ne q{0.1}; print 'ok 1344 - ("0.3" / @ac) --> ('.$v.")
";
$v = ("-0.0" / "1"); print "not " if $v ne q{0}; print 'ok 1345 - ("-0.0" / "1") --> ('.$v.")
";
$v = ("-0.0" / "2"); print "not " if $v ne q{0}; print 'ok 1346 - ("-0.0" / "2") --> ('.$v.")
";
$v = ("-0.0" / "3"); print "not " if $v ne q{0}; print 'ok 1347 - ("-0.0" / "3") --> ('.$v.")
";
$v = ("-0.0" / "-1"); print "not " if $v ne q{0}; print 'ok 1348 - ("-0.0" / "-1") --> ('.$v.")
";
$v = ("-0.0" / "-2"); print "not " if $v ne q{0}; print 'ok 1349 - ("-0.0" / "-2") --> ('.$v.")
";
$v = ("-0.0" / "-3"); print "not " if $v ne q{0}; print 'ok 1350 - ("-0.0" / "-3") --> ('.$v.")
";
$v = ("-0.0" / ".1"); print "not " if $v ne q{0}; print 'ok 1351 - ("-0.0" / ".1") --> ('.$v.")
";
$v = ("-0.0" / ".2"); print "not " if $v ne q{0}; print 'ok 1352 - ("-0.0" / ".2") --> ('.$v.")
";
$v = ("-0.0" / ".3"); print "not " if $v ne q{0}; print 'ok 1353 - ("-0.0" / ".3") --> ('.$v.")
";
$v = ("-0.0" / "-.1"); print "not " if $v ne q{0}; print 'ok 1354 - ("-0.0" / "-.1") --> ('.$v.")
";
$v = ("-0.0" / "-.2"); print "not " if $v ne q{0}; print 'ok 1355 - ("-0.0" / "-.2") --> ('.$v.")
";
$v = ("-0.0" / "-.3"); print "not " if $v ne q{0}; print 'ok 1356 - ("-0.0" / "-.3") --> ('.$v.")
";
$v = ("-0.0" / "0.1"); print "not " if $v ne q{0}; print 'ok 1357 - ("-0.0" / "0.1") --> ('.$v.")
";
$v = ("-0.0" / "0.2"); print "not " if $v ne q{0}; print 'ok 1358 - ("-0.0" / "0.2") --> ('.$v.")
";
$v = ("-0.0" / "0.3"); print "not " if $v ne q{0}; print 'ok 1359 - ("-0.0" / "0.3") --> ('.$v.")
";
$v = ("-0.0" / "-0.1"); print "not " if $v ne q{0}; print 'ok 1360 - ("-0.0" / "-0.1") --> ('.$v.")
";
$v = ("-0.0" / "-0.2"); print "not " if $v ne q{0}; print 'ok 1361 - ("-0.0" / "-0.2") --> ('.$v.")
";
$v = ("-0.0" / "-0.3"); print "not " if $v ne q{0}; print 'ok 1362 - ("-0.0" / "-0.3") --> ('.$v.")
";
$v = ("-0.0" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1363 - ("-0.0" / "0.1e1") --> ('.$v.")
";
$v = ("-0.0" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1364 - ("-0.0" / "0.2e1") --> ('.$v.")
";
$v = ("-0.0" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1365 - ("-0.0" / "0.3e1") --> ('.$v.")
";
$v = ("-0.0" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1366 - ("-0.0" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.0" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1367 - ("-0.0" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.0" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1368 - ("-0.0" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.0" / "10"); print "not " if $v ne q{0}; print 'ok 1369 - ("-0.0" / "10") --> ('.$v.")
";
$v = ("-0.0" / "20"); print "not " if $v ne q{0}; print 'ok 1370 - ("-0.0" / "20") --> ('.$v.")
";
$v = ("-0.0" / "30"); print "not " if $v ne q{0}; print 'ok 1371 - ("-0.0" / "30") --> ('.$v.")
";
$v = ("-0.0" / "-10"); print "not " if $v ne q{0}; print 'ok 1372 - ("-0.0" / "-10") --> ('.$v.")
";
$v = ("-0.0" / "-20"); print "not " if $v ne q{0}; print 'ok 1373 - ("-0.0" / "-20") --> ('.$v.")
";
$v = ("-0.0" / "-30"); print "not " if $v ne q{0}; print 'ok 1374 - ("-0.0" / "-30") --> ('.$v.")
";
$v = ("-0.0" / .1); print "not " if $v ne q{0}; print 'ok 1375 - ("-0.0" / .1) --> ('.$v.")
";
$v = ("-0.0" / .2); print "not " if $v ne q{0}; print 'ok 1376 - ("-0.0" / .2) --> ('.$v.")
";
$v = ("-0.0" / .3); print "not " if $v ne q{0}; print 'ok 1377 - ("-0.0" / .3) --> ('.$v.")
";
$v = ("-0.0" / -.1); print "not " if $v ne q{0}; print 'ok 1378 - ("-0.0" / -.1) --> ('.$v.")
";
$v = ("-0.0" / -.2); print "not " if $v ne q{0}; print 'ok 1379 - ("-0.0" / -.2) --> ('.$v.")
";
$v = ("-0.0" / -.3); print "not " if $v ne q{0}; print 'ok 1380 - ("-0.0" / -.3) --> ('.$v.")
";
$v = ("-0.0" / 0.1); print "not " if $v ne q{0}; print 'ok 1381 - ("-0.0" / 0.1) --> ('.$v.")
";
$v = ("-0.0" / 0.2); print "not " if $v ne q{0}; print 'ok 1382 - ("-0.0" / 0.2) --> ('.$v.")
";
$v = ("-0.0" / 0.3); print "not " if $v ne q{0}; print 'ok 1383 - ("-0.0" / 0.3) --> ('.$v.")
";
$v = ("-0.0" / -0.1); print "not " if $v ne q{0}; print 'ok 1384 - ("-0.0" / -0.1) --> ('.$v.")
";
$v = ("-0.0" / -0.2); print "not " if $v ne q{0}; print 'ok 1385 - ("-0.0" / -0.2) --> ('.$v.")
";
$v = ("-0.0" / -0.3); print "not " if $v ne q{0}; print 'ok 1386 - ("-0.0" / -0.3) --> ('.$v.")
";
$v = ("-0.0" / 0.1e1); print "not " if $v ne q{0}; print 'ok 1387 - ("-0.0" / 0.1e1) --> ('.$v.")
";
$v = ("-0.0" / 0.2e1); print "not " if $v ne q{0}; print 'ok 1388 - ("-0.0" / 0.2e1) --> ('.$v.")
";
$v = ("-0.0" / 0.3e1); print "not " if $v ne q{0}; print 'ok 1389 - ("-0.0" / 0.3e1) --> ('.$v.")
";
$v = ("-0.0" / -0.1e1); print "not " if $v ne q{0}; print 'ok 1390 - ("-0.0" / -0.1e1) --> ('.$v.")
";
$v = ("-0.0" / -0.2e1); print "not " if $v ne q{0}; print 'ok 1391 - ("-0.0" / -0.2e1) --> ('.$v.")
";
$v = ("-0.0" / -0.3e1); print "not " if $v ne q{0}; print 'ok 1392 - ("-0.0" / -0.3e1) --> ('.$v.")
";
$v = ("-0.0" / 10); print "not " if $v ne q{0}; print 'ok 1393 - ("-0.0" / 10) --> ('.$v.")
";
$v = ("-0.0" / 20); print "not " if $v ne q{0}; print 'ok 1394 - ("-0.0" / 20) --> ('.$v.")
";
$v = ("-0.0" / 30); print "not " if $v ne q{0}; print 'ok 1395 - ("-0.0" / 30) --> ('.$v.")
";
$v = ("-0.0" / -10); print "not " if $v ne q{0}; print 'ok 1396 - ("-0.0" / -10) --> ('.$v.")
";
$v = ("-0.0" / -20); print "not " if $v ne q{0}; print 'ok 1397 - ("-0.0" / -20) --> ('.$v.")
";
$v = ("-0.0" / -30); print "not " if $v ne q{0}; print 'ok 1398 - ("-0.0" / -30) --> ('.$v.")
";
$v = ("-0.0" / @ab); print "not " if $v ne q{0}; print 'ok 1399 - ("-0.0" / @ab) --> ('.$v.")
";
$v = ("-0.0" / @ac); print "not " if $v ne q{0}; print 'ok 1400 - ("-0.0" / @ac) --> ('.$v.")
";
$v = ("-0.1" / "1"); print "not " if $v ne q{-0.1}; print 'ok 1401 - ("-0.1" / "1") --> ('.$v.")
";
$v = ("-0.1" / "2"); print "not " if $v ne q{-0.05}; print 'ok 1402 - ("-0.1" / "2") --> ('.$v.")
";
$v = ("-0.1" / "3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1403 - ("-0.1" / "3") --> ('.$v.")
";
$v = ("-0.1" / "-1"); print "not " if $v ne q{0.1}; print 'ok 1404 - ("-0.1" / "-1") --> ('.$v.")
";
$v = ("-0.1" / "-2"); print "not " if $v ne q{0.05}; print 'ok 1405 - ("-0.1" / "-2") --> ('.$v.")
";
$v = ("-0.1" / "-3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1406 - ("-0.1" / "-3") --> ('.$v.")
";
$v = ("-0.1" / ".1"); print "not " if $v ne q{-1}; print 'ok 1407 - ("-0.1" / ".1") --> ('.$v.")
";
$v = ("-0.1" / ".2"); print "not " if $v ne q{-0.5}; print 'ok 1408 - ("-0.1" / ".2") --> ('.$v.")
";
$v = ("-0.1" / ".3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1409 - ("-0.1" / ".3") --> ('.$v.")
";
$v = ("-0.1" / "-.1"); print "not " if $v ne q{1}; print 'ok 1410 - ("-0.1" / "-.1") --> ('.$v.")
";
$v = ("-0.1" / "-.2"); print "not " if $v ne q{0.5}; print 'ok 1411 - ("-0.1" / "-.2") --> ('.$v.")
";
$v = ("-0.1" / "-.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1412 - ("-0.1" / "-.3") --> ('.$v.")
";
$v = ("-0.1" / "0.1"); print "not " if $v ne q{-1}; print 'ok 1413 - ("-0.1" / "0.1") --> ('.$v.")
";
$v = ("-0.1" / "0.2"); print "not " if $v ne q{-0.5}; print 'ok 1414 - ("-0.1" / "0.2") --> ('.$v.")
";
$v = ("-0.1" / "0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1415 - ("-0.1" / "0.3") --> ('.$v.")
";
$v = ("-0.1" / "-0.1"); print "not " if $v ne q{1}; print 'ok 1416 - ("-0.1" / "-0.1") --> ('.$v.")
";
$v = ("-0.1" / "-0.2"); print "not " if $v ne q{0.5}; print 'ok 1417 - ("-0.1" / "-0.2") --> ('.$v.")
";
$v = ("-0.1" / "-0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1418 - ("-0.1" / "-0.3") --> ('.$v.")
";
$v = ("-0.1" / "0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 1419 - ("-0.1" / "0.1e1") --> ('.$v.")
";
$v = ("-0.1" / "0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 1420 - ("-0.1" / "0.2e1") --> ('.$v.")
";
$v = ("-0.1" / "0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1421 - ("-0.1" / "0.3e1") --> ('.$v.")
";
$v = ("-0.1" / "-0.1e1"); print "not " if $v ne q{0.1}; print 'ok 1422 - ("-0.1" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.1" / "-0.2e1"); print "not " if $v ne q{0.05}; print 'ok 1423 - ("-0.1" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.1" / "-0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1424 - ("-0.1" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.1" / "10"); print "not " if $v ne q{-0.01}; print 'ok 1425 - ("-0.1" / "10") --> ('.$v.")
";
$v = ("-0.1" / "20"); print "not " if $v ne q{-0.005}; print 'ok 1426 - ("-0.1" / "20") --> ('.$v.")
";
$v = ("-0.1" / "30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 1427 - ("-0.1" / "30") --> ('.$v.")
";
$v = ("-0.1" / "-10"); print "not " if $v ne q{0.01}; print 'ok 1428 - ("-0.1" / "-10") --> ('.$v.")
";
$v = ("-0.1" / "-20"); print "not " if $v ne q{0.005}; print 'ok 1429 - ("-0.1" / "-20") --> ('.$v.")
";
$v = ("-0.1" / "-30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 1430 - ("-0.1" / "-30") --> ('.$v.")
";
$v = ("-0.1" / .1); print "not " if $v ne q{-1}; print 'ok 1431 - ("-0.1" / .1) --> ('.$v.")
";
$v = ("-0.1" / .2); print "not " if $v ne q{-0.5}; print 'ok 1432 - ("-0.1" / .2) --> ('.$v.")
";
$v = ("-0.1" / .3); print "not " if $v ne q{-0.333333333333333}; print 'ok 1433 - ("-0.1" / .3) --> ('.$v.")
";
$v = ("-0.1" / -.1); print "not " if $v ne q{1}; print 'ok 1434 - ("-0.1" / -.1) --> ('.$v.")
";
$v = ("-0.1" / -.2); print "not " if $v ne q{0.5}; print 'ok 1435 - ("-0.1" / -.2) --> ('.$v.")
";
$v = ("-0.1" / -.3); print "not " if $v ne q{0.333333333333333}; print 'ok 1436 - ("-0.1" / -.3) --> ('.$v.")
";
$v = ("-0.1" / 0.1); print "not " if $v ne q{-1}; print 'ok 1437 - ("-0.1" / 0.1) --> ('.$v.")
";
$v = ("-0.1" / 0.2); print "not " if $v ne q{-0.5}; print 'ok 1438 - ("-0.1" / 0.2) --> ('.$v.")
";
$v = ("-0.1" / 0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 1439 - ("-0.1" / 0.3) --> ('.$v.")
";
$v = ("-0.1" / -0.1); print "not " if $v ne q{1}; print 'ok 1440 - ("-0.1" / -0.1) --> ('.$v.")
";
$v = ("-0.1" / -0.2); print "not " if $v ne q{0.5}; print 'ok 1441 - ("-0.1" / -0.2) --> ('.$v.")
";
$v = ("-0.1" / -0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 1442 - ("-0.1" / -0.3) --> ('.$v.")
";
$v = ("-0.1" / 0.1e1); print "not " if $v ne q{-0.1}; print 'ok 1443 - ("-0.1" / 0.1e1) --> ('.$v.")
";
$v = ("-0.1" / 0.2e1); print "not " if $v ne q{-0.05}; print 'ok 1444 - ("-0.1" / 0.2e1) --> ('.$v.")
";
$v = ("-0.1" / 0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1445 - ("-0.1" / 0.3e1) --> ('.$v.")
";
$v = ("-0.1" / -0.1e1); print "not " if $v ne q{0.1}; print 'ok 1446 - ("-0.1" / -0.1e1) --> ('.$v.")
";
$v = ("-0.1" / -0.2e1); print "not " if $v ne q{0.05}; print 'ok 1447 - ("-0.1" / -0.2e1) --> ('.$v.")
";
$v = ("-0.1" / -0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 1448 - ("-0.1" / -0.3e1) --> ('.$v.")
";
$v = ("-0.1" / 10); print "not " if $v ne q{-0.01}; print 'ok 1449 - ("-0.1" / 10) --> ('.$v.")
";
$v = ("-0.1" / 20); print "not " if $v ne q{-0.005}; print 'ok 1450 - ("-0.1" / 20) --> ('.$v.")
";
$v = ("-0.1" / 30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 1451 - ("-0.1" / 30) --> ('.$v.")
";
$v = ("-0.1" / -10); print "not " if $v ne q{0.01}; print 'ok 1452 - ("-0.1" / -10) --> ('.$v.")
";
$v = ("-0.1" / -20); print "not " if $v ne q{0.005}; print 'ok 1453 - ("-0.1" / -20) --> ('.$v.")
";
$v = ("-0.1" / -30); print "not " if $v ne q{0.00333333333333333}; print 'ok 1454 - ("-0.1" / -30) --> ('.$v.")
";
$v = ("-0.1" / @ab); print "not " if $v ne q{-0.1}; print 'ok 1455 - ("-0.1" / @ab) --> ('.$v.")
";
$v = ("-0.1" / @ac); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1456 - ("-0.1" / @ac) --> ('.$v.")
";
$v = ("-0.2" / "1"); print "not " if $v ne q{-0.2}; print 'ok 1457 - ("-0.2" / "1") --> ('.$v.")
";
$v = ("-0.2" / "2"); print "not " if $v ne q{-0.1}; print 'ok 1458 - ("-0.2" / "2") --> ('.$v.")
";
$v = ("-0.2" / "3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1459 - ("-0.2" / "3") --> ('.$v.")
";
$v = ("-0.2" / "-1"); print "not " if $v ne q{0.2}; print 'ok 1460 - ("-0.2" / "-1") --> ('.$v.")
";
$v = ("-0.2" / "-2"); print "not " if $v ne q{0.1}; print 'ok 1461 - ("-0.2" / "-2") --> ('.$v.")
";
$v = ("-0.2" / "-3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1462 - ("-0.2" / "-3") --> ('.$v.")
";
$v = ("-0.2" / ".1"); print "not " if $v ne q{-2}; print 'ok 1463 - ("-0.2" / ".1") --> ('.$v.")
";
$v = ("-0.2" / ".2"); print "not " if $v ne q{-1}; print 'ok 1464 - ("-0.2" / ".2") --> ('.$v.")
";
$v = ("-0.2" / ".3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1465 - ("-0.2" / ".3") --> ('.$v.")
";
$v = ("-0.2" / "-.1"); print "not " if $v ne q{2}; print 'ok 1466 - ("-0.2" / "-.1") --> ('.$v.")
";
$v = ("-0.2" / "-.2"); print "not " if $v ne q{1}; print 'ok 1467 - ("-0.2" / "-.2") --> ('.$v.")
";
$v = ("-0.2" / "-.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1468 - ("-0.2" / "-.3") --> ('.$v.")
";
$v = ("-0.2" / "0.1"); print "not " if $v ne q{-2}; print 'ok 1469 - ("-0.2" / "0.1") --> ('.$v.")
";
$v = ("-0.2" / "0.2"); print "not " if $v ne q{-1}; print 'ok 1470 - ("-0.2" / "0.2") --> ('.$v.")
";
$v = ("-0.2" / "0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1471 - ("-0.2" / "0.3") --> ('.$v.")
";
$v = ("-0.2" / "-0.1"); print "not " if $v ne q{2}; print 'ok 1472 - ("-0.2" / "-0.1") --> ('.$v.")
";
$v = ("-0.2" / "-0.2"); print "not " if $v ne q{1}; print 'ok 1473 - ("-0.2" / "-0.2") --> ('.$v.")
";
$v = ("-0.2" / "-0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1474 - ("-0.2" / "-0.3") --> ('.$v.")
";
$v = ("-0.2" / "0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 1475 - ("-0.2" / "0.1e1") --> ('.$v.")
";
$v = ("-0.2" / "0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 1476 - ("-0.2" / "0.2e1") --> ('.$v.")
";
$v = ("-0.2" / "0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1477 - ("-0.2" / "0.3e1") --> ('.$v.")
";
$v = ("-0.2" / "-0.1e1"); print "not " if $v ne q{0.2}; print 'ok 1478 - ("-0.2" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.2" / "-0.2e1"); print "not " if $v ne q{0.1}; print 'ok 1479 - ("-0.2" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.2" / "-0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1480 - ("-0.2" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.2" / "10"); print "not " if $v ne q{-0.02}; print 'ok 1481 - ("-0.2" / "10") --> ('.$v.")
";
$v = ("-0.2" / "20"); print "not " if $v ne q{-0.01}; print 'ok 1482 - ("-0.2" / "20") --> ('.$v.")
";
$v = ("-0.2" / "30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 1483 - ("-0.2" / "30") --> ('.$v.")
";
$v = ("-0.2" / "-10"); print "not " if $v ne q{0.02}; print 'ok 1484 - ("-0.2" / "-10") --> ('.$v.")
";
$v = ("-0.2" / "-20"); print "not " if $v ne q{0.01}; print 'ok 1485 - ("-0.2" / "-20") --> ('.$v.")
";
$v = ("-0.2" / "-30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 1486 - ("-0.2" / "-30") --> ('.$v.")
";
$v = ("-0.2" / .1); print "not " if $v ne q{-2}; print 'ok 1487 - ("-0.2" / .1) --> ('.$v.")
";
$v = ("-0.2" / .2); print "not " if $v ne q{-1}; print 'ok 1488 - ("-0.2" / .2) --> ('.$v.")
";
$v = ("-0.2" / .3); print "not " if $v ne q{-0.666666666666667}; print 'ok 1489 - ("-0.2" / .3) --> ('.$v.")
";
$v = ("-0.2" / -.1); print "not " if $v ne q{2}; print 'ok 1490 - ("-0.2" / -.1) --> ('.$v.")
";
$v = ("-0.2" / -.2); print "not " if $v ne q{1}; print 'ok 1491 - ("-0.2" / -.2) --> ('.$v.")
";
$v = ("-0.2" / -.3); print "not " if $v ne q{0.666666666666667}; print 'ok 1492 - ("-0.2" / -.3) --> ('.$v.")
";
$v = ("-0.2" / 0.1); print "not " if $v ne q{-2}; print 'ok 1493 - ("-0.2" / 0.1) --> ('.$v.")
";
$v = ("-0.2" / 0.2); print "not " if $v ne q{-1}; print 'ok 1494 - ("-0.2" / 0.2) --> ('.$v.")
";
$v = ("-0.2" / 0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 1495 - ("-0.2" / 0.3) --> ('.$v.")
";
$v = ("-0.2" / -0.1); print "not " if $v ne q{2}; print 'ok 1496 - ("-0.2" / -0.1) --> ('.$v.")
";
$v = ("-0.2" / -0.2); print "not " if $v ne q{1}; print 'ok 1497 - ("-0.2" / -0.2) --> ('.$v.")
";
$v = ("-0.2" / -0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 1498 - ("-0.2" / -0.3) --> ('.$v.")
";
$v = ("-0.2" / 0.1e1); print "not " if $v ne q{-0.2}; print 'ok 1499 - ("-0.2" / 0.1e1) --> ('.$v.")
";
$v = ("-0.2" / 0.2e1); print "not " if $v ne q{-0.1}; print 'ok 1500 - ("-0.2" / 0.2e1) --> ('.$v.")
";
$v = ("-0.2" / 0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1501 - ("-0.2" / 0.3e1) --> ('.$v.")
";
$v = ("-0.2" / -0.1e1); print "not " if $v ne q{0.2}; print 'ok 1502 - ("-0.2" / -0.1e1) --> ('.$v.")
";
$v = ("-0.2" / -0.2e1); print "not " if $v ne q{0.1}; print 'ok 1503 - ("-0.2" / -0.2e1) --> ('.$v.")
";
$v = ("-0.2" / -0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 1504 - ("-0.2" / -0.3e1) --> ('.$v.")
";
$v = ("-0.2" / 10); print "not " if $v ne q{-0.02}; print 'ok 1505 - ("-0.2" / 10) --> ('.$v.")
";
$v = ("-0.2" / 20); print "not " if $v ne q{-0.01}; print 'ok 1506 - ("-0.2" / 20) --> ('.$v.")
";
$v = ("-0.2" / 30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 1507 - ("-0.2" / 30) --> ('.$v.")
";
$v = ("-0.2" / -10); print "not " if $v ne q{0.02}; print 'ok 1508 - ("-0.2" / -10) --> ('.$v.")
";
$v = ("-0.2" / -20); print "not " if $v ne q{0.01}; print 'ok 1509 - ("-0.2" / -20) --> ('.$v.")
";
$v = ("-0.2" / -30); print "not " if $v ne q{0.00666666666666667}; print 'ok 1510 - ("-0.2" / -30) --> ('.$v.")
";
$v = ("-0.2" / @ab); print "not " if $v ne q{-0.2}; print 'ok 1511 - ("-0.2" / @ab) --> ('.$v.")
";
$v = ("-0.2" / @ac); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1512 - ("-0.2" / @ac) --> ('.$v.")
";
$v = ("-0.3" / "1"); print "not " if $v ne q{-0.3}; print 'ok 1513 - ("-0.3" / "1") --> ('.$v.")
";
$v = ("-0.3" / "2"); print "not " if $v ne q{-0.15}; print 'ok 1514 - ("-0.3" / "2") --> ('.$v.")
";
$v = ("-0.3" / "3"); print "not " if $v ne q{-0.1}; print 'ok 1515 - ("-0.3" / "3") --> ('.$v.")
";
$v = ("-0.3" / "-1"); print "not " if $v ne q{0.3}; print 'ok 1516 - ("-0.3" / "-1") --> ('.$v.")
";
$v = ("-0.3" / "-2"); print "not " if $v ne q{0.15}; print 'ok 1517 - ("-0.3" / "-2") --> ('.$v.")
";
$v = ("-0.3" / "-3"); print "not " if $v ne q{0.1}; print 'ok 1518 - ("-0.3" / "-3") --> ('.$v.")
";
$v = ("-0.3" / ".1"); print "not " if $v ne q{-3}; print 'ok 1519 - ("-0.3" / ".1") --> ('.$v.")
";
$v = ("-0.3" / ".2"); print "not " if $v ne q{-1.5}; print 'ok 1520 - ("-0.3" / ".2") --> ('.$v.")
";
$v = ("-0.3" / ".3"); print "not " if $v ne q{-1}; print 'ok 1521 - ("-0.3" / ".3") --> ('.$v.")
";
$v = ("-0.3" / "-.1"); print "not " if $v ne q{3}; print 'ok 1522 - ("-0.3" / "-.1") --> ('.$v.")
";
$v = ("-0.3" / "-.2"); print "not " if $v ne q{1.5}; print 'ok 1523 - ("-0.3" / "-.2") --> ('.$v.")
";
$v = ("-0.3" / "-.3"); print "not " if $v ne q{1}; print 'ok 1524 - ("-0.3" / "-.3") --> ('.$v.")
";
$v = ("-0.3" / "0.1"); print "not " if $v ne q{-3}; print 'ok 1525 - ("-0.3" / "0.1") --> ('.$v.")
";
$v = ("-0.3" / "0.2"); print "not " if $v ne q{-1.5}; print 'ok 1526 - ("-0.3" / "0.2") --> ('.$v.")
";
$v = ("-0.3" / "0.3"); print "not " if $v ne q{-1}; print 'ok 1527 - ("-0.3" / "0.3") --> ('.$v.")
";
$v = ("-0.3" / "-0.1"); print "not " if $v ne q{3}; print 'ok 1528 - ("-0.3" / "-0.1") --> ('.$v.")
";
$v = ("-0.3" / "-0.2"); print "not " if $v ne q{1.5}; print 'ok 1529 - ("-0.3" / "-0.2") --> ('.$v.")
";
$v = ("-0.3" / "-0.3"); print "not " if $v ne q{1}; print 'ok 1530 - ("-0.3" / "-0.3") --> ('.$v.")
";
$v = ("-0.3" / "0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 1531 - ("-0.3" / "0.1e1") --> ('.$v.")
";
$v = ("-0.3" / "0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 1532 - ("-0.3" / "0.2e1") --> ('.$v.")
";
$v = ("-0.3" / "0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 1533 - ("-0.3" / "0.3e1") --> ('.$v.")
";
$v = ("-0.3" / "-0.1e1"); print "not " if $v ne q{0.3}; print 'ok 1534 - ("-0.3" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.3" / "-0.2e1"); print "not " if $v ne q{0.15}; print 'ok 1535 - ("-0.3" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.3" / "-0.3e1"); print "not " if $v ne q{0.1}; print 'ok 1536 - ("-0.3" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.3" / "10"); print "not " if $v ne q{-0.03}; print 'ok 1537 - ("-0.3" / "10") --> ('.$v.")
";
$v = ("-0.3" / "20"); print "not " if $v ne q{-0.015}; print 'ok 1538 - ("-0.3" / "20") --> ('.$v.")
";
$v = ("-0.3" / "30"); print "not " if $v ne q{-0.01}; print 'ok 1539 - ("-0.3" / "30") --> ('.$v.")
";
$v = ("-0.3" / "-10"); print "not " if $v ne q{0.03}; print 'ok 1540 - ("-0.3" / "-10") --> ('.$v.")
";
$v = ("-0.3" / "-20"); print "not " if $v ne q{0.015}; print 'ok 1541 - ("-0.3" / "-20") --> ('.$v.")
";
$v = ("-0.3" / "-30"); print "not " if $v ne q{0.01}; print 'ok 1542 - ("-0.3" / "-30") --> ('.$v.")
";
$v = ("-0.3" / .1); print "not " if $v ne q{-3}; print 'ok 1543 - ("-0.3" / .1) --> ('.$v.")
";
$v = ("-0.3" / .2); print "not " if $v ne q{-1.5}; print 'ok 1544 - ("-0.3" / .2) --> ('.$v.")
";
$v = ("-0.3" / .3); print "not " if $v ne q{-1}; print 'ok 1545 - ("-0.3" / .3) --> ('.$v.")
";
$v = ("-0.3" / -.1); print "not " if $v ne q{3}; print 'ok 1546 - ("-0.3" / -.1) --> ('.$v.")
";
$v = ("-0.3" / -.2); print "not " if $v ne q{1.5}; print 'ok 1547 - ("-0.3" / -.2) --> ('.$v.")
";
$v = ("-0.3" / -.3); print "not " if $v ne q{1}; print 'ok 1548 - ("-0.3" / -.3) --> ('.$v.")
";
$v = ("-0.3" / 0.1); print "not " if $v ne q{-3}; print 'ok 1549 - ("-0.3" / 0.1) --> ('.$v.")
";
$v = ("-0.3" / 0.2); print "not " if $v ne q{-1.5}; print 'ok 1550 - ("-0.3" / 0.2) --> ('.$v.")
";
$v = ("-0.3" / 0.3); print "not " if $v ne q{-1}; print 'ok 1551 - ("-0.3" / 0.3) --> ('.$v.")
";
$v = ("-0.3" / -0.1); print "not " if $v ne q{3}; print 'ok 1552 - ("-0.3" / -0.1) --> ('.$v.")
";
$v = ("-0.3" / -0.2); print "not " if $v ne q{1.5}; print 'ok 1553 - ("-0.3" / -0.2) --> ('.$v.")
";
$v = ("-0.3" / -0.3); print "not " if $v ne q{1}; print 'ok 1554 - ("-0.3" / -0.3) --> ('.$v.")
";
$v = ("-0.3" / 0.1e1); print "not " if $v ne q{-0.3}; print 'ok 1555 - ("-0.3" / 0.1e1) --> ('.$v.")
";
$v = ("-0.3" / 0.2e1); print "not " if $v ne q{-0.15}; print 'ok 1556 - ("-0.3" / 0.2e1) --> ('.$v.")
";
$v = ("-0.3" / 0.3e1); print "not " if $v ne q{-0.1}; print 'ok 1557 - ("-0.3" / 0.3e1) --> ('.$v.")
";
$v = ("-0.3" / -0.1e1); print "not " if $v ne q{0.3}; print 'ok 1558 - ("-0.3" / -0.1e1) --> ('.$v.")
";
$v = ("-0.3" / -0.2e1); print "not " if $v ne q{0.15}; print 'ok 1559 - ("-0.3" / -0.2e1) --> ('.$v.")
";
$v = ("-0.3" / -0.3e1); print "not " if $v ne q{0.1}; print 'ok 1560 - ("-0.3" / -0.3e1) --> ('.$v.")
";
$v = ("-0.3" / 10); print "not " if $v ne q{-0.03}; print 'ok 1561 - ("-0.3" / 10) --> ('.$v.")
";
$v = ("-0.3" / 20); print "not " if $v ne q{-0.015}; print 'ok 1562 - ("-0.3" / 20) --> ('.$v.")
";
$v = ("-0.3" / 30); print "not " if $v ne q{-0.01}; print 'ok 1563 - ("-0.3" / 30) --> ('.$v.")
";
$v = ("-0.3" / -10); print "not " if $v ne q{0.03}; print 'ok 1564 - ("-0.3" / -10) --> ('.$v.")
";
$v = ("-0.3" / -20); print "not " if $v ne q{0.015}; print 'ok 1565 - ("-0.3" / -20) --> ('.$v.")
";
$v = ("-0.3" / -30); print "not " if $v ne q{0.01}; print 'ok 1566 - ("-0.3" / -30) --> ('.$v.")
";
$v = ("-0.3" / @ab); print "not " if $v ne q{-0.3}; print 'ok 1567 - ("-0.3" / @ab) --> ('.$v.")
";
$v = ("-0.3" / @ac); print "not " if $v ne q{-0.1}; print 'ok 1568 - ("-0.3" / @ac) --> ('.$v.")
";
$v = ("0.e1" / "1"); print "not " if $v ne q{0}; print 'ok 1569 - ("0.e1" / "1") --> ('.$v.")
";
$v = ("0.e1" / "2"); print "not " if $v ne q{0}; print 'ok 1570 - ("0.e1" / "2") --> ('.$v.")
";
$v = ("0.e1" / "3"); print "not " if $v ne q{0}; print 'ok 1571 - ("0.e1" / "3") --> ('.$v.")
";
$v = ("0.e1" / "-1"); print "not " if $v ne q{0}; print 'ok 1572 - ("0.e1" / "-1") --> ('.$v.")
";
$v = ("0.e1" / "-2"); print "not " if $v ne q{0}; print 'ok 1573 - ("0.e1" / "-2") --> ('.$v.")
";
$v = ("0.e1" / "-3"); print "not " if $v ne q{0}; print 'ok 1574 - ("0.e1" / "-3") --> ('.$v.")
";
$v = ("0.e1" / ".1"); print "not " if $v ne q{0}; print 'ok 1575 - ("0.e1" / ".1") --> ('.$v.")
";
$v = ("0.e1" / ".2"); print "not " if $v ne q{0}; print 'ok 1576 - ("0.e1" / ".2") --> ('.$v.")
";
$v = ("0.e1" / ".3"); print "not " if $v ne q{0}; print 'ok 1577 - ("0.e1" / ".3") --> ('.$v.")
";
$v = ("0.e1" / "-.1"); print "not " if $v ne q{0}; print 'ok 1578 - ("0.e1" / "-.1") --> ('.$v.")
";
$v = ("0.e1" / "-.2"); print "not " if $v ne q{0}; print 'ok 1579 - ("0.e1" / "-.2") --> ('.$v.")
";
$v = ("0.e1" / "-.3"); print "not " if $v ne q{0}; print 'ok 1580 - ("0.e1" / "-.3") --> ('.$v.")
";
$v = ("0.e1" / "0.1"); print "not " if $v ne q{0}; print 'ok 1581 - ("0.e1" / "0.1") --> ('.$v.")
";
$v = ("0.e1" / "0.2"); print "not " if $v ne q{0}; print 'ok 1582 - ("0.e1" / "0.2") --> ('.$v.")
";
$v = ("0.e1" / "0.3"); print "not " if $v ne q{0}; print 'ok 1583 - ("0.e1" / "0.3") --> ('.$v.")
";
$v = ("0.e1" / "-0.1"); print "not " if $v ne q{0}; print 'ok 1584 - ("0.e1" / "-0.1") --> ('.$v.")
";
$v = ("0.e1" / "-0.2"); print "not " if $v ne q{0}; print 'ok 1585 - ("0.e1" / "-0.2") --> ('.$v.")
";
$v = ("0.e1" / "-0.3"); print "not " if $v ne q{0}; print 'ok 1586 - ("0.e1" / "-0.3") --> ('.$v.")
";
$v = ("0.e1" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1587 - ("0.e1" / "0.1e1") --> ('.$v.")
";
$v = ("0.e1" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1588 - ("0.e1" / "0.2e1") --> ('.$v.")
";
$v = ("0.e1" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1589 - ("0.e1" / "0.3e1") --> ('.$v.")
";
$v = ("0.e1" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1590 - ("0.e1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.e1" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1591 - ("0.e1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.e1" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1592 - ("0.e1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.e1" / "10"); print "not " if $v ne q{0}; print 'ok 1593 - ("0.e1" / "10") --> ('.$v.")
";
$v = ("0.e1" / "20"); print "not " if $v ne q{0}; print 'ok 1594 - ("0.e1" / "20") --> ('.$v.")
";
$v = ("0.e1" / "30"); print "not " if $v ne q{0}; print 'ok 1595 - ("0.e1" / "30") --> ('.$v.")
";
$v = ("0.e1" / "-10"); print "not " if $v ne q{0}; print 'ok 1596 - ("0.e1" / "-10") --> ('.$v.")
";
$v = ("0.e1" / "-20"); print "not " if $v ne q{0}; print 'ok 1597 - ("0.e1" / "-20") --> ('.$v.")
";
$v = ("0.e1" / "-30"); print "not " if $v ne q{0}; print 'ok 1598 - ("0.e1" / "-30") --> ('.$v.")
";
$v = ("0.e1" / .1); print "not " if $v ne q{0}; print 'ok 1599 - ("0.e1" / .1) --> ('.$v.")
";
$v = ("0.e1" / .2); print "not " if $v ne q{0}; print 'ok 1600 - ("0.e1" / .2) --> ('.$v.")
";
$v = ("0.e1" / .3); print "not " if $v ne q{0}; print 'ok 1601 - ("0.e1" / .3) --> ('.$v.")
";
$v = ("0.e1" / -.1); print "not " if $v ne q{0}; print 'ok 1602 - ("0.e1" / -.1) --> ('.$v.")
";
$v = ("0.e1" / -.2); print "not " if $v ne q{0}; print 'ok 1603 - ("0.e1" / -.2) --> ('.$v.")
";
$v = ("0.e1" / -.3); print "not " if $v ne q{0}; print 'ok 1604 - ("0.e1" / -.3) --> ('.$v.")
";
$v = ("0.e1" / 0.1); print "not " if $v ne q{0}; print 'ok 1605 - ("0.e1" / 0.1) --> ('.$v.")
";
$v = ("0.e1" / 0.2); print "not " if $v ne q{0}; print 'ok 1606 - ("0.e1" / 0.2) --> ('.$v.")
";
$v = ("0.e1" / 0.3); print "not " if $v ne q{0}; print 'ok 1607 - ("0.e1" / 0.3) --> ('.$v.")
";
$v = ("0.e1" / -0.1); print "not " if $v ne q{0}; print 'ok 1608 - ("0.e1" / -0.1) --> ('.$v.")
";
$v = ("0.e1" / -0.2); print "not " if $v ne q{0}; print 'ok 1609 - ("0.e1" / -0.2) --> ('.$v.")
";
$v = ("0.e1" / -0.3); print "not " if $v ne q{0}; print 'ok 1610 - ("0.e1" / -0.3) --> ('.$v.")
";
$v = ("0.e1" / 0.1e1); print "not " if $v ne q{0}; print 'ok 1611 - ("0.e1" / 0.1e1) --> ('.$v.")
";
$v = ("0.e1" / 0.2e1); print "not " if $v ne q{0}; print 'ok 1612 - ("0.e1" / 0.2e1) --> ('.$v.")
";
$v = ("0.e1" / 0.3e1); print "not " if $v ne q{0}; print 'ok 1613 - ("0.e1" / 0.3e1) --> ('.$v.")
";
$v = ("0.e1" / -0.1e1); print "not " if $v ne q{0}; print 'ok 1614 - ("0.e1" / -0.1e1) --> ('.$v.")
";
$v = ("0.e1" / -0.2e1); print "not " if $v ne q{0}; print 'ok 1615 - ("0.e1" / -0.2e1) --> ('.$v.")
";
$v = ("0.e1" / -0.3e1); print "not " if $v ne q{0}; print 'ok 1616 - ("0.e1" / -0.3e1) --> ('.$v.")
";
$v = ("0.e1" / 10); print "not " if $v ne q{0}; print 'ok 1617 - ("0.e1" / 10) --> ('.$v.")
";
$v = ("0.e1" / 20); print "not " if $v ne q{0}; print 'ok 1618 - ("0.e1" / 20) --> ('.$v.")
";
$v = ("0.e1" / 30); print "not " if $v ne q{0}; print 'ok 1619 - ("0.e1" / 30) --> ('.$v.")
";
$v = ("0.e1" / -10); print "not " if $v ne q{0}; print 'ok 1620 - ("0.e1" / -10) --> ('.$v.")
";
$v = ("0.e1" / -20); print "not " if $v ne q{0}; print 'ok 1621 - ("0.e1" / -20) --> ('.$v.")
";
$v = ("0.e1" / -30); print "not " if $v ne q{0}; print 'ok 1622 - ("0.e1" / -30) --> ('.$v.")
";
$v = ("0.e1" / @ab); print "not " if $v ne q{0}; print 'ok 1623 - ("0.e1" / @ab) --> ('.$v.")
";
$v = ("0.e1" / @ac); print "not " if $v ne q{0}; print 'ok 1624 - ("0.e1" / @ac) --> ('.$v.")
";
$v = ("0.0e1" / "1"); print "not " if $v ne q{0}; print 'ok 1625 - ("0.0e1" / "1") --> ('.$v.")
";
$v = ("0.0e1" / "2"); print "not " if $v ne q{0}; print 'ok 1626 - ("0.0e1" / "2") --> ('.$v.")
";
$v = ("0.0e1" / "3"); print "not " if $v ne q{0}; print 'ok 1627 - ("0.0e1" / "3") --> ('.$v.")
";
$v = ("0.0e1" / "-1"); print "not " if $v ne q{0}; print 'ok 1628 - ("0.0e1" / "-1") --> ('.$v.")
";
$v = ("0.0e1" / "-2"); print "not " if $v ne q{0}; print 'ok 1629 - ("0.0e1" / "-2") --> ('.$v.")
";
$v = ("0.0e1" / "-3"); print "not " if $v ne q{0}; print 'ok 1630 - ("0.0e1" / "-3") --> ('.$v.")
";
$v = ("0.0e1" / ".1"); print "not " if $v ne q{0}; print 'ok 1631 - ("0.0e1" / ".1") --> ('.$v.")
";
$v = ("0.0e1" / ".2"); print "not " if $v ne q{0}; print 'ok 1632 - ("0.0e1" / ".2") --> ('.$v.")
";
$v = ("0.0e1" / ".3"); print "not " if $v ne q{0}; print 'ok 1633 - ("0.0e1" / ".3") --> ('.$v.")
";
$v = ("0.0e1" / "-.1"); print "not " if $v ne q{0}; print 'ok 1634 - ("0.0e1" / "-.1") --> ('.$v.")
";
$v = ("0.0e1" / "-.2"); print "not " if $v ne q{0}; print 'ok 1635 - ("0.0e1" / "-.2") --> ('.$v.")
";
$v = ("0.0e1" / "-.3"); print "not " if $v ne q{0}; print 'ok 1636 - ("0.0e1" / "-.3") --> ('.$v.")
";
$v = ("0.0e1" / "0.1"); print "not " if $v ne q{0}; print 'ok 1637 - ("0.0e1" / "0.1") --> ('.$v.")
";
$v = ("0.0e1" / "0.2"); print "not " if $v ne q{0}; print 'ok 1638 - ("0.0e1" / "0.2") --> ('.$v.")
";
$v = ("0.0e1" / "0.3"); print "not " if $v ne q{0}; print 'ok 1639 - ("0.0e1" / "0.3") --> ('.$v.")
";
$v = ("0.0e1" / "-0.1"); print "not " if $v ne q{0}; print 'ok 1640 - ("0.0e1" / "-0.1") --> ('.$v.")
";
$v = ("0.0e1" / "-0.2"); print "not " if $v ne q{0}; print 'ok 1641 - ("0.0e1" / "-0.2") --> ('.$v.")
";
$v = ("0.0e1" / "-0.3"); print "not " if $v ne q{0}; print 'ok 1642 - ("0.0e1" / "-0.3") --> ('.$v.")
";
$v = ("0.0e1" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1643 - ("0.0e1" / "0.1e1") --> ('.$v.")
";
$v = ("0.0e1" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1644 - ("0.0e1" / "0.2e1") --> ('.$v.")
";
$v = ("0.0e1" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1645 - ("0.0e1" / "0.3e1") --> ('.$v.")
";
$v = ("0.0e1" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1646 - ("0.0e1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.0e1" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1647 - ("0.0e1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.0e1" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1648 - ("0.0e1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.0e1" / "10"); print "not " if $v ne q{0}; print 'ok 1649 - ("0.0e1" / "10") --> ('.$v.")
";
$v = ("0.0e1" / "20"); print "not " if $v ne q{0}; print 'ok 1650 - ("0.0e1" / "20") --> ('.$v.")
";
$v = ("0.0e1" / "30"); print "not " if $v ne q{0}; print 'ok 1651 - ("0.0e1" / "30") --> ('.$v.")
";
$v = ("0.0e1" / "-10"); print "not " if $v ne q{0}; print 'ok 1652 - ("0.0e1" / "-10") --> ('.$v.")
";
$v = ("0.0e1" / "-20"); print "not " if $v ne q{0}; print 'ok 1653 - ("0.0e1" / "-20") --> ('.$v.")
";
$v = ("0.0e1" / "-30"); print "not " if $v ne q{0}; print 'ok 1654 - ("0.0e1" / "-30") --> ('.$v.")
";
$v = ("0.0e1" / .1); print "not " if $v ne q{0}; print 'ok 1655 - ("0.0e1" / .1) --> ('.$v.")
";
$v = ("0.0e1" / .2); print "not " if $v ne q{0}; print 'ok 1656 - ("0.0e1" / .2) --> ('.$v.")
";
$v = ("0.0e1" / .3); print "not " if $v ne q{0}; print 'ok 1657 - ("0.0e1" / .3) --> ('.$v.")
";
$v = ("0.0e1" / -.1); print "not " if $v ne q{0}; print 'ok 1658 - ("0.0e1" / -.1) --> ('.$v.")
";
$v = ("0.0e1" / -.2); print "not " if $v ne q{0}; print 'ok 1659 - ("0.0e1" / -.2) --> ('.$v.")
";
$v = ("0.0e1" / -.3); print "not " if $v ne q{0}; print 'ok 1660 - ("0.0e1" / -.3) --> ('.$v.")
";
$v = ("0.0e1" / 0.1); print "not " if $v ne q{0}; print 'ok 1661 - ("0.0e1" / 0.1) --> ('.$v.")
";
$v = ("0.0e1" / 0.2); print "not " if $v ne q{0}; print 'ok 1662 - ("0.0e1" / 0.2) --> ('.$v.")
";
$v = ("0.0e1" / 0.3); print "not " if $v ne q{0}; print 'ok 1663 - ("0.0e1" / 0.3) --> ('.$v.")
";
$v = ("0.0e1" / -0.1); print "not " if $v ne q{0}; print 'ok 1664 - ("0.0e1" / -0.1) --> ('.$v.")
";
$v = ("0.0e1" / -0.2); print "not " if $v ne q{0}; print 'ok 1665 - ("0.0e1" / -0.2) --> ('.$v.")
";
$v = ("0.0e1" / -0.3); print "not " if $v ne q{0}; print 'ok 1666 - ("0.0e1" / -0.3) --> ('.$v.")
";
$v = ("0.0e1" / 0.1e1); print "not " if $v ne q{0}; print 'ok 1667 - ("0.0e1" / 0.1e1) --> ('.$v.")
";
$v = ("0.0e1" / 0.2e1); print "not " if $v ne q{0}; print 'ok 1668 - ("0.0e1" / 0.2e1) --> ('.$v.")
";
$v = ("0.0e1" / 0.3e1); print "not " if $v ne q{0}; print 'ok 1669 - ("0.0e1" / 0.3e1) --> ('.$v.")
";
$v = ("0.0e1" / -0.1e1); print "not " if $v ne q{0}; print 'ok 1670 - ("0.0e1" / -0.1e1) --> ('.$v.")
";
$v = ("0.0e1" / -0.2e1); print "not " if $v ne q{0}; print 'ok 1671 - ("0.0e1" / -0.2e1) --> ('.$v.")
";
$v = ("0.0e1" / -0.3e1); print "not " if $v ne q{0}; print 'ok 1672 - ("0.0e1" / -0.3e1) --> ('.$v.")
";
$v = ("0.0e1" / 10); print "not " if $v ne q{0}; print 'ok 1673 - ("0.0e1" / 10) --> ('.$v.")
";
$v = ("0.0e1" / 20); print "not " if $v ne q{0}; print 'ok 1674 - ("0.0e1" / 20) --> ('.$v.")
";
$v = ("0.0e1" / 30); print "not " if $v ne q{0}; print 'ok 1675 - ("0.0e1" / 30) --> ('.$v.")
";
$v = ("0.0e1" / -10); print "not " if $v ne q{0}; print 'ok 1676 - ("0.0e1" / -10) --> ('.$v.")
";
$v = ("0.0e1" / -20); print "not " if $v ne q{0}; print 'ok 1677 - ("0.0e1" / -20) --> ('.$v.")
";
$v = ("0.0e1" / -30); print "not " if $v ne q{0}; print 'ok 1678 - ("0.0e1" / -30) --> ('.$v.")
";
$v = ("0.0e1" / @ab); print "not " if $v ne q{0}; print 'ok 1679 - ("0.0e1" / @ab) --> ('.$v.")
";
$v = ("0.0e1" / @ac); print "not " if $v ne q{0}; print 'ok 1680 - ("0.0e1" / @ac) --> ('.$v.")
";
$v = ("0.1e1" / "1"); print "not " if $v ne q{1}; print 'ok 1681 - ("0.1e1" / "1") --> ('.$v.")
";
$v = ("0.1e1" / "2"); print "not " if $v ne q{0.5}; print 'ok 1682 - ("0.1e1" / "2") --> ('.$v.")
";
$v = ("0.1e1" / "3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1683 - ("0.1e1" / "3") --> ('.$v.")
";
$v = ("0.1e1" / "-1"); print "not " if $v ne q{-1}; print 'ok 1684 - ("0.1e1" / "-1") --> ('.$v.")
";
$v = ("0.1e1" / "-2"); print "not " if $v ne q{-0.5}; print 'ok 1685 - ("0.1e1" / "-2") --> ('.$v.")
";
$v = ("0.1e1" / "-3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1686 - ("0.1e1" / "-3") --> ('.$v.")
";
$v = ("0.1e1" / ".1"); print "not " if $v ne q{10}; print 'ok 1687 - ("0.1e1" / ".1") --> ('.$v.")
";
$v = ("0.1e1" / ".2"); print "not " if $v ne q{5}; print 'ok 1688 - ("0.1e1" / ".2") --> ('.$v.")
";
$v = ("0.1e1" / ".3"); print "not " if $v ne q{3.33333333333333}; print 'ok 1689 - ("0.1e1" / ".3") --> ('.$v.")
";
$v = ("0.1e1" / "-.1"); print "not " if $v ne q{-10}; print 'ok 1690 - ("0.1e1" / "-.1") --> ('.$v.")
";
$v = ("0.1e1" / "-.2"); print "not " if $v ne q{-5}; print 'ok 1691 - ("0.1e1" / "-.2") --> ('.$v.")
";
$v = ("0.1e1" / "-.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 1692 - ("0.1e1" / "-.3") --> ('.$v.")
";
$v = ("0.1e1" / "0.1"); print "not " if $v ne q{10}; print 'ok 1693 - ("0.1e1" / "0.1") --> ('.$v.")
";
$v = ("0.1e1" / "0.2"); print "not " if $v ne q{5}; print 'ok 1694 - ("0.1e1" / "0.2") --> ('.$v.")
";
$v = ("0.1e1" / "0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 1695 - ("0.1e1" / "0.3") --> ('.$v.")
";
$v = ("0.1e1" / "-0.1"); print "not " if $v ne q{-10}; print 'ok 1696 - ("0.1e1" / "-0.1") --> ('.$v.")
";
$v = ("0.1e1" / "-0.2"); print "not " if $v ne q{-5}; print 'ok 1697 - ("0.1e1" / "-0.2") --> ('.$v.")
";
$v = ("0.1e1" / "-0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 1698 - ("0.1e1" / "-0.3") --> ('.$v.")
";
$v = ("0.1e1" / "0.1e1"); print "not " if $v ne q{1}; print 'ok 1699 - ("0.1e1" / "0.1e1") --> ('.$v.")
";
$v = ("0.1e1" / "0.2e1"); print "not " if $v ne q{0.5}; print 'ok 1700 - ("0.1e1" / "0.2e1") --> ('.$v.")
";
$v = ("0.1e1" / "0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 1701 - ("0.1e1" / "0.3e1") --> ('.$v.")
";
$v = ("0.1e1" / "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 1702 - ("0.1e1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.1e1" / "-0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 1703 - ("0.1e1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.1e1" / "-0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1704 - ("0.1e1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.1e1" / "10"); print "not " if $v ne q{0.1}; print 'ok 1705 - ("0.1e1" / "10") --> ('.$v.")
";
$v = ("0.1e1" / "20"); print "not " if $v ne q{0.05}; print 'ok 1706 - ("0.1e1" / "20") --> ('.$v.")
";
$v = ("0.1e1" / "30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1707 - ("0.1e1" / "30") --> ('.$v.")
";
$v = ("0.1e1" / "-10"); print "not " if $v ne q{-0.1}; print 'ok 1708 - ("0.1e1" / "-10") --> ('.$v.")
";
$v = ("0.1e1" / "-20"); print "not " if $v ne q{-0.05}; print 'ok 1709 - ("0.1e1" / "-20") --> ('.$v.")
";
$v = ("0.1e1" / "-30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1710 - ("0.1e1" / "-30") --> ('.$v.")
";
$v = ("0.1e1" / .1); print "not " if $v ne q{10}; print 'ok 1711 - ("0.1e1" / .1) --> ('.$v.")
";
$v = ("0.1e1" / .2); print "not " if $v ne q{5}; print 'ok 1712 - ("0.1e1" / .2) --> ('.$v.")
";
$v = ("0.1e1" / .3); print "not " if $v ne q{3.33333333333333}; print 'ok 1713 - ("0.1e1" / .3) --> ('.$v.")
";
$v = ("0.1e1" / -.1); print "not " if $v ne q{-10}; print 'ok 1714 - ("0.1e1" / -.1) --> ('.$v.")
";
$v = ("0.1e1" / -.2); print "not " if $v ne q{-5}; print 'ok 1715 - ("0.1e1" / -.2) --> ('.$v.")
";
$v = ("0.1e1" / -.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 1716 - ("0.1e1" / -.3) --> ('.$v.")
";
$v = ("0.1e1" / 0.1); print "not " if $v ne q{10}; print 'ok 1717 - ("0.1e1" / 0.1) --> ('.$v.")
";
$v = ("0.1e1" / 0.2); print "not " if $v ne q{5}; print 'ok 1718 - ("0.1e1" / 0.2) --> ('.$v.")
";
$v = ("0.1e1" / 0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 1719 - ("0.1e1" / 0.3) --> ('.$v.")
";
$v = ("0.1e1" / -0.1); print "not " if $v ne q{-10}; print 'ok 1720 - ("0.1e1" / -0.1) --> ('.$v.")
";
$v = ("0.1e1" / -0.2); print "not " if $v ne q{-5}; print 'ok 1721 - ("0.1e1" / -0.2) --> ('.$v.")
";
$v = ("0.1e1" / -0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 1722 - ("0.1e1" / -0.3) --> ('.$v.")
";
$v = ("0.1e1" / 0.1e1); print "not " if $v ne q{1}; print 'ok 1723 - ("0.1e1" / 0.1e1) --> ('.$v.")
";
$v = ("0.1e1" / 0.2e1); print "not " if $v ne q{0.5}; print 'ok 1724 - ("0.1e1" / 0.2e1) --> ('.$v.")
";
$v = ("0.1e1" / 0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 1725 - ("0.1e1" / 0.3e1) --> ('.$v.")
";
$v = ("0.1e1" / -0.1e1); print "not " if $v ne q{-1}; print 'ok 1726 - ("0.1e1" / -0.1e1) --> ('.$v.")
";
$v = ("0.1e1" / -0.2e1); print "not " if $v ne q{-0.5}; print 'ok 1727 - ("0.1e1" / -0.2e1) --> ('.$v.")
";
$v = ("0.1e1" / -0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 1728 - ("0.1e1" / -0.3e1) --> ('.$v.")
";
$v = ("0.1e1" / 10); print "not " if $v ne q{0.1}; print 'ok 1729 - ("0.1e1" / 10) --> ('.$v.")
";
$v = ("0.1e1" / 20); print "not " if $v ne q{0.05}; print 'ok 1730 - ("0.1e1" / 20) --> ('.$v.")
";
$v = ("0.1e1" / 30); print "not " if $v ne q{0.0333333333333333}; print 'ok 1731 - ("0.1e1" / 30) --> ('.$v.")
";
$v = ("0.1e1" / -10); print "not " if $v ne q{-0.1}; print 'ok 1732 - ("0.1e1" / -10) --> ('.$v.")
";
$v = ("0.1e1" / -20); print "not " if $v ne q{-0.05}; print 'ok 1733 - ("0.1e1" / -20) --> ('.$v.")
";
$v = ("0.1e1" / -30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1734 - ("0.1e1" / -30) --> ('.$v.")
";
$v = ("0.1e1" / @ab); print "not " if $v ne q{1}; print 'ok 1735 - ("0.1e1" / @ab) --> ('.$v.")
";
$v = ("0.1e1" / @ac); print "not " if $v ne q{0.333333333333333}; print 'ok 1736 - ("0.1e1" / @ac) --> ('.$v.")
";
$v = ("0.2e1" / "1"); print "not " if $v ne q{2}; print 'ok 1737 - ("0.2e1" / "1") --> ('.$v.")
";
$v = ("0.2e1" / "2"); print "not " if $v ne q{1}; print 'ok 1738 - ("0.2e1" / "2") --> ('.$v.")
";
$v = ("0.2e1" / "3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1739 - ("0.2e1" / "3") --> ('.$v.")
";
$v = ("0.2e1" / "-1"); print "not " if $v ne q{-2}; print 'ok 1740 - ("0.2e1" / "-1") --> ('.$v.")
";
$v = ("0.2e1" / "-2"); print "not " if $v ne q{-1}; print 'ok 1741 - ("0.2e1" / "-2") --> ('.$v.")
";
$v = ("0.2e1" / "-3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1742 - ("0.2e1" / "-3") --> ('.$v.")
";
$v = ("0.2e1" / ".1"); print "not " if $v ne q{20}; print 'ok 1743 - ("0.2e1" / ".1") --> ('.$v.")
";
$v = ("0.2e1" / ".2"); print "not " if $v ne q{10}; print 'ok 1744 - ("0.2e1" / ".2") --> ('.$v.")
";
$v = ("0.2e1" / ".3"); print "not " if $v ne q{6.66666666666667}; print 'ok 1745 - ("0.2e1" / ".3") --> ('.$v.")
";
$v = ("0.2e1" / "-.1"); print "not " if $v ne q{-20}; print 'ok 1746 - ("0.2e1" / "-.1") --> ('.$v.")
";
$v = ("0.2e1" / "-.2"); print "not " if $v ne q{-10}; print 'ok 1747 - ("0.2e1" / "-.2") --> ('.$v.")
";
$v = ("0.2e1" / "-.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 1748 - ("0.2e1" / "-.3") --> ('.$v.")
";
$v = ("0.2e1" / "0.1"); print "not " if $v ne q{20}; print 'ok 1749 - ("0.2e1" / "0.1") --> ('.$v.")
";
$v = ("0.2e1" / "0.2"); print "not " if $v ne q{10}; print 'ok 1750 - ("0.2e1" / "0.2") --> ('.$v.")
";
$v = ("0.2e1" / "0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 1751 - ("0.2e1" / "0.3") --> ('.$v.")
";
$v = ("0.2e1" / "-0.1"); print "not " if $v ne q{-20}; print 'ok 1752 - ("0.2e1" / "-0.1") --> ('.$v.")
";
$v = ("0.2e1" / "-0.2"); print "not " if $v ne q{-10}; print 'ok 1753 - ("0.2e1" / "-0.2") --> ('.$v.")
";
$v = ("0.2e1" / "-0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 1754 - ("0.2e1" / "-0.3") --> ('.$v.")
";
$v = ("0.2e1" / "0.1e1"); print "not " if $v ne q{2}; print 'ok 1755 - ("0.2e1" / "0.1e1") --> ('.$v.")
";
$v = ("0.2e1" / "0.2e1"); print "not " if $v ne q{1}; print 'ok 1756 - ("0.2e1" / "0.2e1") --> ('.$v.")
";
$v = ("0.2e1" / "0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 1757 - ("0.2e1" / "0.3e1") --> ('.$v.")
";
$v = ("0.2e1" / "-0.1e1"); print "not " if $v ne q{-2}; print 'ok 1758 - ("0.2e1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.2e1" / "-0.2e1"); print "not " if $v ne q{-1}; print 'ok 1759 - ("0.2e1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.2e1" / "-0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1760 - ("0.2e1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.2e1" / "10"); print "not " if $v ne q{0.2}; print 'ok 1761 - ("0.2e1" / "10") --> ('.$v.")
";
$v = ("0.2e1" / "20"); print "not " if $v ne q{0.1}; print 'ok 1762 - ("0.2e1" / "20") --> ('.$v.")
";
$v = ("0.2e1" / "30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1763 - ("0.2e1" / "30") --> ('.$v.")
";
$v = ("0.2e1" / "-10"); print "not " if $v ne q{-0.2}; print 'ok 1764 - ("0.2e1" / "-10") --> ('.$v.")
";
$v = ("0.2e1" / "-20"); print "not " if $v ne q{-0.1}; print 'ok 1765 - ("0.2e1" / "-20") --> ('.$v.")
";
$v = ("0.2e1" / "-30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1766 - ("0.2e1" / "-30") --> ('.$v.")
";
$v = ("0.2e1" / .1); print "not " if $v ne q{20}; print 'ok 1767 - ("0.2e1" / .1) --> ('.$v.")
";
$v = ("0.2e1" / .2); print "not " if $v ne q{10}; print 'ok 1768 - ("0.2e1" / .2) --> ('.$v.")
";
$v = ("0.2e1" / .3); print "not " if $v ne q{6.66666666666667}; print 'ok 1769 - ("0.2e1" / .3) --> ('.$v.")
";
$v = ("0.2e1" / -.1); print "not " if $v ne q{-20}; print 'ok 1770 - ("0.2e1" / -.1) --> ('.$v.")
";
$v = ("0.2e1" / -.2); print "not " if $v ne q{-10}; print 'ok 1771 - ("0.2e1" / -.2) --> ('.$v.")
";
$v = ("0.2e1" / -.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 1772 - ("0.2e1" / -.3) --> ('.$v.")
";
$v = ("0.2e1" / 0.1); print "not " if $v ne q{20}; print 'ok 1773 - ("0.2e1" / 0.1) --> ('.$v.")
";
$v = ("0.2e1" / 0.2); print "not " if $v ne q{10}; print 'ok 1774 - ("0.2e1" / 0.2) --> ('.$v.")
";
$v = ("0.2e1" / 0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 1775 - ("0.2e1" / 0.3) --> ('.$v.")
";
$v = ("0.2e1" / -0.1); print "not " if $v ne q{-20}; print 'ok 1776 - ("0.2e1" / -0.1) --> ('.$v.")
";
$v = ("0.2e1" / -0.2); print "not " if $v ne q{-10}; print 'ok 1777 - ("0.2e1" / -0.2) --> ('.$v.")
";
$v = ("0.2e1" / -0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 1778 - ("0.2e1" / -0.3) --> ('.$v.")
";
$v = ("0.2e1" / 0.1e1); print "not " if $v ne q{2}; print 'ok 1779 - ("0.2e1" / 0.1e1) --> ('.$v.")
";
$v = ("0.2e1" / 0.2e1); print "not " if $v ne q{1}; print 'ok 1780 - ("0.2e1" / 0.2e1) --> ('.$v.")
";
$v = ("0.2e1" / 0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 1781 - ("0.2e1" / 0.3e1) --> ('.$v.")
";
$v = ("0.2e1" / -0.1e1); print "not " if $v ne q{-2}; print 'ok 1782 - ("0.2e1" / -0.1e1) --> ('.$v.")
";
$v = ("0.2e1" / -0.2e1); print "not " if $v ne q{-1}; print 'ok 1783 - ("0.2e1" / -0.2e1) --> ('.$v.")
";
$v = ("0.2e1" / -0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 1784 - ("0.2e1" / -0.3e1) --> ('.$v.")
";
$v = ("0.2e1" / 10); print "not " if $v ne q{0.2}; print 'ok 1785 - ("0.2e1" / 10) --> ('.$v.")
";
$v = ("0.2e1" / 20); print "not " if $v ne q{0.1}; print 'ok 1786 - ("0.2e1" / 20) --> ('.$v.")
";
$v = ("0.2e1" / 30); print "not " if $v ne q{0.0666666666666667}; print 'ok 1787 - ("0.2e1" / 30) --> ('.$v.")
";
$v = ("0.2e1" / -10); print "not " if $v ne q{-0.2}; print 'ok 1788 - ("0.2e1" / -10) --> ('.$v.")
";
$v = ("0.2e1" / -20); print "not " if $v ne q{-0.1}; print 'ok 1789 - ("0.2e1" / -20) --> ('.$v.")
";
$v = ("0.2e1" / -30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1790 - ("0.2e1" / -30) --> ('.$v.")
";
$v = ("0.2e1" / @ab); print "not " if $v ne q{2}; print 'ok 1791 - ("0.2e1" / @ab) --> ('.$v.")
";
$v = ("0.2e1" / @ac); print "not " if $v ne q{0.666666666666667}; print 'ok 1792 - ("0.2e1" / @ac) --> ('.$v.")
";
$v = ("0.3e1" / "1"); print "not " if $v ne q{3}; print 'ok 1793 - ("0.3e1" / "1") --> ('.$v.")
";
$v = ("0.3e1" / "2"); print "not " if $v ne q{1.5}; print 'ok 1794 - ("0.3e1" / "2") --> ('.$v.")
";
$v = ("0.3e1" / "3"); print "not " if $v ne q{1}; print 'ok 1795 - ("0.3e1" / "3") --> ('.$v.")
";
$v = ("0.3e1" / "-1"); print "not " if $v ne q{-3}; print 'ok 1796 - ("0.3e1" / "-1") --> ('.$v.")
";
$v = ("0.3e1" / "-2"); print "not " if $v ne q{-1.5}; print 'ok 1797 - ("0.3e1" / "-2") --> ('.$v.")
";
$v = ("0.3e1" / "-3"); print "not " if $v ne q{-1}; print 'ok 1798 - ("0.3e1" / "-3") --> ('.$v.")
";
$v = ("0.3e1" / ".1"); print "not " if $v ne q{30}; print 'ok 1799 - ("0.3e1" / ".1") --> ('.$v.")
";
$v = ("0.3e1" / ".2"); print "not " if $v ne q{15}; print 'ok 1800 - ("0.3e1" / ".2") --> ('.$v.")
";
$v = ("0.3e1" / ".3"); print "not " if $v ne q{10}; print 'ok 1801 - ("0.3e1" / ".3") --> ('.$v.")
";
$v = ("0.3e1" / "-.1"); print "not " if $v ne q{-30}; print 'ok 1802 - ("0.3e1" / "-.1") --> ('.$v.")
";
$v = ("0.3e1" / "-.2"); print "not " if $v ne q{-15}; print 'ok 1803 - ("0.3e1" / "-.2") --> ('.$v.")
";
$v = ("0.3e1" / "-.3"); print "not " if $v ne q{-10}; print 'ok 1804 - ("0.3e1" / "-.3") --> ('.$v.")
";
$v = ("0.3e1" / "0.1"); print "not " if $v ne q{30}; print 'ok 1805 - ("0.3e1" / "0.1") --> ('.$v.")
";
$v = ("0.3e1" / "0.2"); print "not " if $v ne q{15}; print 'ok 1806 - ("0.3e1" / "0.2") --> ('.$v.")
";
$v = ("0.3e1" / "0.3"); print "not " if $v ne q{10}; print 'ok 1807 - ("0.3e1" / "0.3") --> ('.$v.")
";
$v = ("0.3e1" / "-0.1"); print "not " if $v ne q{-30}; print 'ok 1808 - ("0.3e1" / "-0.1") --> ('.$v.")
";
$v = ("0.3e1" / "-0.2"); print "not " if $v ne q{-15}; print 'ok 1809 - ("0.3e1" / "-0.2") --> ('.$v.")
";
$v = ("0.3e1" / "-0.3"); print "not " if $v ne q{-10}; print 'ok 1810 - ("0.3e1" / "-0.3") --> ('.$v.")
";
$v = ("0.3e1" / "0.1e1"); print "not " if $v ne q{3}; print 'ok 1811 - ("0.3e1" / "0.1e1") --> ('.$v.")
";
$v = ("0.3e1" / "0.2e1"); print "not " if $v ne q{1.5}; print 'ok 1812 - ("0.3e1" / "0.2e1") --> ('.$v.")
";
$v = ("0.3e1" / "0.3e1"); print "not " if $v ne q{1}; print 'ok 1813 - ("0.3e1" / "0.3e1") --> ('.$v.")
";
$v = ("0.3e1" / "-0.1e1"); print "not " if $v ne q{-3}; print 'ok 1814 - ("0.3e1" / "-0.1e1") --> ('.$v.")
";
$v = ("0.3e1" / "-0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 1815 - ("0.3e1" / "-0.2e1") --> ('.$v.")
";
$v = ("0.3e1" / "-0.3e1"); print "not " if $v ne q{-1}; print 'ok 1816 - ("0.3e1" / "-0.3e1") --> ('.$v.")
";
$v = ("0.3e1" / "10"); print "not " if $v ne q{0.3}; print 'ok 1817 - ("0.3e1" / "10") --> ('.$v.")
";
$v = ("0.3e1" / "20"); print "not " if $v ne q{0.15}; print 'ok 1818 - ("0.3e1" / "20") --> ('.$v.")
";
$v = ("0.3e1" / "30"); print "not " if $v ne q{0.1}; print 'ok 1819 - ("0.3e1" / "30") --> ('.$v.")
";
$v = ("0.3e1" / "-10"); print "not " if $v ne q{-0.3}; print 'ok 1820 - ("0.3e1" / "-10") --> ('.$v.")
";
$v = ("0.3e1" / "-20"); print "not " if $v ne q{-0.15}; print 'ok 1821 - ("0.3e1" / "-20") --> ('.$v.")
";
$v = ("0.3e1" / "-30"); print "not " if $v ne q{-0.1}; print 'ok 1822 - ("0.3e1" / "-30") --> ('.$v.")
";
$v = ("0.3e1" / .1); print "not " if $v ne q{30}; print 'ok 1823 - ("0.3e1" / .1) --> ('.$v.")
";
$v = ("0.3e1" / .2); print "not " if $v ne q{15}; print 'ok 1824 - ("0.3e1" / .2) --> ('.$v.")
";
$v = ("0.3e1" / .3); print "not " if $v ne q{10}; print 'ok 1825 - ("0.3e1" / .3) --> ('.$v.")
";
$v = ("0.3e1" / -.1); print "not " if $v ne q{-30}; print 'ok 1826 - ("0.3e1" / -.1) --> ('.$v.")
";
$v = ("0.3e1" / -.2); print "not " if $v ne q{-15}; print 'ok 1827 - ("0.3e1" / -.2) --> ('.$v.")
";
$v = ("0.3e1" / -.3); print "not " if $v ne q{-10}; print 'ok 1828 - ("0.3e1" / -.3) --> ('.$v.")
";
$v = ("0.3e1" / 0.1); print "not " if $v ne q{30}; print 'ok 1829 - ("0.3e1" / 0.1) --> ('.$v.")
";
$v = ("0.3e1" / 0.2); print "not " if $v ne q{15}; print 'ok 1830 - ("0.3e1" / 0.2) --> ('.$v.")
";
$v = ("0.3e1" / 0.3); print "not " if $v ne q{10}; print 'ok 1831 - ("0.3e1" / 0.3) --> ('.$v.")
";
$v = ("0.3e1" / -0.1); print "not " if $v ne q{-30}; print 'ok 1832 - ("0.3e1" / -0.1) --> ('.$v.")
";
$v = ("0.3e1" / -0.2); print "not " if $v ne q{-15}; print 'ok 1833 - ("0.3e1" / -0.2) --> ('.$v.")
";
$v = ("0.3e1" / -0.3); print "not " if $v ne q{-10}; print 'ok 1834 - ("0.3e1" / -0.3) --> ('.$v.")
";
$v = ("0.3e1" / 0.1e1); print "not " if $v ne q{3}; print 'ok 1835 - ("0.3e1" / 0.1e1) --> ('.$v.")
";
$v = ("0.3e1" / 0.2e1); print "not " if $v ne q{1.5}; print 'ok 1836 - ("0.3e1" / 0.2e1) --> ('.$v.")
";
$v = ("0.3e1" / 0.3e1); print "not " if $v ne q{1}; print 'ok 1837 - ("0.3e1" / 0.3e1) --> ('.$v.")
";
$v = ("0.3e1" / -0.1e1); print "not " if $v ne q{-3}; print 'ok 1838 - ("0.3e1" / -0.1e1) --> ('.$v.")
";
$v = ("0.3e1" / -0.2e1); print "not " if $v ne q{-1.5}; print 'ok 1839 - ("0.3e1" / -0.2e1) --> ('.$v.")
";
$v = ("0.3e1" / -0.3e1); print "not " if $v ne q{-1}; print 'ok 1840 - ("0.3e1" / -0.3e1) --> ('.$v.")
";
$v = ("0.3e1" / 10); print "not " if $v ne q{0.3}; print 'ok 1841 - ("0.3e1" / 10) --> ('.$v.")
";
$v = ("0.3e1" / 20); print "not " if $v ne q{0.15}; print 'ok 1842 - ("0.3e1" / 20) --> ('.$v.")
";
$v = ("0.3e1" / 30); print "not " if $v ne q{0.1}; print 'ok 1843 - ("0.3e1" / 30) --> ('.$v.")
";
$v = ("0.3e1" / -10); print "not " if $v ne q{-0.3}; print 'ok 1844 - ("0.3e1" / -10) --> ('.$v.")
";
$v = ("0.3e1" / -20); print "not " if $v ne q{-0.15}; print 'ok 1845 - ("0.3e1" / -20) --> ('.$v.")
";
$v = ("0.3e1" / -30); print "not " if $v ne q{-0.1}; print 'ok 1846 - ("0.3e1" / -30) --> ('.$v.")
";
$v = ("0.3e1" / @ab); print "not " if $v ne q{3}; print 'ok 1847 - ("0.3e1" / @ab) --> ('.$v.")
";
$v = ("0.3e1" / @ac); print "not " if $v ne q{1}; print 'ok 1848 - ("0.3e1" / @ac) --> ('.$v.")
";
$v = ("-0.0e1" / "1"); print "not " if $v ne q{0}; print 'ok 1849 - ("-0.0e1" / "1") --> ('.$v.")
";
$v = ("-0.0e1" / "2"); print "not " if $v ne q{0}; print 'ok 1850 - ("-0.0e1" / "2") --> ('.$v.")
";
$v = ("-0.0e1" / "3"); print "not " if $v ne q{0}; print 'ok 1851 - ("-0.0e1" / "3") --> ('.$v.")
";
$v = ("-0.0e1" / "-1"); print "not " if $v ne q{0}; print 'ok 1852 - ("-0.0e1" / "-1") --> ('.$v.")
";
$v = ("-0.0e1" / "-2"); print "not " if $v ne q{0}; print 'ok 1853 - ("-0.0e1" / "-2") --> ('.$v.")
";
$v = ("-0.0e1" / "-3"); print "not " if $v ne q{0}; print 'ok 1854 - ("-0.0e1" / "-3") --> ('.$v.")
";
$v = ("-0.0e1" / ".1"); print "not " if $v ne q{0}; print 'ok 1855 - ("-0.0e1" / ".1") --> ('.$v.")
";
$v = ("-0.0e1" / ".2"); print "not " if $v ne q{0}; print 'ok 1856 - ("-0.0e1" / ".2") --> ('.$v.")
";
$v = ("-0.0e1" / ".3"); print "not " if $v ne q{0}; print 'ok 1857 - ("-0.0e1" / ".3") --> ('.$v.")
";
$v = ("-0.0e1" / "-.1"); print "not " if $v ne q{0}; print 'ok 1858 - ("-0.0e1" / "-.1") --> ('.$v.")
";
$v = ("-0.0e1" / "-.2"); print "not " if $v ne q{0}; print 'ok 1859 - ("-0.0e1" / "-.2") --> ('.$v.")
";
$v = ("-0.0e1" / "-.3"); print "not " if $v ne q{0}; print 'ok 1860 - ("-0.0e1" / "-.3") --> ('.$v.")
";
$v = ("-0.0e1" / "0.1"); print "not " if $v ne q{0}; print 'ok 1861 - ("-0.0e1" / "0.1") --> ('.$v.")
";
$v = ("-0.0e1" / "0.2"); print "not " if $v ne q{0}; print 'ok 1862 - ("-0.0e1" / "0.2") --> ('.$v.")
";
$v = ("-0.0e1" / "0.3"); print "not " if $v ne q{0}; print 'ok 1863 - ("-0.0e1" / "0.3") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.1"); print "not " if $v ne q{0}; print 'ok 1864 - ("-0.0e1" / "-0.1") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.2"); print "not " if $v ne q{0}; print 'ok 1865 - ("-0.0e1" / "-0.2") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.3"); print "not " if $v ne q{0}; print 'ok 1866 - ("-0.0e1" / "-0.3") --> ('.$v.")
";
$v = ("-0.0e1" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 1867 - ("-0.0e1" / "0.1e1") --> ('.$v.")
";
$v = ("-0.0e1" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 1868 - ("-0.0e1" / "0.2e1") --> ('.$v.")
";
$v = ("-0.0e1" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 1869 - ("-0.0e1" / "0.3e1") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 1870 - ("-0.0e1" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 1871 - ("-0.0e1" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.0e1" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 1872 - ("-0.0e1" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.0e1" / "10"); print "not " if $v ne q{0}; print 'ok 1873 - ("-0.0e1" / "10") --> ('.$v.")
";
$v = ("-0.0e1" / "20"); print "not " if $v ne q{0}; print 'ok 1874 - ("-0.0e1" / "20") --> ('.$v.")
";
$v = ("-0.0e1" / "30"); print "not " if $v ne q{0}; print 'ok 1875 - ("-0.0e1" / "30") --> ('.$v.")
";
$v = ("-0.0e1" / "-10"); print "not " if $v ne q{0}; print 'ok 1876 - ("-0.0e1" / "-10") --> ('.$v.")
";
$v = ("-0.0e1" / "-20"); print "not " if $v ne q{0}; print 'ok 1877 - ("-0.0e1" / "-20") --> ('.$v.")
";
$v = ("-0.0e1" / "-30"); print "not " if $v ne q{0}; print 'ok 1878 - ("-0.0e1" / "-30") --> ('.$v.")
";
$v = ("-0.0e1" / .1); print "not " if $v ne q{0}; print 'ok 1879 - ("-0.0e1" / .1) --> ('.$v.")
";
$v = ("-0.0e1" / .2); print "not " if $v ne q{0}; print 'ok 1880 - ("-0.0e1" / .2) --> ('.$v.")
";
$v = ("-0.0e1" / .3); print "not " if $v ne q{0}; print 'ok 1881 - ("-0.0e1" / .3) --> ('.$v.")
";
$v = ("-0.0e1" / -.1); print "not " if $v ne q{0}; print 'ok 1882 - ("-0.0e1" / -.1) --> ('.$v.")
";
$v = ("-0.0e1" / -.2); print "not " if $v ne q{0}; print 'ok 1883 - ("-0.0e1" / -.2) --> ('.$v.")
";
$v = ("-0.0e1" / -.3); print "not " if $v ne q{0}; print 'ok 1884 - ("-0.0e1" / -.3) --> ('.$v.")
";
$v = ("-0.0e1" / 0.1); print "not " if $v ne q{0}; print 'ok 1885 - ("-0.0e1" / 0.1) --> ('.$v.")
";
$v = ("-0.0e1" / 0.2); print "not " if $v ne q{0}; print 'ok 1886 - ("-0.0e1" / 0.2) --> ('.$v.")
";
$v = ("-0.0e1" / 0.3); print "not " if $v ne q{0}; print 'ok 1887 - ("-0.0e1" / 0.3) --> ('.$v.")
";
$v = ("-0.0e1" / -0.1); print "not " if $v ne q{0}; print 'ok 1888 - ("-0.0e1" / -0.1) --> ('.$v.")
";
$v = ("-0.0e1" / -0.2); print "not " if $v ne q{0}; print 'ok 1889 - ("-0.0e1" / -0.2) --> ('.$v.")
";
$v = ("-0.0e1" / -0.3); print "not " if $v ne q{0}; print 'ok 1890 - ("-0.0e1" / -0.3) --> ('.$v.")
";
$v = ("-0.0e1" / 0.1e1); print "not " if $v ne q{0}; print 'ok 1891 - ("-0.0e1" / 0.1e1) --> ('.$v.")
";
$v = ("-0.0e1" / 0.2e1); print "not " if $v ne q{0}; print 'ok 1892 - ("-0.0e1" / 0.2e1) --> ('.$v.")
";
$v = ("-0.0e1" / 0.3e1); print "not " if $v ne q{0}; print 'ok 1893 - ("-0.0e1" / 0.3e1) --> ('.$v.")
";
$v = ("-0.0e1" / -0.1e1); print "not " if $v ne q{0}; print 'ok 1894 - ("-0.0e1" / -0.1e1) --> ('.$v.")
";
$v = ("-0.0e1" / -0.2e1); print "not " if $v ne q{0}; print 'ok 1895 - ("-0.0e1" / -0.2e1) --> ('.$v.")
";
$v = ("-0.0e1" / -0.3e1); print "not " if $v ne q{0}; print 'ok 1896 - ("-0.0e1" / -0.3e1) --> ('.$v.")
";
$v = ("-0.0e1" / 10); print "not " if $v ne q{0}; print 'ok 1897 - ("-0.0e1" / 10) --> ('.$v.")
";
$v = ("-0.0e1" / 20); print "not " if $v ne q{0}; print 'ok 1898 - ("-0.0e1" / 20) --> ('.$v.")
";
$v = ("-0.0e1" / 30); print "not " if $v ne q{0}; print 'ok 1899 - ("-0.0e1" / 30) --> ('.$v.")
";
$v = ("-0.0e1" / -10); print "not " if $v ne q{0}; print 'ok 1900 - ("-0.0e1" / -10) --> ('.$v.")
";
$v = ("-0.0e1" / -20); print "not " if $v ne q{0}; print 'ok 1901 - ("-0.0e1" / -20) --> ('.$v.")
";
$v = ("-0.0e1" / -30); print "not " if $v ne q{0}; print 'ok 1902 - ("-0.0e1" / -30) --> ('.$v.")
";
$v = ("-0.0e1" / @ab); print "not " if $v ne q{0}; print 'ok 1903 - ("-0.0e1" / @ab) --> ('.$v.")
";
$v = ("-0.0e1" / @ac); print "not " if $v ne q{0}; print 'ok 1904 - ("-0.0e1" / @ac) --> ('.$v.")
";
$v = ("-0.1e1" / "1"); print "not " if $v ne q{-1}; print 'ok 1905 - ("-0.1e1" / "1") --> ('.$v.")
";
$v = ("-0.1e1" / "2"); print "not " if $v ne q{-0.5}; print 'ok 1906 - ("-0.1e1" / "2") --> ('.$v.")
";
$v = ("-0.1e1" / "3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1907 - ("-0.1e1" / "3") --> ('.$v.")
";
$v = ("-0.1e1" / "-1"); print "not " if $v ne q{1}; print 'ok 1908 - ("-0.1e1" / "-1") --> ('.$v.")
";
$v = ("-0.1e1" / "-2"); print "not " if $v ne q{0.5}; print 'ok 1909 - ("-0.1e1" / "-2") --> ('.$v.")
";
$v = ("-0.1e1" / "-3"); print "not " if $v ne q{0.333333333333333}; print 'ok 1910 - ("-0.1e1" / "-3") --> ('.$v.")
";
$v = ("-0.1e1" / ".1"); print "not " if $v ne q{-10}; print 'ok 1911 - ("-0.1e1" / ".1") --> ('.$v.")
";
$v = ("-0.1e1" / ".2"); print "not " if $v ne q{-5}; print 'ok 1912 - ("-0.1e1" / ".2") --> ('.$v.")
";
$v = ("-0.1e1" / ".3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 1913 - ("-0.1e1" / ".3") --> ('.$v.")
";
$v = ("-0.1e1" / "-.1"); print "not " if $v ne q{10}; print 'ok 1914 - ("-0.1e1" / "-.1") --> ('.$v.")
";
$v = ("-0.1e1" / "-.2"); print "not " if $v ne q{5}; print 'ok 1915 - ("-0.1e1" / "-.2") --> ('.$v.")
";
$v = ("-0.1e1" / "-.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 1916 - ("-0.1e1" / "-.3") --> ('.$v.")
";
$v = ("-0.1e1" / "0.1"); print "not " if $v ne q{-10}; print 'ok 1917 - ("-0.1e1" / "0.1") --> ('.$v.")
";
$v = ("-0.1e1" / "0.2"); print "not " if $v ne q{-5}; print 'ok 1918 - ("-0.1e1" / "0.2") --> ('.$v.")
";
$v = ("-0.1e1" / "0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 1919 - ("-0.1e1" / "0.3") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.1"); print "not " if $v ne q{10}; print 'ok 1920 - ("-0.1e1" / "-0.1") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.2"); print "not " if $v ne q{5}; print 'ok 1921 - ("-0.1e1" / "-0.2") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 1922 - ("-0.1e1" / "-0.3") --> ('.$v.")
";
$v = ("-0.1e1" / "0.1e1"); print "not " if $v ne q{-1}; print 'ok 1923 - ("-0.1e1" / "0.1e1") --> ('.$v.")
";
$v = ("-0.1e1" / "0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 1924 - ("-0.1e1" / "0.2e1") --> ('.$v.")
";
$v = ("-0.1e1" / "0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 1925 - ("-0.1e1" / "0.3e1") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.1e1"); print "not " if $v ne q{1}; print 'ok 1926 - ("-0.1e1" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.2e1"); print "not " if $v ne q{0.5}; print 'ok 1927 - ("-0.1e1" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.1e1" / "-0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 1928 - ("-0.1e1" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.1e1" / "10"); print "not " if $v ne q{-0.1}; print 'ok 1929 - ("-0.1e1" / "10") --> ('.$v.")
";
$v = ("-0.1e1" / "20"); print "not " if $v ne q{-0.05}; print 'ok 1930 - ("-0.1e1" / "20") --> ('.$v.")
";
$v = ("-0.1e1" / "30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1931 - ("-0.1e1" / "30") --> ('.$v.")
";
$v = ("-0.1e1" / "-10"); print "not " if $v ne q{0.1}; print 'ok 1932 - ("-0.1e1" / "-10") --> ('.$v.")
";
$v = ("-0.1e1" / "-20"); print "not " if $v ne q{0.05}; print 'ok 1933 - ("-0.1e1" / "-20") --> ('.$v.")
";
$v = ("-0.1e1" / "-30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 1934 - ("-0.1e1" / "-30") --> ('.$v.")
";
$v = ("-0.1e1" / .1); print "not " if $v ne q{-10}; print 'ok 1935 - ("-0.1e1" / .1) --> ('.$v.")
";
$v = ("-0.1e1" / .2); print "not " if $v ne q{-5}; print 'ok 1936 - ("-0.1e1" / .2) --> ('.$v.")
";
$v = ("-0.1e1" / .3); print "not " if $v ne q{-3.33333333333333}; print 'ok 1937 - ("-0.1e1" / .3) --> ('.$v.")
";
$v = ("-0.1e1" / -.1); print "not " if $v ne q{10}; print 'ok 1938 - ("-0.1e1" / -.1) --> ('.$v.")
";
$v = ("-0.1e1" / -.2); print "not " if $v ne q{5}; print 'ok 1939 - ("-0.1e1" / -.2) --> ('.$v.")
";
$v = ("-0.1e1" / -.3); print "not " if $v ne q{3.33333333333333}; print 'ok 1940 - ("-0.1e1" / -.3) --> ('.$v.")
";
$v = ("-0.1e1" / 0.1); print "not " if $v ne q{-10}; print 'ok 1941 - ("-0.1e1" / 0.1) --> ('.$v.")
";
$v = ("-0.1e1" / 0.2); print "not " if $v ne q{-5}; print 'ok 1942 - ("-0.1e1" / 0.2) --> ('.$v.")
";
$v = ("-0.1e1" / 0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 1943 - ("-0.1e1" / 0.3) --> ('.$v.")
";
$v = ("-0.1e1" / -0.1); print "not " if $v ne q{10}; print 'ok 1944 - ("-0.1e1" / -0.1) --> ('.$v.")
";
$v = ("-0.1e1" / -0.2); print "not " if $v ne q{5}; print 'ok 1945 - ("-0.1e1" / -0.2) --> ('.$v.")
";
$v = ("-0.1e1" / -0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 1946 - ("-0.1e1" / -0.3) --> ('.$v.")
";
$v = ("-0.1e1" / 0.1e1); print "not " if $v ne q{-1}; print 'ok 1947 - ("-0.1e1" / 0.1e1) --> ('.$v.")
";
$v = ("-0.1e1" / 0.2e1); print "not " if $v ne q{-0.5}; print 'ok 1948 - ("-0.1e1" / 0.2e1) --> ('.$v.")
";
$v = ("-0.1e1" / 0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 1949 - ("-0.1e1" / 0.3e1) --> ('.$v.")
";
$v = ("-0.1e1" / -0.1e1); print "not " if $v ne q{1}; print 'ok 1950 - ("-0.1e1" / -0.1e1) --> ('.$v.")
";
$v = ("-0.1e1" / -0.2e1); print "not " if $v ne q{0.5}; print 'ok 1951 - ("-0.1e1" / -0.2e1) --> ('.$v.")
";
$v = ("-0.1e1" / -0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 1952 - ("-0.1e1" / -0.3e1) --> ('.$v.")
";
$v = ("-0.1e1" / 10); print "not " if $v ne q{-0.1}; print 'ok 1953 - ("-0.1e1" / 10) --> ('.$v.")
";
$v = ("-0.1e1" / 20); print "not " if $v ne q{-0.05}; print 'ok 1954 - ("-0.1e1" / 20) --> ('.$v.")
";
$v = ("-0.1e1" / 30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 1955 - ("-0.1e1" / 30) --> ('.$v.")
";
$v = ("-0.1e1" / -10); print "not " if $v ne q{0.1}; print 'ok 1956 - ("-0.1e1" / -10) --> ('.$v.")
";
$v = ("-0.1e1" / -20); print "not " if $v ne q{0.05}; print 'ok 1957 - ("-0.1e1" / -20) --> ('.$v.")
";
$v = ("-0.1e1" / -30); print "not " if $v ne q{0.0333333333333333}; print 'ok 1958 - ("-0.1e1" / -30) --> ('.$v.")
";
$v = ("-0.1e1" / @ab); print "not " if $v ne q{-1}; print 'ok 1959 - ("-0.1e1" / @ab) --> ('.$v.")
";
$v = ("-0.1e1" / @ac); print "not " if $v ne q{-0.333333333333333}; print 'ok 1960 - ("-0.1e1" / @ac) --> ('.$v.")
";
$v = ("-0.2e1" / "1"); print "not " if $v ne q{-2}; print 'ok 1961 - ("-0.2e1" / "1") --> ('.$v.")
";
$v = ("-0.2e1" / "2"); print "not " if $v ne q{-1}; print 'ok 1962 - ("-0.2e1" / "2") --> ('.$v.")
";
$v = ("-0.2e1" / "3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1963 - ("-0.2e1" / "3") --> ('.$v.")
";
$v = ("-0.2e1" / "-1"); print "not " if $v ne q{2}; print 'ok 1964 - ("-0.2e1" / "-1") --> ('.$v.")
";
$v = ("-0.2e1" / "-2"); print "not " if $v ne q{1}; print 'ok 1965 - ("-0.2e1" / "-2") --> ('.$v.")
";
$v = ("-0.2e1" / "-3"); print "not " if $v ne q{0.666666666666667}; print 'ok 1966 - ("-0.2e1" / "-3") --> ('.$v.")
";
$v = ("-0.2e1" / ".1"); print "not " if $v ne q{-20}; print 'ok 1967 - ("-0.2e1" / ".1") --> ('.$v.")
";
$v = ("-0.2e1" / ".2"); print "not " if $v ne q{-10}; print 'ok 1968 - ("-0.2e1" / ".2") --> ('.$v.")
";
$v = ("-0.2e1" / ".3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 1969 - ("-0.2e1" / ".3") --> ('.$v.")
";
$v = ("-0.2e1" / "-.1"); print "not " if $v ne q{20}; print 'ok 1970 - ("-0.2e1" / "-.1") --> ('.$v.")
";
$v = ("-0.2e1" / "-.2"); print "not " if $v ne q{10}; print 'ok 1971 - ("-0.2e1" / "-.2") --> ('.$v.")
";
$v = ("-0.2e1" / "-.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 1972 - ("-0.2e1" / "-.3") --> ('.$v.")
";
$v = ("-0.2e1" / "0.1"); print "not " if $v ne q{-20}; print 'ok 1973 - ("-0.2e1" / "0.1") --> ('.$v.")
";
$v = ("-0.2e1" / "0.2"); print "not " if $v ne q{-10}; print 'ok 1974 - ("-0.2e1" / "0.2") --> ('.$v.")
";
$v = ("-0.2e1" / "0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 1975 - ("-0.2e1" / "0.3") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.1"); print "not " if $v ne q{20}; print 'ok 1976 - ("-0.2e1" / "-0.1") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.2"); print "not " if $v ne q{10}; print 'ok 1977 - ("-0.2e1" / "-0.2") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 1978 - ("-0.2e1" / "-0.3") --> ('.$v.")
";
$v = ("-0.2e1" / "0.1e1"); print "not " if $v ne q{-2}; print 'ok 1979 - ("-0.2e1" / "0.1e1") --> ('.$v.")
";
$v = ("-0.2e1" / "0.2e1"); print "not " if $v ne q{-1}; print 'ok 1980 - ("-0.2e1" / "0.2e1") --> ('.$v.")
";
$v = ("-0.2e1" / "0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 1981 - ("-0.2e1" / "0.3e1") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.1e1"); print "not " if $v ne q{2}; print 'ok 1982 - ("-0.2e1" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.2e1"); print "not " if $v ne q{1}; print 'ok 1983 - ("-0.2e1" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.2e1" / "-0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 1984 - ("-0.2e1" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.2e1" / "10"); print "not " if $v ne q{-0.2}; print 'ok 1985 - ("-0.2e1" / "10") --> ('.$v.")
";
$v = ("-0.2e1" / "20"); print "not " if $v ne q{-0.1}; print 'ok 1986 - ("-0.2e1" / "20") --> ('.$v.")
";
$v = ("-0.2e1" / "30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 1987 - ("-0.2e1" / "30") --> ('.$v.")
";
$v = ("-0.2e1" / "-10"); print "not " if $v ne q{0.2}; print 'ok 1988 - ("-0.2e1" / "-10") --> ('.$v.")
";
$v = ("-0.2e1" / "-20"); print "not " if $v ne q{0.1}; print 'ok 1989 - ("-0.2e1" / "-20") --> ('.$v.")
";
$v = ("-0.2e1" / "-30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 1990 - ("-0.2e1" / "-30") --> ('.$v.")
";
$v = ("-0.2e1" / .1); print "not " if $v ne q{-20}; print 'ok 1991 - ("-0.2e1" / .1) --> ('.$v.")
";
$v = ("-0.2e1" / .2); print "not " if $v ne q{-10}; print 'ok 1992 - ("-0.2e1" / .2) --> ('.$v.")
";
$v = ("-0.2e1" / .3); print "not " if $v ne q{-6.66666666666667}; print 'ok 1993 - ("-0.2e1" / .3) --> ('.$v.")
";
$v = ("-0.2e1" / -.1); print "not " if $v ne q{20}; print 'ok 1994 - ("-0.2e1" / -.1) --> ('.$v.")
";
$v = ("-0.2e1" / -.2); print "not " if $v ne q{10}; print 'ok 1995 - ("-0.2e1" / -.2) --> ('.$v.")
";
$v = ("-0.2e1" / -.3); print "not " if $v ne q{6.66666666666667}; print 'ok 1996 - ("-0.2e1" / -.3) --> ('.$v.")
";
$v = ("-0.2e1" / 0.1); print "not " if $v ne q{-20}; print 'ok 1997 - ("-0.2e1" / 0.1) --> ('.$v.")
";
$v = ("-0.2e1" / 0.2); print "not " if $v ne q{-10}; print 'ok 1998 - ("-0.2e1" / 0.2) --> ('.$v.")
";
$v = ("-0.2e1" / 0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 1999 - ("-0.2e1" / 0.3) --> ('.$v.")
";
$v = ("-0.2e1" / -0.1); print "not " if $v ne q{20}; print 'ok 2000 - ("-0.2e1" / -0.1) --> ('.$v.")
";
$v = ("-0.2e1" / -0.2); print "not " if $v ne q{10}; print 'ok 2001 - ("-0.2e1" / -0.2) --> ('.$v.")
";
$v = ("-0.2e1" / -0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 2002 - ("-0.2e1" / -0.3) --> ('.$v.")
";
$v = ("-0.2e1" / 0.1e1); print "not " if $v ne q{-2}; print 'ok 2003 - ("-0.2e1" / 0.1e1) --> ('.$v.")
";
$v = ("-0.2e1" / 0.2e1); print "not " if $v ne q{-1}; print 'ok 2004 - ("-0.2e1" / 0.2e1) --> ('.$v.")
";
$v = ("-0.2e1" / 0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 2005 - ("-0.2e1" / 0.3e1) --> ('.$v.")
";
$v = ("-0.2e1" / -0.1e1); print "not " if $v ne q{2}; print 'ok 2006 - ("-0.2e1" / -0.1e1) --> ('.$v.")
";
$v = ("-0.2e1" / -0.2e1); print "not " if $v ne q{1}; print 'ok 2007 - ("-0.2e1" / -0.2e1) --> ('.$v.")
";
$v = ("-0.2e1" / -0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 2008 - ("-0.2e1" / -0.3e1) --> ('.$v.")
";
$v = ("-0.2e1" / 10); print "not " if $v ne q{-0.2}; print 'ok 2009 - ("-0.2e1" / 10) --> ('.$v.")
";
$v = ("-0.2e1" / 20); print "not " if $v ne q{-0.1}; print 'ok 2010 - ("-0.2e1" / 20) --> ('.$v.")
";
$v = ("-0.2e1" / 30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2011 - ("-0.2e1" / 30) --> ('.$v.")
";
$v = ("-0.2e1" / -10); print "not " if $v ne q{0.2}; print 'ok 2012 - ("-0.2e1" / -10) --> ('.$v.")
";
$v = ("-0.2e1" / -20); print "not " if $v ne q{0.1}; print 'ok 2013 - ("-0.2e1" / -20) --> ('.$v.")
";
$v = ("-0.2e1" / -30); print "not " if $v ne q{0.0666666666666667}; print 'ok 2014 - ("-0.2e1" / -30) --> ('.$v.")
";
$v = ("-0.2e1" / @ab); print "not " if $v ne q{-2}; print 'ok 2015 - ("-0.2e1" / @ab) --> ('.$v.")
";
$v = ("-0.2e1" / @ac); print "not " if $v ne q{-0.666666666666667}; print 'ok 2016 - ("-0.2e1" / @ac) --> ('.$v.")
";
$v = ("-0.3e1" / "1"); print "not " if $v ne q{-3}; print 'ok 2017 - ("-0.3e1" / "1") --> ('.$v.")
";
$v = ("-0.3e1" / "2"); print "not " if $v ne q{-1.5}; print 'ok 2018 - ("-0.3e1" / "2") --> ('.$v.")
";
$v = ("-0.3e1" / "3"); print "not " if $v ne q{-1}; print 'ok 2019 - ("-0.3e1" / "3") --> ('.$v.")
";
$v = ("-0.3e1" / "-1"); print "not " if $v ne q{3}; print 'ok 2020 - ("-0.3e1" / "-1") --> ('.$v.")
";
$v = ("-0.3e1" / "-2"); print "not " if $v ne q{1.5}; print 'ok 2021 - ("-0.3e1" / "-2") --> ('.$v.")
";
$v = ("-0.3e1" / "-3"); print "not " if $v ne q{1}; print 'ok 2022 - ("-0.3e1" / "-3") --> ('.$v.")
";
$v = ("-0.3e1" / ".1"); print "not " if $v ne q{-30}; print 'ok 2023 - ("-0.3e1" / ".1") --> ('.$v.")
";
$v = ("-0.3e1" / ".2"); print "not " if $v ne q{-15}; print 'ok 2024 - ("-0.3e1" / ".2") --> ('.$v.")
";
$v = ("-0.3e1" / ".3"); print "not " if $v ne q{-10}; print 'ok 2025 - ("-0.3e1" / ".3") --> ('.$v.")
";
$v = ("-0.3e1" / "-.1"); print "not " if $v ne q{30}; print 'ok 2026 - ("-0.3e1" / "-.1") --> ('.$v.")
";
$v = ("-0.3e1" / "-.2"); print "not " if $v ne q{15}; print 'ok 2027 - ("-0.3e1" / "-.2") --> ('.$v.")
";
$v = ("-0.3e1" / "-.3"); print "not " if $v ne q{10}; print 'ok 2028 - ("-0.3e1" / "-.3") --> ('.$v.")
";
$v = ("-0.3e1" / "0.1"); print "not " if $v ne q{-30}; print 'ok 2029 - ("-0.3e1" / "0.1") --> ('.$v.")
";
$v = ("-0.3e1" / "0.2"); print "not " if $v ne q{-15}; print 'ok 2030 - ("-0.3e1" / "0.2") --> ('.$v.")
";
$v = ("-0.3e1" / "0.3"); print "not " if $v ne q{-10}; print 'ok 2031 - ("-0.3e1" / "0.3") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.1"); print "not " if $v ne q{30}; print 'ok 2032 - ("-0.3e1" / "-0.1") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.2"); print "not " if $v ne q{15}; print 'ok 2033 - ("-0.3e1" / "-0.2") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.3"); print "not " if $v ne q{10}; print 'ok 2034 - ("-0.3e1" / "-0.3") --> ('.$v.")
";
$v = ("-0.3e1" / "0.1e1"); print "not " if $v ne q{-3}; print 'ok 2035 - ("-0.3e1" / "0.1e1") --> ('.$v.")
";
$v = ("-0.3e1" / "0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 2036 - ("-0.3e1" / "0.2e1") --> ('.$v.")
";
$v = ("-0.3e1" / "0.3e1"); print "not " if $v ne q{-1}; print 'ok 2037 - ("-0.3e1" / "0.3e1") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.1e1"); print "not " if $v ne q{3}; print 'ok 2038 - ("-0.3e1" / "-0.1e1") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.2e1"); print "not " if $v ne q{1.5}; print 'ok 2039 - ("-0.3e1" / "-0.2e1") --> ('.$v.")
";
$v = ("-0.3e1" / "-0.3e1"); print "not " if $v ne q{1}; print 'ok 2040 - ("-0.3e1" / "-0.3e1") --> ('.$v.")
";
$v = ("-0.3e1" / "10"); print "not " if $v ne q{-0.3}; print 'ok 2041 - ("-0.3e1" / "10") --> ('.$v.")
";
$v = ("-0.3e1" / "20"); print "not " if $v ne q{-0.15}; print 'ok 2042 - ("-0.3e1" / "20") --> ('.$v.")
";
$v = ("-0.3e1" / "30"); print "not " if $v ne q{-0.1}; print 'ok 2043 - ("-0.3e1" / "30") --> ('.$v.")
";
$v = ("-0.3e1" / "-10"); print "not " if $v ne q{0.3}; print 'ok 2044 - ("-0.3e1" / "-10") --> ('.$v.")
";
$v = ("-0.3e1" / "-20"); print "not " if $v ne q{0.15}; print 'ok 2045 - ("-0.3e1" / "-20") --> ('.$v.")
";
$v = ("-0.3e1" / "-30"); print "not " if $v ne q{0.1}; print 'ok 2046 - ("-0.3e1" / "-30") --> ('.$v.")
";
$v = ("-0.3e1" / .1); print "not " if $v ne q{-30}; print 'ok 2047 - ("-0.3e1" / .1) --> ('.$v.")
";
$v = ("-0.3e1" / .2); print "not " if $v ne q{-15}; print 'ok 2048 - ("-0.3e1" / .2) --> ('.$v.")
";
$v = ("-0.3e1" / .3); print "not " if $v ne q{-10}; print 'ok 2049 - ("-0.3e1" / .3) --> ('.$v.")
";
$v = ("-0.3e1" / -.1); print "not " if $v ne q{30}; print 'ok 2050 - ("-0.3e1" / -.1) --> ('.$v.")
";
$v = ("-0.3e1" / -.2); print "not " if $v ne q{15}; print 'ok 2051 - ("-0.3e1" / -.2) --> ('.$v.")
";
$v = ("-0.3e1" / -.3); print "not " if $v ne q{10}; print 'ok 2052 - ("-0.3e1" / -.3) --> ('.$v.")
";
$v = ("-0.3e1" / 0.1); print "not " if $v ne q{-30}; print 'ok 2053 - ("-0.3e1" / 0.1) --> ('.$v.")
";
$v = ("-0.3e1" / 0.2); print "not " if $v ne q{-15}; print 'ok 2054 - ("-0.3e1" / 0.2) --> ('.$v.")
";
$v = ("-0.3e1" / 0.3); print "not " if $v ne q{-10}; print 'ok 2055 - ("-0.3e1" / 0.3) --> ('.$v.")
";
$v = ("-0.3e1" / -0.1); print "not " if $v ne q{30}; print 'ok 2056 - ("-0.3e1" / -0.1) --> ('.$v.")
";
$v = ("-0.3e1" / -0.2); print "not " if $v ne q{15}; print 'ok 2057 - ("-0.3e1" / -0.2) --> ('.$v.")
";
$v = ("-0.3e1" / -0.3); print "not " if $v ne q{10}; print 'ok 2058 - ("-0.3e1" / -0.3) --> ('.$v.")
";
$v = ("-0.3e1" / 0.1e1); print "not " if $v ne q{-3}; print 'ok 2059 - ("-0.3e1" / 0.1e1) --> ('.$v.")
";
$v = ("-0.3e1" / 0.2e1); print "not " if $v ne q{-1.5}; print 'ok 2060 - ("-0.3e1" / 0.2e1) --> ('.$v.")
";
$v = ("-0.3e1" / 0.3e1); print "not " if $v ne q{-1}; print 'ok 2061 - ("-0.3e1" / 0.3e1) --> ('.$v.")
";
$v = ("-0.3e1" / -0.1e1); print "not " if $v ne q{3}; print 'ok 2062 - ("-0.3e1" / -0.1e1) --> ('.$v.")
";
$v = ("-0.3e1" / -0.2e1); print "not " if $v ne q{1.5}; print 'ok 2063 - ("-0.3e1" / -0.2e1) --> ('.$v.")
";
$v = ("-0.3e1" / -0.3e1); print "not " if $v ne q{1}; print 'ok 2064 - ("-0.3e1" / -0.3e1) --> ('.$v.")
";
$v = ("-0.3e1" / 10); print "not " if $v ne q{-0.3}; print 'ok 2065 - ("-0.3e1" / 10) --> ('.$v.")
";
$v = ("-0.3e1" / 20); print "not " if $v ne q{-0.15}; print 'ok 2066 - ("-0.3e1" / 20) --> ('.$v.")
";
$v = ("-0.3e1" / 30); print "not " if $v ne q{-0.1}; print 'ok 2067 - ("-0.3e1" / 30) --> ('.$v.")
";
$v = ("-0.3e1" / -10); print "not " if $v ne q{0.3}; print 'ok 2068 - ("-0.3e1" / -10) --> ('.$v.")
";
$v = ("-0.3e1" / -20); print "not " if $v ne q{0.15}; print 'ok 2069 - ("-0.3e1" / -20) --> ('.$v.")
";
$v = ("-0.3e1" / -30); print "not " if $v ne q{0.1}; print 'ok 2070 - ("-0.3e1" / -30) --> ('.$v.")
";
$v = ("-0.3e1" / @ab); print "not " if $v ne q{-3}; print 'ok 2071 - ("-0.3e1" / @ab) --> ('.$v.")
";
$v = ("-0.3e1" / @ac); print "not " if $v ne q{-1}; print 'ok 2072 - ("-0.3e1" / @ac) --> ('.$v.")
";
$v = ("00" / "1"); print "not " if $v ne q{0}; print 'ok 2073 - ("00" / "1") --> ('.$v.")
";
$v = ("00" / "2"); print "not " if $v ne q{0}; print 'ok 2074 - ("00" / "2") --> ('.$v.")
";
$v = ("00" / "3"); print "not " if $v ne q{0}; print 'ok 2075 - ("00" / "3") --> ('.$v.")
";
$v = ("00" / "-1"); print "not " if $v ne q{0}; print 'ok 2076 - ("00" / "-1") --> ('.$v.")
";
$v = ("00" / "-2"); print "not " if $v ne q{0}; print 'ok 2077 - ("00" / "-2") --> ('.$v.")
";
$v = ("00" / "-3"); print "not " if $v ne q{0}; print 'ok 2078 - ("00" / "-3") --> ('.$v.")
";
$v = ("00" / ".1"); print "not " if $v ne q{0}; print 'ok 2079 - ("00" / ".1") --> ('.$v.")
";
$v = ("00" / ".2"); print "not " if $v ne q{0}; print 'ok 2080 - ("00" / ".2") --> ('.$v.")
";
$v = ("00" / ".3"); print "not " if $v ne q{0}; print 'ok 2081 - ("00" / ".3") --> ('.$v.")
";
$v = ("00" / "-.1"); print "not " if $v ne q{0}; print 'ok 2082 - ("00" / "-.1") --> ('.$v.")
";
$v = ("00" / "-.2"); print "not " if $v ne q{0}; print 'ok 2083 - ("00" / "-.2") --> ('.$v.")
";
$v = ("00" / "-.3"); print "not " if $v ne q{0}; print 'ok 2084 - ("00" / "-.3") --> ('.$v.")
";
$v = ("00" / "0.1"); print "not " if $v ne q{0}; print 'ok 2085 - ("00" / "0.1") --> ('.$v.")
";
$v = ("00" / "0.2"); print "not " if $v ne q{0}; print 'ok 2086 - ("00" / "0.2") --> ('.$v.")
";
$v = ("00" / "0.3"); print "not " if $v ne q{0}; print 'ok 2087 - ("00" / "0.3") --> ('.$v.")
";
$v = ("00" / "-0.1"); print "not " if $v ne q{0}; print 'ok 2088 - ("00" / "-0.1") --> ('.$v.")
";
$v = ("00" / "-0.2"); print "not " if $v ne q{0}; print 'ok 2089 - ("00" / "-0.2") --> ('.$v.")
";
$v = ("00" / "-0.3"); print "not " if $v ne q{0}; print 'ok 2090 - ("00" / "-0.3") --> ('.$v.")
";
$v = ("00" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 2091 - ("00" / "0.1e1") --> ('.$v.")
";
$v = ("00" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 2092 - ("00" / "0.2e1") --> ('.$v.")
";
$v = ("00" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 2093 - ("00" / "0.3e1") --> ('.$v.")
";
$v = ("00" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 2094 - ("00" / "-0.1e1") --> ('.$v.")
";
$v = ("00" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 2095 - ("00" / "-0.2e1") --> ('.$v.")
";
$v = ("00" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 2096 - ("00" / "-0.3e1") --> ('.$v.")
";
$v = ("00" / "10"); print "not " if $v ne q{0}; print 'ok 2097 - ("00" / "10") --> ('.$v.")
";
$v = ("00" / "20"); print "not " if $v ne q{0}; print 'ok 2098 - ("00" / "20") --> ('.$v.")
";
$v = ("00" / "30"); print "not " if $v ne q{0}; print 'ok 2099 - ("00" / "30") --> ('.$v.")
";
$v = ("00" / "-10"); print "not " if $v ne q{0}; print 'ok 2100 - ("00" / "-10") --> ('.$v.")
";
$v = ("00" / "-20"); print "not " if $v ne q{0}; print 'ok 2101 - ("00" / "-20") --> ('.$v.")
";
$v = ("00" / "-30"); print "not " if $v ne q{0}; print 'ok 2102 - ("00" / "-30") --> ('.$v.")
";
$v = ("00" / .1); print "not " if $v ne q{0}; print 'ok 2103 - ("00" / .1) --> ('.$v.")
";
$v = ("00" / .2); print "not " if $v ne q{0}; print 'ok 2104 - ("00" / .2) --> ('.$v.")
";
$v = ("00" / .3); print "not " if $v ne q{0}; print 'ok 2105 - ("00" / .3) --> ('.$v.")
";
$v = ("00" / -.1); print "not " if $v ne q{0}; print 'ok 2106 - ("00" / -.1) --> ('.$v.")
";
$v = ("00" / -.2); print "not " if $v ne q{0}; print 'ok 2107 - ("00" / -.2) --> ('.$v.")
";
$v = ("00" / -.3); print "not " if $v ne q{0}; print 'ok 2108 - ("00" / -.3) --> ('.$v.")
";
$v = ("00" / 0.1); print "not " if $v ne q{0}; print 'ok 2109 - ("00" / 0.1) --> ('.$v.")
";
$v = ("00" / 0.2); print "not " if $v ne q{0}; print 'ok 2110 - ("00" / 0.2) --> ('.$v.")
";
$v = ("00" / 0.3); print "not " if $v ne q{0}; print 'ok 2111 - ("00" / 0.3) --> ('.$v.")
";
$v = ("00" / -0.1); print "not " if $v ne q{0}; print 'ok 2112 - ("00" / -0.1) --> ('.$v.")
";
$v = ("00" / -0.2); print "not " if $v ne q{0}; print 'ok 2113 - ("00" / -0.2) --> ('.$v.")
";
$v = ("00" / -0.3); print "not " if $v ne q{0}; print 'ok 2114 - ("00" / -0.3) --> ('.$v.")
";
$v = ("00" / 0.1e1); print "not " if $v ne q{0}; print 'ok 2115 - ("00" / 0.1e1) --> ('.$v.")
";
$v = ("00" / 0.2e1); print "not " if $v ne q{0}; print 'ok 2116 - ("00" / 0.2e1) --> ('.$v.")
";
$v = ("00" / 0.3e1); print "not " if $v ne q{0}; print 'ok 2117 - ("00" / 0.3e1) --> ('.$v.")
";
$v = ("00" / -0.1e1); print "not " if $v ne q{0}; print 'ok 2118 - ("00" / -0.1e1) --> ('.$v.")
";
$v = ("00" / -0.2e1); print "not " if $v ne q{0}; print 'ok 2119 - ("00" / -0.2e1) --> ('.$v.")
";
$v = ("00" / -0.3e1); print "not " if $v ne q{0}; print 'ok 2120 - ("00" / -0.3e1) --> ('.$v.")
";
$v = ("00" / 10); print "not " if $v ne q{0}; print 'ok 2121 - ("00" / 10) --> ('.$v.")
";
$v = ("00" / 20); print "not " if $v ne q{0}; print 'ok 2122 - ("00" / 20) --> ('.$v.")
";
$v = ("00" / 30); print "not " if $v ne q{0}; print 'ok 2123 - ("00" / 30) --> ('.$v.")
";
$v = ("00" / -10); print "not " if $v ne q{0}; print 'ok 2124 - ("00" / -10) --> ('.$v.")
";
$v = ("00" / -20); print "not " if $v ne q{0}; print 'ok 2125 - ("00" / -20) --> ('.$v.")
";
$v = ("00" / -30); print "not " if $v ne q{0}; print 'ok 2126 - ("00" / -30) --> ('.$v.")
";
$v = ("00" / @ab); print "not " if $v ne q{0}; print 'ok 2127 - ("00" / @ab) --> ('.$v.")
";
$v = ("00" / @ac); print "not " if $v ne q{0}; print 'ok 2128 - ("00" / @ac) --> ('.$v.")
";
$v = ("10" / "1"); print "not " if $v ne q{10}; print 'ok 2129 - ("10" / "1") --> ('.$v.")
";
$v = ("10" / "2"); print "not " if $v ne q{5}; print 'ok 2130 - ("10" / "2") --> ('.$v.")
";
$v = ("10" / "3"); print "not " if $v ne q{3.33333333333333}; print 'ok 2131 - ("10" / "3") --> ('.$v.")
";
$v = ("10" / "-1"); print "not " if $v ne q{-10}; print 'ok 2132 - ("10" / "-1") --> ('.$v.")
";
$v = ("10" / "-2"); print "not " if $v ne q{-5}; print 'ok 2133 - ("10" / "-2") --> ('.$v.")
";
$v = ("10" / "-3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 2134 - ("10" / "-3") --> ('.$v.")
";
$v = ("10" / ".1"); print "not " if $v ne q{100}; print 'ok 2135 - ("10" / ".1") --> ('.$v.")
";
$v = ("10" / ".2"); print "not " if $v ne q{50}; print 'ok 2136 - ("10" / ".2") --> ('.$v.")
";
$v = ("10" / ".3"); print "not " if $v ne q{33.3333333333333}; print 'ok 2137 - ("10" / ".3") --> ('.$v.")
";
$v = ("10" / "-.1"); print "not " if $v ne q{-100}; print 'ok 2138 - ("10" / "-.1") --> ('.$v.")
";
$v = ("10" / "-.2"); print "not " if $v ne q{-50}; print 'ok 2139 - ("10" / "-.2") --> ('.$v.")
";
$v = ("10" / "-.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 2140 - ("10" / "-.3") --> ('.$v.")
";
$v = ("10" / "0.1"); print "not " if $v ne q{100}; print 'ok 2141 - ("10" / "0.1") --> ('.$v.")
";
$v = ("10" / "0.2"); print "not " if $v ne q{50}; print 'ok 2142 - ("10" / "0.2") --> ('.$v.")
";
$v = ("10" / "0.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 2143 - ("10" / "0.3") --> ('.$v.")
";
$v = ("10" / "-0.1"); print "not " if $v ne q{-100}; print 'ok 2144 - ("10" / "-0.1") --> ('.$v.")
";
$v = ("10" / "-0.2"); print "not " if $v ne q{-50}; print 'ok 2145 - ("10" / "-0.2") --> ('.$v.")
";
$v = ("10" / "-0.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 2146 - ("10" / "-0.3") --> ('.$v.")
";
$v = ("10" / "0.1e1"); print "not " if $v ne q{10}; print 'ok 2147 - ("10" / "0.1e1") --> ('.$v.")
";
$v = ("10" / "0.2e1"); print "not " if $v ne q{5}; print 'ok 2148 - ("10" / "0.2e1") --> ('.$v.")
";
$v = ("10" / "0.3e1"); print "not " if $v ne q{3.33333333333333}; print 'ok 2149 - ("10" / "0.3e1") --> ('.$v.")
";
$v = ("10" / "-0.1e1"); print "not " if $v ne q{-10}; print 'ok 2150 - ("10" / "-0.1e1") --> ('.$v.")
";
$v = ("10" / "-0.2e1"); print "not " if $v ne q{-5}; print 'ok 2151 - ("10" / "-0.2e1") --> ('.$v.")
";
$v = ("10" / "-0.3e1"); print "not " if $v ne q{-3.33333333333333}; print 'ok 2152 - ("10" / "-0.3e1") --> ('.$v.")
";
$v = ("10" / "10"); print "not " if $v ne q{1}; print 'ok 2153 - ("10" / "10") --> ('.$v.")
";
$v = ("10" / "20"); print "not " if $v ne q{0.5}; print 'ok 2154 - ("10" / "20") --> ('.$v.")
";
$v = ("10" / "30"); print "not " if $v ne q{0.333333333333333}; print 'ok 2155 - ("10" / "30") --> ('.$v.")
";
$v = ("10" / "-10"); print "not " if $v ne q{-1}; print 'ok 2156 - ("10" / "-10") --> ('.$v.")
";
$v = ("10" / "-20"); print "not " if $v ne q{-0.5}; print 'ok 2157 - ("10" / "-20") --> ('.$v.")
";
$v = ("10" / "-30"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2158 - ("10" / "-30") --> ('.$v.")
";
$v = ("10" / .1); print "not " if $v ne q{100}; print 'ok 2159 - ("10" / .1) --> ('.$v.")
";
$v = ("10" / .2); print "not " if $v ne q{50}; print 'ok 2160 - ("10" / .2) --> ('.$v.")
";
$v = ("10" / .3); print "not " if $v ne q{33.3333333333333}; print 'ok 2161 - ("10" / .3) --> ('.$v.")
";
$v = ("10" / -.1); print "not " if $v ne q{-100}; print 'ok 2162 - ("10" / -.1) --> ('.$v.")
";
$v = ("10" / -.2); print "not " if $v ne q{-50}; print 'ok 2163 - ("10" / -.2) --> ('.$v.")
";
$v = ("10" / -.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 2164 - ("10" / -.3) --> ('.$v.")
";
$v = ("10" / 0.1); print "not " if $v ne q{100}; print 'ok 2165 - ("10" / 0.1) --> ('.$v.")
";
$v = ("10" / 0.2); print "not " if $v ne q{50}; print 'ok 2166 - ("10" / 0.2) --> ('.$v.")
";
$v = ("10" / 0.3); print "not " if $v ne q{33.3333333333333}; print 'ok 2167 - ("10" / 0.3) --> ('.$v.")
";
$v = ("10" / -0.1); print "not " if $v ne q{-100}; print 'ok 2168 - ("10" / -0.1) --> ('.$v.")
";
$v = ("10" / -0.2); print "not " if $v ne q{-50}; print 'ok 2169 - ("10" / -0.2) --> ('.$v.")
";
$v = ("10" / -0.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 2170 - ("10" / -0.3) --> ('.$v.")
";
$v = ("10" / 0.1e1); print "not " if $v ne q{10}; print 'ok 2171 - ("10" / 0.1e1) --> ('.$v.")
";
$v = ("10" / 0.2e1); print "not " if $v ne q{5}; print 'ok 2172 - ("10" / 0.2e1) --> ('.$v.")
";
$v = ("10" / 0.3e1); print "not " if $v ne q{3.33333333333333}; print 'ok 2173 - ("10" / 0.3e1) --> ('.$v.")
";
$v = ("10" / -0.1e1); print "not " if $v ne q{-10}; print 'ok 2174 - ("10" / -0.1e1) --> ('.$v.")
";
$v = ("10" / -0.2e1); print "not " if $v ne q{-5}; print 'ok 2175 - ("10" / -0.2e1) --> ('.$v.")
";
$v = ("10" / -0.3e1); print "not " if $v ne q{-3.33333333333333}; print 'ok 2176 - ("10" / -0.3e1) --> ('.$v.")
";
$v = ("10" / 10); print "not " if $v ne q{1}; print 'ok 2177 - ("10" / 10) --> ('.$v.")
";
$v = ("10" / 20); print "not " if $v ne q{0.5}; print 'ok 2178 - ("10" / 20) --> ('.$v.")
";
$v = ("10" / 30); print "not " if $v ne q{0.333333333333333}; print 'ok 2179 - ("10" / 30) --> ('.$v.")
";
$v = ("10" / -10); print "not " if $v ne q{-1}; print 'ok 2180 - ("10" / -10) --> ('.$v.")
";
$v = ("10" / -20); print "not " if $v ne q{-0.5}; print 'ok 2181 - ("10" / -20) --> ('.$v.")
";
$v = ("10" / -30); print "not " if $v ne q{-0.333333333333333}; print 'ok 2182 - ("10" / -30) --> ('.$v.")
";
$v = ("10" / @ab); print "not " if $v ne q{10}; print 'ok 2183 - ("10" / @ab) --> ('.$v.")
";
$v = ("10" / @ac); print "not " if $v ne q{3.33333333333333}; print 'ok 2184 - ("10" / @ac) --> ('.$v.")
";
$v = ("20" / "1"); print "not " if $v ne q{20}; print 'ok 2185 - ("20" / "1") --> ('.$v.")
";
$v = ("20" / "2"); print "not " if $v ne q{10}; print 'ok 2186 - ("20" / "2") --> ('.$v.")
";
$v = ("20" / "3"); print "not " if $v ne q{6.66666666666667}; print 'ok 2187 - ("20" / "3") --> ('.$v.")
";
$v = ("20" / "-1"); print "not " if $v ne q{-20}; print 'ok 2188 - ("20" / "-1") --> ('.$v.")
";
$v = ("20" / "-2"); print "not " if $v ne q{-10}; print 'ok 2189 - ("20" / "-2") --> ('.$v.")
";
$v = ("20" / "-3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 2190 - ("20" / "-3") --> ('.$v.")
";
$v = ("20" / ".1"); print "not " if $v ne q{200}; print 'ok 2191 - ("20" / ".1") --> ('.$v.")
";
$v = ("20" / ".2"); print "not " if $v ne q{100}; print 'ok 2192 - ("20" / ".2") --> ('.$v.")
";
$v = ("20" / ".3"); print "not " if $v ne q{66.6666666666667}; print 'ok 2193 - ("20" / ".3") --> ('.$v.")
";
$v = ("20" / "-.1"); print "not " if $v ne q{-200}; print 'ok 2194 - ("20" / "-.1") --> ('.$v.")
";
$v = ("20" / "-.2"); print "not " if $v ne q{-100}; print 'ok 2195 - ("20" / "-.2") --> ('.$v.")
";
$v = ("20" / "-.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 2196 - ("20" / "-.3") --> ('.$v.")
";
$v = ("20" / "0.1"); print "not " if $v ne q{200}; print 'ok 2197 - ("20" / "0.1") --> ('.$v.")
";
$v = ("20" / "0.2"); print "not " if $v ne q{100}; print 'ok 2198 - ("20" / "0.2") --> ('.$v.")
";
$v = ("20" / "0.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 2199 - ("20" / "0.3") --> ('.$v.")
";
$v = ("20" / "-0.1"); print "not " if $v ne q{-200}; print 'ok 2200 - ("20" / "-0.1") --> ('.$v.")
";
$v = ("20" / "-0.2"); print "not " if $v ne q{-100}; print 'ok 2201 - ("20" / "-0.2") --> ('.$v.")
";
$v = ("20" / "-0.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 2202 - ("20" / "-0.3") --> ('.$v.")
";
$v = ("20" / "0.1e1"); print "not " if $v ne q{20}; print 'ok 2203 - ("20" / "0.1e1") --> ('.$v.")
";
$v = ("20" / "0.2e1"); print "not " if $v ne q{10}; print 'ok 2204 - ("20" / "0.2e1") --> ('.$v.")
";
$v = ("20" / "0.3e1"); print "not " if $v ne q{6.66666666666667}; print 'ok 2205 - ("20" / "0.3e1") --> ('.$v.")
";
$v = ("20" / "-0.1e1"); print "not " if $v ne q{-20}; print 'ok 2206 - ("20" / "-0.1e1") --> ('.$v.")
";
$v = ("20" / "-0.2e1"); print "not " if $v ne q{-10}; print 'ok 2207 - ("20" / "-0.2e1") --> ('.$v.")
";
$v = ("20" / "-0.3e1"); print "not " if $v ne q{-6.66666666666667}; print 'ok 2208 - ("20" / "-0.3e1") --> ('.$v.")
";
$v = ("20" / "10"); print "not " if $v ne q{2}; print 'ok 2209 - ("20" / "10") --> ('.$v.")
";
$v = ("20" / "20"); print "not " if $v ne q{1}; print 'ok 2210 - ("20" / "20") --> ('.$v.")
";
$v = ("20" / "30"); print "not " if $v ne q{0.666666666666667}; print 'ok 2211 - ("20" / "30") --> ('.$v.")
";
$v = ("20" / "-10"); print "not " if $v ne q{-2}; print 'ok 2212 - ("20" / "-10") --> ('.$v.")
";
$v = ("20" / "-20"); print "not " if $v ne q{-1}; print 'ok 2213 - ("20" / "-20") --> ('.$v.")
";
$v = ("20" / "-30"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2214 - ("20" / "-30") --> ('.$v.")
";
$v = ("20" / .1); print "not " if $v ne q{200}; print 'ok 2215 - ("20" / .1) --> ('.$v.")
";
$v = ("20" / .2); print "not " if $v ne q{100}; print 'ok 2216 - ("20" / .2) --> ('.$v.")
";
$v = ("20" / .3); print "not " if $v ne q{66.6666666666667}; print 'ok 2217 - ("20" / .3) --> ('.$v.")
";
$v = ("20" / -.1); print "not " if $v ne q{-200}; print 'ok 2218 - ("20" / -.1) --> ('.$v.")
";
$v = ("20" / -.2); print "not " if $v ne q{-100}; print 'ok 2219 - ("20" / -.2) --> ('.$v.")
";
$v = ("20" / -.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 2220 - ("20" / -.3) --> ('.$v.")
";
$v = ("20" / 0.1); print "not " if $v ne q{200}; print 'ok 2221 - ("20" / 0.1) --> ('.$v.")
";
$v = ("20" / 0.2); print "not " if $v ne q{100}; print 'ok 2222 - ("20" / 0.2) --> ('.$v.")
";
$v = ("20" / 0.3); print "not " if $v ne q{66.6666666666667}; print 'ok 2223 - ("20" / 0.3) --> ('.$v.")
";
$v = ("20" / -0.1); print "not " if $v ne q{-200}; print 'ok 2224 - ("20" / -0.1) --> ('.$v.")
";
$v = ("20" / -0.2); print "not " if $v ne q{-100}; print 'ok 2225 - ("20" / -0.2) --> ('.$v.")
";
$v = ("20" / -0.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 2226 - ("20" / -0.3) --> ('.$v.")
";
$v = ("20" / 0.1e1); print "not " if $v ne q{20}; print 'ok 2227 - ("20" / 0.1e1) --> ('.$v.")
";
$v = ("20" / 0.2e1); print "not " if $v ne q{10}; print 'ok 2228 - ("20" / 0.2e1) --> ('.$v.")
";
$v = ("20" / 0.3e1); print "not " if $v ne q{6.66666666666667}; print 'ok 2229 - ("20" / 0.3e1) --> ('.$v.")
";
$v = ("20" / -0.1e1); print "not " if $v ne q{-20}; print 'ok 2230 - ("20" / -0.1e1) --> ('.$v.")
";
$v = ("20" / -0.2e1); print "not " if $v ne q{-10}; print 'ok 2231 - ("20" / -0.2e1) --> ('.$v.")
";
$v = ("20" / -0.3e1); print "not " if $v ne q{-6.66666666666667}; print 'ok 2232 - ("20" / -0.3e1) --> ('.$v.")
";
$v = ("20" / 10); print "not " if $v ne q{2}; print 'ok 2233 - ("20" / 10) --> ('.$v.")
";
$v = ("20" / 20); print "not " if $v ne q{1}; print 'ok 2234 - ("20" / 20) --> ('.$v.")
";
$v = ("20" / 30); print "not " if $v ne q{0.666666666666667}; print 'ok 2235 - ("20" / 30) --> ('.$v.")
";
$v = ("20" / -10); print "not " if $v ne q{-2}; print 'ok 2236 - ("20" / -10) --> ('.$v.")
";
$v = ("20" / -20); print "not " if $v ne q{-1}; print 'ok 2237 - ("20" / -20) --> ('.$v.")
";
$v = ("20" / -30); print "not " if $v ne q{-0.666666666666667}; print 'ok 2238 - ("20" / -30) --> ('.$v.")
";
$v = ("20" / @ab); print "not " if $v ne q{20}; print 'ok 2239 - ("20" / @ab) --> ('.$v.")
";
$v = ("20" / @ac); print "not " if $v ne q{6.66666666666667}; print 'ok 2240 - ("20" / @ac) --> ('.$v.")
";
$v = ("30" / "1"); print "not " if $v ne q{30}; print 'ok 2241 - ("30" / "1") --> ('.$v.")
";
$v = ("30" / "2"); print "not " if $v ne q{15}; print 'ok 2242 - ("30" / "2") --> ('.$v.")
";
$v = ("30" / "3"); print "not " if $v ne q{10}; print 'ok 2243 - ("30" / "3") --> ('.$v.")
";
$v = ("30" / "-1"); print "not " if $v ne q{-30}; print 'ok 2244 - ("30" / "-1") --> ('.$v.")
";
$v = ("30" / "-2"); print "not " if $v ne q{-15}; print 'ok 2245 - ("30" / "-2") --> ('.$v.")
";
$v = ("30" / "-3"); print "not " if $v ne q{-10}; print 'ok 2246 - ("30" / "-3") --> ('.$v.")
";
$v = ("30" / ".1"); print "not " if $v ne q{300}; print 'ok 2247 - ("30" / ".1") --> ('.$v.")
";
$v = ("30" / ".2"); print "not " if $v ne q{150}; print 'ok 2248 - ("30" / ".2") --> ('.$v.")
";
$v = ("30" / ".3"); print "not " if $v ne q{100}; print 'ok 2249 - ("30" / ".3") --> ('.$v.")
";
$v = ("30" / "-.1"); print "not " if $v ne q{-300}; print 'ok 2250 - ("30" / "-.1") --> ('.$v.")
";
$v = ("30" / "-.2"); print "not " if $v ne q{-150}; print 'ok 2251 - ("30" / "-.2") --> ('.$v.")
";
$v = ("30" / "-.3"); print "not " if $v ne q{-100}; print 'ok 2252 - ("30" / "-.3") --> ('.$v.")
";
$v = ("30" / "0.1"); print "not " if $v ne q{300}; print 'ok 2253 - ("30" / "0.1") --> ('.$v.")
";
$v = ("30" / "0.2"); print "not " if $v ne q{150}; print 'ok 2254 - ("30" / "0.2") --> ('.$v.")
";
$v = ("30" / "0.3"); print "not " if $v ne q{100}; print 'ok 2255 - ("30" / "0.3") --> ('.$v.")
";
$v = ("30" / "-0.1"); print "not " if $v ne q{-300}; print 'ok 2256 - ("30" / "-0.1") --> ('.$v.")
";
$v = ("30" / "-0.2"); print "not " if $v ne q{-150}; print 'ok 2257 - ("30" / "-0.2") --> ('.$v.")
";
$v = ("30" / "-0.3"); print "not " if $v ne q{-100}; print 'ok 2258 - ("30" / "-0.3") --> ('.$v.")
";
$v = ("30" / "0.1e1"); print "not " if $v ne q{30}; print 'ok 2259 - ("30" / "0.1e1") --> ('.$v.")
";
$v = ("30" / "0.2e1"); print "not " if $v ne q{15}; print 'ok 2260 - ("30" / "0.2e1") --> ('.$v.")
";
$v = ("30" / "0.3e1"); print "not " if $v ne q{10}; print 'ok 2261 - ("30" / "0.3e1") --> ('.$v.")
";
$v = ("30" / "-0.1e1"); print "not " if $v ne q{-30}; print 'ok 2262 - ("30" / "-0.1e1") --> ('.$v.")
";
$v = ("30" / "-0.2e1"); print "not " if $v ne q{-15}; print 'ok 2263 - ("30" / "-0.2e1") --> ('.$v.")
";
$v = ("30" / "-0.3e1"); print "not " if $v ne q{-10}; print 'ok 2264 - ("30" / "-0.3e1") --> ('.$v.")
";
$v = ("30" / "10"); print "not " if $v ne q{3}; print 'ok 2265 - ("30" / "10") --> ('.$v.")
";
$v = ("30" / "20"); print "not " if $v ne q{1.5}; print 'ok 2266 - ("30" / "20") --> ('.$v.")
";
$v = ("30" / "30"); print "not " if $v ne q{1}; print 'ok 2267 - ("30" / "30") --> ('.$v.")
";
$v = ("30" / "-10"); print "not " if $v ne q{-3}; print 'ok 2268 - ("30" / "-10") --> ('.$v.")
";
$v = ("30" / "-20"); print "not " if $v ne q{-1.5}; print 'ok 2269 - ("30" / "-20") --> ('.$v.")
";
$v = ("30" / "-30"); print "not " if $v ne q{-1}; print 'ok 2270 - ("30" / "-30") --> ('.$v.")
";
$v = ("30" / .1); print "not " if $v ne q{300}; print 'ok 2271 - ("30" / .1) --> ('.$v.")
";
$v = ("30" / .2); print "not " if $v ne q{150}; print 'ok 2272 - ("30" / .2) --> ('.$v.")
";
$v = ("30" / .3); print "not " if $v ne q{100}; print 'ok 2273 - ("30" / .3) --> ('.$v.")
";
$v = ("30" / -.1); print "not " if $v ne q{-300}; print 'ok 2274 - ("30" / -.1) --> ('.$v.")
";
$v = ("30" / -.2); print "not " if $v ne q{-150}; print 'ok 2275 - ("30" / -.2) --> ('.$v.")
";
$v = ("30" / -.3); print "not " if $v ne q{-100}; print 'ok 2276 - ("30" / -.3) --> ('.$v.")
";
$v = ("30" / 0.1); print "not " if $v ne q{300}; print 'ok 2277 - ("30" / 0.1) --> ('.$v.")
";
$v = ("30" / 0.2); print "not " if $v ne q{150}; print 'ok 2278 - ("30" / 0.2) --> ('.$v.")
";
$v = ("30" / 0.3); print "not " if $v ne q{100}; print 'ok 2279 - ("30" / 0.3) --> ('.$v.")
";
$v = ("30" / -0.1); print "not " if $v ne q{-300}; print 'ok 2280 - ("30" / -0.1) --> ('.$v.")
";
$v = ("30" / -0.2); print "not " if $v ne q{-150}; print 'ok 2281 - ("30" / -0.2) --> ('.$v.")
";
$v = ("30" / -0.3); print "not " if $v ne q{-100}; print 'ok 2282 - ("30" / -0.3) --> ('.$v.")
";
$v = ("30" / 0.1e1); print "not " if $v ne q{30}; print 'ok 2283 - ("30" / 0.1e1) --> ('.$v.")
";
$v = ("30" / 0.2e1); print "not " if $v ne q{15}; print 'ok 2284 - ("30" / 0.2e1) --> ('.$v.")
";
$v = ("30" / 0.3e1); print "not " if $v ne q{10}; print 'ok 2285 - ("30" / 0.3e1) --> ('.$v.")
";
$v = ("30" / -0.1e1); print "not " if $v ne q{-30}; print 'ok 2286 - ("30" / -0.1e1) --> ('.$v.")
";
$v = ("30" / -0.2e1); print "not " if $v ne q{-15}; print 'ok 2287 - ("30" / -0.2e1) --> ('.$v.")
";
$v = ("30" / -0.3e1); print "not " if $v ne q{-10}; print 'ok 2288 - ("30" / -0.3e1) --> ('.$v.")
";
$v = ("30" / 10); print "not " if $v ne q{3}; print 'ok 2289 - ("30" / 10) --> ('.$v.")
";
$v = ("30" / 20); print "not " if $v ne q{1.5}; print 'ok 2290 - ("30" / 20) --> ('.$v.")
";
$v = ("30" / 30); print "not " if $v ne q{1}; print 'ok 2291 - ("30" / 30) --> ('.$v.")
";
$v = ("30" / -10); print "not " if $v ne q{-3}; print 'ok 2292 - ("30" / -10) --> ('.$v.")
";
$v = ("30" / -20); print "not " if $v ne q{-1.5}; print 'ok 2293 - ("30" / -20) --> ('.$v.")
";
$v = ("30" / -30); print "not " if $v ne q{-1}; print 'ok 2294 - ("30" / -30) --> ('.$v.")
";
$v = ("30" / @ab); print "not " if $v ne q{30}; print 'ok 2295 - ("30" / @ab) --> ('.$v.")
";
$v = ("30" / @ac); print "not " if $v ne q{10}; print 'ok 2296 - ("30" / @ac) --> ('.$v.")
";
$v = ("-00" / "1"); print "not " if $v ne q{0}; print 'ok 2297 - ("-00" / "1") --> ('.$v.")
";
$v = ("-00" / "2"); print "not " if $v ne q{0}; print 'ok 2298 - ("-00" / "2") --> ('.$v.")
";
$v = ("-00" / "3"); print "not " if $v ne q{0}; print 'ok 2299 - ("-00" / "3") --> ('.$v.")
";
$v = ("-00" / "-1"); print "not " if $v ne q{0}; print 'ok 2300 - ("-00" / "-1") --> ('.$v.")
";
$v = ("-00" / "-2"); print "not " if $v ne q{0}; print 'ok 2301 - ("-00" / "-2") --> ('.$v.")
";
$v = ("-00" / "-3"); print "not " if $v ne q{0}; print 'ok 2302 - ("-00" / "-3") --> ('.$v.")
";
$v = ("-00" / ".1"); print "not " if $v ne q{0}; print 'ok 2303 - ("-00" / ".1") --> ('.$v.")
";
$v = ("-00" / ".2"); print "not " if $v ne q{0}; print 'ok 2304 - ("-00" / ".2") --> ('.$v.")
";
$v = ("-00" / ".3"); print "not " if $v ne q{0}; print 'ok 2305 - ("-00" / ".3") --> ('.$v.")
";
$v = ("-00" / "-.1"); print "not " if $v ne q{0}; print 'ok 2306 - ("-00" / "-.1") --> ('.$v.")
";
$v = ("-00" / "-.2"); print "not " if $v ne q{0}; print 'ok 2307 - ("-00" / "-.2") --> ('.$v.")
";
$v = ("-00" / "-.3"); print "not " if $v ne q{0}; print 'ok 2308 - ("-00" / "-.3") --> ('.$v.")
";
$v = ("-00" / "0.1"); print "not " if $v ne q{0}; print 'ok 2309 - ("-00" / "0.1") --> ('.$v.")
";
$v = ("-00" / "0.2"); print "not " if $v ne q{0}; print 'ok 2310 - ("-00" / "0.2") --> ('.$v.")
";
$v = ("-00" / "0.3"); print "not " if $v ne q{0}; print 'ok 2311 - ("-00" / "0.3") --> ('.$v.")
";
$v = ("-00" / "-0.1"); print "not " if $v ne q{0}; print 'ok 2312 - ("-00" / "-0.1") --> ('.$v.")
";
$v = ("-00" / "-0.2"); print "not " if $v ne q{0}; print 'ok 2313 - ("-00" / "-0.2") --> ('.$v.")
";
$v = ("-00" / "-0.3"); print "not " if $v ne q{0}; print 'ok 2314 - ("-00" / "-0.3") --> ('.$v.")
";
$v = ("-00" / "0.1e1"); print "not " if $v ne q{0}; print 'ok 2315 - ("-00" / "0.1e1") --> ('.$v.")
";
$v = ("-00" / "0.2e1"); print "not " if $v ne q{0}; print 'ok 2316 - ("-00" / "0.2e1") --> ('.$v.")
";
$v = ("-00" / "0.3e1"); print "not " if $v ne q{0}; print 'ok 2317 - ("-00" / "0.3e1") --> ('.$v.")
";
$v = ("-00" / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 2318 - ("-00" / "-0.1e1") --> ('.$v.")
";
$v = ("-00" / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 2319 - ("-00" / "-0.2e1") --> ('.$v.")
";
$v = ("-00" / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 2320 - ("-00" / "-0.3e1") --> ('.$v.")
";
$v = ("-00" / "10"); print "not " if $v ne q{0}; print 'ok 2321 - ("-00" / "10") --> ('.$v.")
";
$v = ("-00" / "20"); print "not " if $v ne q{0}; print 'ok 2322 - ("-00" / "20") --> ('.$v.")
";
$v = ("-00" / "30"); print "not " if $v ne q{0}; print 'ok 2323 - ("-00" / "30") --> ('.$v.")
";
$v = ("-00" / "-10"); print "not " if $v ne q{0}; print 'ok 2324 - ("-00" / "-10") --> ('.$v.")
";
$v = ("-00" / "-20"); print "not " if $v ne q{0}; print 'ok 2325 - ("-00" / "-20") --> ('.$v.")
";
$v = ("-00" / "-30"); print "not " if $v ne q{0}; print 'ok 2326 - ("-00" / "-30") --> ('.$v.")
";
$v = ("-00" / .1); print "not " if $v ne q{0}; print 'ok 2327 - ("-00" / .1) --> ('.$v.")
";
$v = ("-00" / .2); print "not " if $v ne q{0}; print 'ok 2328 - ("-00" / .2) --> ('.$v.")
";
$v = ("-00" / .3); print "not " if $v ne q{0}; print 'ok 2329 - ("-00" / .3) --> ('.$v.")
";
$v = ("-00" / -.1); print "not " if $v ne q{0}; print 'ok 2330 - ("-00" / -.1) --> ('.$v.")
";
$v = ("-00" / -.2); print "not " if $v ne q{0}; print 'ok 2331 - ("-00" / -.2) --> ('.$v.")
";
$v = ("-00" / -.3); print "not " if $v ne q{0}; print 'ok 2332 - ("-00" / -.3) --> ('.$v.")
";
$v = ("-00" / 0.1); print "not " if $v ne q{0}; print 'ok 2333 - ("-00" / 0.1) --> ('.$v.")
";
$v = ("-00" / 0.2); print "not " if $v ne q{0}; print 'ok 2334 - ("-00" / 0.2) --> ('.$v.")
";
$v = ("-00" / 0.3); print "not " if $v ne q{0}; print 'ok 2335 - ("-00" / 0.3) --> ('.$v.")
";
$v = ("-00" / -0.1); print "not " if $v ne q{0}; print 'ok 2336 - ("-00" / -0.1) --> ('.$v.")
";
$v = ("-00" / -0.2); print "not " if $v ne q{0}; print 'ok 2337 - ("-00" / -0.2) --> ('.$v.")
";
$v = ("-00" / -0.3); print "not " if $v ne q{0}; print 'ok 2338 - ("-00" / -0.3) --> ('.$v.")
";
$v = ("-00" / 0.1e1); print "not " if $v ne q{0}; print 'ok 2339 - ("-00" / 0.1e1) --> ('.$v.")
";
$v = ("-00" / 0.2e1); print "not " if $v ne q{0}; print 'ok 2340 - ("-00" / 0.2e1) --> ('.$v.")
";
$v = ("-00" / 0.3e1); print "not " if $v ne q{0}; print 'ok 2341 - ("-00" / 0.3e1) --> ('.$v.")
";
$v = ("-00" / -0.1e1); print "not " if $v ne q{0}; print 'ok 2342 - ("-00" / -0.1e1) --> ('.$v.")
";
$v = ("-00" / -0.2e1); print "not " if $v ne q{0}; print 'ok 2343 - ("-00" / -0.2e1) --> ('.$v.")
";
$v = ("-00" / -0.3e1); print "not " if $v ne q{0}; print 'ok 2344 - ("-00" / -0.3e1) --> ('.$v.")
";
$v = ("-00" / 10); print "not " if $v ne q{0}; print 'ok 2345 - ("-00" / 10) --> ('.$v.")
";
$v = ("-00" / 20); print "not " if $v ne q{0}; print 'ok 2346 - ("-00" / 20) --> ('.$v.")
";
$v = ("-00" / 30); print "not " if $v ne q{0}; print 'ok 2347 - ("-00" / 30) --> ('.$v.")
";
$v = ("-00" / -10); print "not " if $v ne q{0}; print 'ok 2348 - ("-00" / -10) --> ('.$v.")
";
$v = ("-00" / -20); print "not " if $v ne q{0}; print 'ok 2349 - ("-00" / -20) --> ('.$v.")
";
$v = ("-00" / -30); print "not " if $v ne q{0}; print 'ok 2350 - ("-00" / -30) --> ('.$v.")
";
$v = ("-00" / @ab); print "not " if $v ne q{0}; print 'ok 2351 - ("-00" / @ab) --> ('.$v.")
";
$v = ("-00" / @ac); print "not " if $v ne q{0}; print 'ok 2352 - ("-00" / @ac) --> ('.$v.")
";
$v = ("-10" / "1"); print "not " if $v ne q{-10}; print 'ok 2353 - ("-10" / "1") --> ('.$v.")
";
$v = ("-10" / "2"); print "not " if $v ne q{-5}; print 'ok 2354 - ("-10" / "2") --> ('.$v.")
";
$v = ("-10" / "3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 2355 - ("-10" / "3") --> ('.$v.")
";
$v = ("-10" / "-1"); print "not " if $v ne q{10}; print 'ok 2356 - ("-10" / "-1") --> ('.$v.")
";
$v = ("-10" / "-2"); print "not " if $v ne q{5}; print 'ok 2357 - ("-10" / "-2") --> ('.$v.")
";
$v = ("-10" / "-3"); print "not " if $v ne q{3.33333333333333}; print 'ok 2358 - ("-10" / "-3") --> ('.$v.")
";
$v = ("-10" / ".1"); print "not " if $v ne q{-100}; print 'ok 2359 - ("-10" / ".1") --> ('.$v.")
";
$v = ("-10" / ".2"); print "not " if $v ne q{-50}; print 'ok 2360 - ("-10" / ".2") --> ('.$v.")
";
$v = ("-10" / ".3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 2361 - ("-10" / ".3") --> ('.$v.")
";
$v = ("-10" / "-.1"); print "not " if $v ne q{100}; print 'ok 2362 - ("-10" / "-.1") --> ('.$v.")
";
$v = ("-10" / "-.2"); print "not " if $v ne q{50}; print 'ok 2363 - ("-10" / "-.2") --> ('.$v.")
";
$v = ("-10" / "-.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 2364 - ("-10" / "-.3") --> ('.$v.")
";
$v = ("-10" / "0.1"); print "not " if $v ne q{-100}; print 'ok 2365 - ("-10" / "0.1") --> ('.$v.")
";
$v = ("-10" / "0.2"); print "not " if $v ne q{-50}; print 'ok 2366 - ("-10" / "0.2") --> ('.$v.")
";
$v = ("-10" / "0.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 2367 - ("-10" / "0.3") --> ('.$v.")
";
$v = ("-10" / "-0.1"); print "not " if $v ne q{100}; print 'ok 2368 - ("-10" / "-0.1") --> ('.$v.")
";
$v = ("-10" / "-0.2"); print "not " if $v ne q{50}; print 'ok 2369 - ("-10" / "-0.2") --> ('.$v.")
";
$v = ("-10" / "-0.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 2370 - ("-10" / "-0.3") --> ('.$v.")
";
$v = ("-10" / "0.1e1"); print "not " if $v ne q{-10}; print 'ok 2371 - ("-10" / "0.1e1") --> ('.$v.")
";
$v = ("-10" / "0.2e1"); print "not " if $v ne q{-5}; print 'ok 2372 - ("-10" / "0.2e1") --> ('.$v.")
";
$v = ("-10" / "0.3e1"); print "not " if $v ne q{-3.33333333333333}; print 'ok 2373 - ("-10" / "0.3e1") --> ('.$v.")
";
$v = ("-10" / "-0.1e1"); print "not " if $v ne q{10}; print 'ok 2374 - ("-10" / "-0.1e1") --> ('.$v.")
";
$v = ("-10" / "-0.2e1"); print "not " if $v ne q{5}; print 'ok 2375 - ("-10" / "-0.2e1") --> ('.$v.")
";
$v = ("-10" / "-0.3e1"); print "not " if $v ne q{3.33333333333333}; print 'ok 2376 - ("-10" / "-0.3e1") --> ('.$v.")
";
$v = ("-10" / "10"); print "not " if $v ne q{-1}; print 'ok 2377 - ("-10" / "10") --> ('.$v.")
";
$v = ("-10" / "20"); print "not " if $v ne q{-0.5}; print 'ok 2378 - ("-10" / "20") --> ('.$v.")
";
$v = ("-10" / "30"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2379 - ("-10" / "30") --> ('.$v.")
";
$v = ("-10" / "-10"); print "not " if $v ne q{1}; print 'ok 2380 - ("-10" / "-10") --> ('.$v.")
";
$v = ("-10" / "-20"); print "not " if $v ne q{0.5}; print 'ok 2381 - ("-10" / "-20") --> ('.$v.")
";
$v = ("-10" / "-30"); print "not " if $v ne q{0.333333333333333}; print 'ok 2382 - ("-10" / "-30") --> ('.$v.")
";
$v = ("-10" / .1); print "not " if $v ne q{-100}; print 'ok 2383 - ("-10" / .1) --> ('.$v.")
";
$v = ("-10" / .2); print "not " if $v ne q{-50}; print 'ok 2384 - ("-10" / .2) --> ('.$v.")
";
$v = ("-10" / .3); print "not " if $v ne q{-33.3333333333333}; print 'ok 2385 - ("-10" / .3) --> ('.$v.")
";
$v = ("-10" / -.1); print "not " if $v ne q{100}; print 'ok 2386 - ("-10" / -.1) --> ('.$v.")
";
$v = ("-10" / -.2); print "not " if $v ne q{50}; print 'ok 2387 - ("-10" / -.2) --> ('.$v.")
";
$v = ("-10" / -.3); print "not " if $v ne q{33.3333333333333}; print 'ok 2388 - ("-10" / -.3) --> ('.$v.")
";
$v = ("-10" / 0.1); print "not " if $v ne q{-100}; print 'ok 2389 - ("-10" / 0.1) --> ('.$v.")
";
$v = ("-10" / 0.2); print "not " if $v ne q{-50}; print 'ok 2390 - ("-10" / 0.2) --> ('.$v.")
";
$v = ("-10" / 0.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 2391 - ("-10" / 0.3) --> ('.$v.")
";
$v = ("-10" / -0.1); print "not " if $v ne q{100}; print 'ok 2392 - ("-10" / -0.1) --> ('.$v.")
";
$v = ("-10" / -0.2); print "not " if $v ne q{50}; print 'ok 2393 - ("-10" / -0.2) --> ('.$v.")
";
$v = ("-10" / -0.3); print "not " if $v ne q{33.3333333333333}; print 'ok 2394 - ("-10" / -0.3) --> ('.$v.")
";
$v = ("-10" / 0.1e1); print "not " if $v ne q{-10}; print 'ok 2395 - ("-10" / 0.1e1) --> ('.$v.")
";
$v = ("-10" / 0.2e1); print "not " if $v ne q{-5}; print 'ok 2396 - ("-10" / 0.2e1) --> ('.$v.")
";
$v = ("-10" / 0.3e1); print "not " if $v ne q{-3.33333333333333}; print 'ok 2397 - ("-10" / 0.3e1) --> ('.$v.")
";
$v = ("-10" / -0.1e1); print "not " if $v ne q{10}; print 'ok 2398 - ("-10" / -0.1e1) --> ('.$v.")
";
$v = ("-10" / -0.2e1); print "not " if $v ne q{5}; print 'ok 2399 - ("-10" / -0.2e1) --> ('.$v.")
";
$v = ("-10" / -0.3e1); print "not " if $v ne q{3.33333333333333}; print 'ok 2400 - ("-10" / -0.3e1) --> ('.$v.")
";
$v = ("-10" / 10); print "not " if $v ne q{-1}; print 'ok 2401 - ("-10" / 10) --> ('.$v.")
";
$v = ("-10" / 20); print "not " if $v ne q{-0.5}; print 'ok 2402 - ("-10" / 20) --> ('.$v.")
";
$v = ("-10" / 30); print "not " if $v ne q{-0.333333333333333}; print 'ok 2403 - ("-10" / 30) --> ('.$v.")
";
$v = ("-10" / -10); print "not " if $v ne q{1}; print 'ok 2404 - ("-10" / -10) --> ('.$v.")
";
$v = ("-10" / -20); print "not " if $v ne q{0.5}; print 'ok 2405 - ("-10" / -20) --> ('.$v.")
";
$v = ("-10" / -30); print "not " if $v ne q{0.333333333333333}; print 'ok 2406 - ("-10" / -30) --> ('.$v.")
";
$v = ("-10" / @ab); print "not " if $v ne q{-10}; print 'ok 2407 - ("-10" / @ab) --> ('.$v.")
";
$v = ("-10" / @ac); print "not " if $v ne q{-3.33333333333333}; print 'ok 2408 - ("-10" / @ac) --> ('.$v.")
";
$v = ("-20" / "1"); print "not " if $v ne q{-20}; print 'ok 2409 - ("-20" / "1") --> ('.$v.")
";
$v = ("-20" / "2"); print "not " if $v ne q{-10}; print 'ok 2410 - ("-20" / "2") --> ('.$v.")
";
$v = ("-20" / "3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 2411 - ("-20" / "3") --> ('.$v.")
";
$v = ("-20" / "-1"); print "not " if $v ne q{20}; print 'ok 2412 - ("-20" / "-1") --> ('.$v.")
";
$v = ("-20" / "-2"); print "not " if $v ne q{10}; print 'ok 2413 - ("-20" / "-2") --> ('.$v.")
";
$v = ("-20" / "-3"); print "not " if $v ne q{6.66666666666667}; print 'ok 2414 - ("-20" / "-3") --> ('.$v.")
";
$v = ("-20" / ".1"); print "not " if $v ne q{-200}; print 'ok 2415 - ("-20" / ".1") --> ('.$v.")
";
$v = ("-20" / ".2"); print "not " if $v ne q{-100}; print 'ok 2416 - ("-20" / ".2") --> ('.$v.")
";
$v = ("-20" / ".3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 2417 - ("-20" / ".3") --> ('.$v.")
";
$v = ("-20" / "-.1"); print "not " if $v ne q{200}; print 'ok 2418 - ("-20" / "-.1") --> ('.$v.")
";
$v = ("-20" / "-.2"); print "not " if $v ne q{100}; print 'ok 2419 - ("-20" / "-.2") --> ('.$v.")
";
$v = ("-20" / "-.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 2420 - ("-20" / "-.3") --> ('.$v.")
";
$v = ("-20" / "0.1"); print "not " if $v ne q{-200}; print 'ok 2421 - ("-20" / "0.1") --> ('.$v.")
";
$v = ("-20" / "0.2"); print "not " if $v ne q{-100}; print 'ok 2422 - ("-20" / "0.2") --> ('.$v.")
";
$v = ("-20" / "0.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 2423 - ("-20" / "0.3") --> ('.$v.")
";
$v = ("-20" / "-0.1"); print "not " if $v ne q{200}; print 'ok 2424 - ("-20" / "-0.1") --> ('.$v.")
";
$v = ("-20" / "-0.2"); print "not " if $v ne q{100}; print 'ok 2425 - ("-20" / "-0.2") --> ('.$v.")
";
$v = ("-20" / "-0.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 2426 - ("-20" / "-0.3") --> ('.$v.")
";
$v = ("-20" / "0.1e1"); print "not " if $v ne q{-20}; print 'ok 2427 - ("-20" / "0.1e1") --> ('.$v.")
";
$v = ("-20" / "0.2e1"); print "not " if $v ne q{-10}; print 'ok 2428 - ("-20" / "0.2e1") --> ('.$v.")
";
$v = ("-20" / "0.3e1"); print "not " if $v ne q{-6.66666666666667}; print 'ok 2429 - ("-20" / "0.3e1") --> ('.$v.")
";
$v = ("-20" / "-0.1e1"); print "not " if $v ne q{20}; print 'ok 2430 - ("-20" / "-0.1e1") --> ('.$v.")
";
$v = ("-20" / "-0.2e1"); print "not " if $v ne q{10}; print 'ok 2431 - ("-20" / "-0.2e1") --> ('.$v.")
";
$v = ("-20" / "-0.3e1"); print "not " if $v ne q{6.66666666666667}; print 'ok 2432 - ("-20" / "-0.3e1") --> ('.$v.")
";
$v = ("-20" / "10"); print "not " if $v ne q{-2}; print 'ok 2433 - ("-20" / "10") --> ('.$v.")
";
$v = ("-20" / "20"); print "not " if $v ne q{-1}; print 'ok 2434 - ("-20" / "20") --> ('.$v.")
";
$v = ("-20" / "30"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2435 - ("-20" / "30") --> ('.$v.")
";
$v = ("-20" / "-10"); print "not " if $v ne q{2}; print 'ok 2436 - ("-20" / "-10") --> ('.$v.")
";
$v = ("-20" / "-20"); print "not " if $v ne q{1}; print 'ok 2437 - ("-20" / "-20") --> ('.$v.")
";
$v = ("-20" / "-30"); print "not " if $v ne q{0.666666666666667}; print 'ok 2438 - ("-20" / "-30") --> ('.$v.")
";
$v = ("-20" / .1); print "not " if $v ne q{-200}; print 'ok 2439 - ("-20" / .1) --> ('.$v.")
";
$v = ("-20" / .2); print "not " if $v ne q{-100}; print 'ok 2440 - ("-20" / .2) --> ('.$v.")
";
$v = ("-20" / .3); print "not " if $v ne q{-66.6666666666667}; print 'ok 2441 - ("-20" / .3) --> ('.$v.")
";
$v = ("-20" / -.1); print "not " if $v ne q{200}; print 'ok 2442 - ("-20" / -.1) --> ('.$v.")
";
$v = ("-20" / -.2); print "not " if $v ne q{100}; print 'ok 2443 - ("-20" / -.2) --> ('.$v.")
";
$v = ("-20" / -.3); print "not " if $v ne q{66.6666666666667}; print 'ok 2444 - ("-20" / -.3) --> ('.$v.")
";
$v = ("-20" / 0.1); print "not " if $v ne q{-200}; print 'ok 2445 - ("-20" / 0.1) --> ('.$v.")
";
$v = ("-20" / 0.2); print "not " if $v ne q{-100}; print 'ok 2446 - ("-20" / 0.2) --> ('.$v.")
";
$v = ("-20" / 0.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 2447 - ("-20" / 0.3) --> ('.$v.")
";
$v = ("-20" / -0.1); print "not " if $v ne q{200}; print 'ok 2448 - ("-20" / -0.1) --> ('.$v.")
";
$v = ("-20" / -0.2); print "not " if $v ne q{100}; print 'ok 2449 - ("-20" / -0.2) --> ('.$v.")
";
$v = ("-20" / -0.3); print "not " if $v ne q{66.6666666666667}; print 'ok 2450 - ("-20" / -0.3) --> ('.$v.")
";
$v = ("-20" / 0.1e1); print "not " if $v ne q{-20}; print 'ok 2451 - ("-20" / 0.1e1) --> ('.$v.")
";
$v = ("-20" / 0.2e1); print "not " if $v ne q{-10}; print 'ok 2452 - ("-20" / 0.2e1) --> ('.$v.")
";
$v = ("-20" / 0.3e1); print "not " if $v ne q{-6.66666666666667}; print 'ok 2453 - ("-20" / 0.3e1) --> ('.$v.")
";
$v = ("-20" / -0.1e1); print "not " if $v ne q{20}; print 'ok 2454 - ("-20" / -0.1e1) --> ('.$v.")
";
$v = ("-20" / -0.2e1); print "not " if $v ne q{10}; print 'ok 2455 - ("-20" / -0.2e1) --> ('.$v.")
";
$v = ("-20" / -0.3e1); print "not " if $v ne q{6.66666666666667}; print 'ok 2456 - ("-20" / -0.3e1) --> ('.$v.")
";
$v = ("-20" / 10); print "not " if $v ne q{-2}; print 'ok 2457 - ("-20" / 10) --> ('.$v.")
";
$v = ("-20" / 20); print "not " if $v ne q{-1}; print 'ok 2458 - ("-20" / 20) --> ('.$v.")
";
$v = ("-20" / 30); print "not " if $v ne q{-0.666666666666667}; print 'ok 2459 - ("-20" / 30) --> ('.$v.")
";
$v = ("-20" / -10); print "not " if $v ne q{2}; print 'ok 2460 - ("-20" / -10) --> ('.$v.")
";
$v = ("-20" / -20); print "not " if $v ne q{1}; print 'ok 2461 - ("-20" / -20) --> ('.$v.")
";
$v = ("-20" / -30); print "not " if $v ne q{0.666666666666667}; print 'ok 2462 - ("-20" / -30) --> ('.$v.")
";
$v = ("-20" / @ab); print "not " if $v ne q{-20}; print 'ok 2463 - ("-20" / @ab) --> ('.$v.")
";
$v = ("-20" / @ac); print "not " if $v ne q{-6.66666666666667}; print 'ok 2464 - ("-20" / @ac) --> ('.$v.")
";
$v = ("-30" / "1"); print "not " if $v ne q{-30}; print 'ok 2465 - ("-30" / "1") --> ('.$v.")
";
$v = ("-30" / "2"); print "not " if $v ne q{-15}; print 'ok 2466 - ("-30" / "2") --> ('.$v.")
";
$v = ("-30" / "3"); print "not " if $v ne q{-10}; print 'ok 2467 - ("-30" / "3") --> ('.$v.")
";
$v = ("-30" / "-1"); print "not " if $v ne q{30}; print 'ok 2468 - ("-30" / "-1") --> ('.$v.")
";
$v = ("-30" / "-2"); print "not " if $v ne q{15}; print 'ok 2469 - ("-30" / "-2") --> ('.$v.")
";
$v = ("-30" / "-3"); print "not " if $v ne q{10}; print 'ok 2470 - ("-30" / "-3") --> ('.$v.")
";
$v = ("-30" / ".1"); print "not " if $v ne q{-300}; print 'ok 2471 - ("-30" / ".1") --> ('.$v.")
";
$v = ("-30" / ".2"); print "not " if $v ne q{-150}; print 'ok 2472 - ("-30" / ".2") --> ('.$v.")
";
$v = ("-30" / ".3"); print "not " if $v ne q{-100}; print 'ok 2473 - ("-30" / ".3") --> ('.$v.")
";
$v = ("-30" / "-.1"); print "not " if $v ne q{300}; print 'ok 2474 - ("-30" / "-.1") --> ('.$v.")
";
$v = ("-30" / "-.2"); print "not " if $v ne q{150}; print 'ok 2475 - ("-30" / "-.2") --> ('.$v.")
";
$v = ("-30" / "-.3"); print "not " if $v ne q{100}; print 'ok 2476 - ("-30" / "-.3") --> ('.$v.")
";
$v = ("-30" / "0.1"); print "not " if $v ne q{-300}; print 'ok 2477 - ("-30" / "0.1") --> ('.$v.")
";
$v = ("-30" / "0.2"); print "not " if $v ne q{-150}; print 'ok 2478 - ("-30" / "0.2") --> ('.$v.")
";
$v = ("-30" / "0.3"); print "not " if $v ne q{-100}; print 'ok 2479 - ("-30" / "0.3") --> ('.$v.")
";
$v = ("-30" / "-0.1"); print "not " if $v ne q{300}; print 'ok 2480 - ("-30" / "-0.1") --> ('.$v.")
";
$v = ("-30" / "-0.2"); print "not " if $v ne q{150}; print 'ok 2481 - ("-30" / "-0.2") --> ('.$v.")
";
$v = ("-30" / "-0.3"); print "not " if $v ne q{100}; print 'ok 2482 - ("-30" / "-0.3") --> ('.$v.")
";
$v = ("-30" / "0.1e1"); print "not " if $v ne q{-30}; print 'ok 2483 - ("-30" / "0.1e1") --> ('.$v.")
";
$v = ("-30" / "0.2e1"); print "not " if $v ne q{-15}; print 'ok 2484 - ("-30" / "0.2e1") --> ('.$v.")
";
$v = ("-30" / "0.3e1"); print "not " if $v ne q{-10}; print 'ok 2485 - ("-30" / "0.3e1") --> ('.$v.")
";
$v = ("-30" / "-0.1e1"); print "not " if $v ne q{30}; print 'ok 2486 - ("-30" / "-0.1e1") --> ('.$v.")
";
$v = ("-30" / "-0.2e1"); print "not " if $v ne q{15}; print 'ok 2487 - ("-30" / "-0.2e1") --> ('.$v.")
";
$v = ("-30" / "-0.3e1"); print "not " if $v ne q{10}; print 'ok 2488 - ("-30" / "-0.3e1") --> ('.$v.")
";
$v = ("-30" / "10"); print "not " if $v ne q{-3}; print 'ok 2489 - ("-30" / "10") --> ('.$v.")
";
$v = ("-30" / "20"); print "not " if $v ne q{-1.5}; print 'ok 2490 - ("-30" / "20") --> ('.$v.")
";
$v = ("-30" / "30"); print "not " if $v ne q{-1}; print 'ok 2491 - ("-30" / "30") --> ('.$v.")
";
$v = ("-30" / "-10"); print "not " if $v ne q{3}; print 'ok 2492 - ("-30" / "-10") --> ('.$v.")
";
$v = ("-30" / "-20"); print "not " if $v ne q{1.5}; print 'ok 2493 - ("-30" / "-20") --> ('.$v.")
";
$v = ("-30" / "-30"); print "not " if $v ne q{1}; print 'ok 2494 - ("-30" / "-30") --> ('.$v.")
";
$v = ("-30" / .1); print "not " if $v ne q{-300}; print 'ok 2495 - ("-30" / .1) --> ('.$v.")
";
$v = ("-30" / .2); print "not " if $v ne q{-150}; print 'ok 2496 - ("-30" / .2) --> ('.$v.")
";
$v = ("-30" / .3); print "not " if $v ne q{-100}; print 'ok 2497 - ("-30" / .3) --> ('.$v.")
";
$v = ("-30" / -.1); print "not " if $v ne q{300}; print 'ok 2498 - ("-30" / -.1) --> ('.$v.")
";
$v = ("-30" / -.2); print "not " if $v ne q{150}; print 'ok 2499 - ("-30" / -.2) --> ('.$v.")
";
$v = ("-30" / -.3); print "not " if $v ne q{100}; print 'ok 2500 - ("-30" / -.3) --> ('.$v.")
";
$v = ("-30" / 0.1); print "not " if $v ne q{-300}; print 'ok 2501 - ("-30" / 0.1) --> ('.$v.")
";
$v = ("-30" / 0.2); print "not " if $v ne q{-150}; print 'ok 2502 - ("-30" / 0.2) --> ('.$v.")
";
$v = ("-30" / 0.3); print "not " if $v ne q{-100}; print 'ok 2503 - ("-30" / 0.3) --> ('.$v.")
";
$v = ("-30" / -0.1); print "not " if $v ne q{300}; print 'ok 2504 - ("-30" / -0.1) --> ('.$v.")
";
$v = ("-30" / -0.2); print "not " if $v ne q{150}; print 'ok 2505 - ("-30" / -0.2) --> ('.$v.")
";
$v = ("-30" / -0.3); print "not " if $v ne q{100}; print 'ok 2506 - ("-30" / -0.3) --> ('.$v.")
";
$v = ("-30" / 0.1e1); print "not " if $v ne q{-30}; print 'ok 2507 - ("-30" / 0.1e1) --> ('.$v.")
";
$v = ("-30" / 0.2e1); print "not " if $v ne q{-15}; print 'ok 2508 - ("-30" / 0.2e1) --> ('.$v.")
";
$v = ("-30" / 0.3e1); print "not " if $v ne q{-10}; print 'ok 2509 - ("-30" / 0.3e1) --> ('.$v.")
";
$v = ("-30" / -0.1e1); print "not " if $v ne q{30}; print 'ok 2510 - ("-30" / -0.1e1) --> ('.$v.")
";
$v = ("-30" / -0.2e1); print "not " if $v ne q{15}; print 'ok 2511 - ("-30" / -0.2e1) --> ('.$v.")
";
$v = ("-30" / -0.3e1); print "not " if $v ne q{10}; print 'ok 2512 - ("-30" / -0.3e1) --> ('.$v.")
";
$v = ("-30" / 10); print "not " if $v ne q{-3}; print 'ok 2513 - ("-30" / 10) --> ('.$v.")
";
$v = ("-30" / 20); print "not " if $v ne q{-1.5}; print 'ok 2514 - ("-30" / 20) --> ('.$v.")
";
$v = ("-30" / 30); print "not " if $v ne q{-1}; print 'ok 2515 - ("-30" / 30) --> ('.$v.")
";
$v = ("-30" / -10); print "not " if $v ne q{3}; print 'ok 2516 - ("-30" / -10) --> ('.$v.")
";
$v = ("-30" / -20); print "not " if $v ne q{1.5}; print 'ok 2517 - ("-30" / -20) --> ('.$v.")
";
$v = ("-30" / -30); print "not " if $v ne q{1}; print 'ok 2518 - ("-30" / -30) --> ('.$v.")
";
$v = ("-30" / @ab); print "not " if $v ne q{-30}; print 'ok 2519 - ("-30" / @ab) --> ('.$v.")
";
$v = ("-30" / @ac); print "not " if $v ne q{-10}; print 'ok 2520 - ("-30" / @ac) --> ('.$v.")
";
$v = (.0 / "1"); print "not " if $v ne q{0}; print 'ok 2521 - (.0 / "1") --> ('.$v.")
";
$v = (.0 / "2"); print "not " if $v ne q{0}; print 'ok 2522 - (.0 / "2") --> ('.$v.")
";
$v = (.0 / "3"); print "not " if $v ne q{0}; print 'ok 2523 - (.0 / "3") --> ('.$v.")
";
$v = (.0 / "-1"); print "not " if $v ne q{0}; print 'ok 2524 - (.0 / "-1") --> ('.$v.")
";
$v = (.0 / "-2"); print "not " if $v ne q{0}; print 'ok 2525 - (.0 / "-2") --> ('.$v.")
";
$v = (.0 / "-3"); print "not " if $v ne q{0}; print 'ok 2526 - (.0 / "-3") --> ('.$v.")
";
$v = (.0 / ".1"); print "not " if $v ne q{0}; print 'ok 2527 - (.0 / ".1") --> ('.$v.")
";
$v = (.0 / ".2"); print "not " if $v ne q{0}; print 'ok 2528 - (.0 / ".2") --> ('.$v.")
";
$v = (.0 / ".3"); print "not " if $v ne q{0}; print 'ok 2529 - (.0 / ".3") --> ('.$v.")
";
$v = (.0 / "-.1"); print "not " if $v ne q{0}; print 'ok 2530 - (.0 / "-.1") --> ('.$v.")
";
$v = (.0 / "-.2"); print "not " if $v ne q{0}; print 'ok 2531 - (.0 / "-.2") --> ('.$v.")
";
$v = (.0 / "-.3"); print "not " if $v ne q{0}; print 'ok 2532 - (.0 / "-.3") --> ('.$v.")
";
$v = (.0 / "0.1"); print "not " if $v ne q{0}; print 'ok 2533 - (.0 / "0.1") --> ('.$v.")
";
$v = (.0 / "0.2"); print "not " if $v ne q{0}; print 'ok 2534 - (.0 / "0.2") --> ('.$v.")
";
$v = (.0 / "0.3"); print "not " if $v ne q{0}; print 'ok 2535 - (.0 / "0.3") --> ('.$v.")
";
$v = (.0 / "-0.1"); print "not " if $v ne q{0}; print 'ok 2536 - (.0 / "-0.1") --> ('.$v.")
";
$v = (.0 / "-0.2"); print "not " if $v ne q{0}; print 'ok 2537 - (.0 / "-0.2") --> ('.$v.")
";
$v = (.0 / "-0.3"); print "not " if $v ne q{0}; print 'ok 2538 - (.0 / "-0.3") --> ('.$v.")
";
$v = (.0 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 2539 - (.0 / "0.1e1") --> ('.$v.")
";
$v = (.0 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 2540 - (.0 / "0.2e1") --> ('.$v.")
";
$v = (.0 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 2541 - (.0 / "0.3e1") --> ('.$v.")
";
$v = (.0 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 2542 - (.0 / "-0.1e1") --> ('.$v.")
";
$v = (.0 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 2543 - (.0 / "-0.2e1") --> ('.$v.")
";
$v = (.0 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 2544 - (.0 / "-0.3e1") --> ('.$v.")
";
$v = (.0 / "10"); print "not " if $v ne q{0}; print 'ok 2545 - (.0 / "10") --> ('.$v.")
";
$v = (.0 / "20"); print "not " if $v ne q{0}; print 'ok 2546 - (.0 / "20") --> ('.$v.")
";
$v = (.0 / "30"); print "not " if $v ne q{0}; print 'ok 2547 - (.0 / "30") --> ('.$v.")
";
$v = (.0 / "-10"); print "not " if $v ne q{0}; print 'ok 2548 - (.0 / "-10") --> ('.$v.")
";
$v = (.0 / "-20"); print "not " if $v ne q{0}; print 'ok 2549 - (.0 / "-20") --> ('.$v.")
";
$v = (.0 / "-30"); print "not " if $v ne q{0}; print 'ok 2550 - (.0 / "-30") --> ('.$v.")
";
$v = (.0 / .1); print "not " if $v ne q{0}; print 'ok 2551 - (.0 / .1) --> ('.$v.")
";
$v = (.0 / .2); print "not " if $v ne q{0}; print 'ok 2552 - (.0 / .2) --> ('.$v.")
";
$v = (.0 / .3); print "not " if $v ne q{0}; print 'ok 2553 - (.0 / .3) --> ('.$v.")
";
$v = (.0 / -.1); print "not " if $v ne q{0}; print 'ok 2554 - (.0 / -.1) --> ('.$v.")
";
$v = (.0 / -.2); print "not " if $v ne q{0}; print 'ok 2555 - (.0 / -.2) --> ('.$v.")
";
$v = (.0 / -.3); print "not " if $v ne q{0}; print 'ok 2556 - (.0 / -.3) --> ('.$v.")
";
$v = (.0 / 0.1); print "not " if $v ne q{0}; print 'ok 2557 - (.0 / 0.1) --> ('.$v.")
";
$v = (.0 / 0.2); print "not " if $v ne q{0}; print 'ok 2558 - (.0 / 0.2) --> ('.$v.")
";
$v = (.0 / 0.3); print "not " if $v ne q{0}; print 'ok 2559 - (.0 / 0.3) --> ('.$v.")
";
$v = (.0 / -0.1); print "not " if $v ne q{0}; print 'ok 2560 - (.0 / -0.1) --> ('.$v.")
";
$v = (.0 / -0.2); print "not " if $v ne q{0}; print 'ok 2561 - (.0 / -0.2) --> ('.$v.")
";
$v = (.0 / -0.3); print "not " if $v ne q{0}; print 'ok 2562 - (.0 / -0.3) --> ('.$v.")
";
$v = (.0 / 0.1e1); print "not " if $v ne q{0}; print 'ok 2563 - (.0 / 0.1e1) --> ('.$v.")
";
$v = (.0 / 0.2e1); print "not " if $v ne q{0}; print 'ok 2564 - (.0 / 0.2e1) --> ('.$v.")
";
$v = (.0 / 0.3e1); print "not " if $v ne q{0}; print 'ok 2565 - (.0 / 0.3e1) --> ('.$v.")
";
$v = (.0 / -0.1e1); print "not " if $v ne q{0}; print 'ok 2566 - (.0 / -0.1e1) --> ('.$v.")
";
$v = (.0 / -0.2e1); print "not " if $v ne q{0}; print 'ok 2567 - (.0 / -0.2e1) --> ('.$v.")
";
$v = (.0 / -0.3e1); print "not " if $v ne q{0}; print 'ok 2568 - (.0 / -0.3e1) --> ('.$v.")
";
$v = (.0 / 10); print "not " if $v ne q{0}; print 'ok 2569 - (.0 / 10) --> ('.$v.")
";
$v = (.0 / 20); print "not " if $v ne q{0}; print 'ok 2570 - (.0 / 20) --> ('.$v.")
";
$v = (.0 / 30); print "not " if $v ne q{0}; print 'ok 2571 - (.0 / 30) --> ('.$v.")
";
$v = (.0 / -10); print "not " if $v ne q{0}; print 'ok 2572 - (.0 / -10) --> ('.$v.")
";
$v = (.0 / -20); print "not " if $v ne q{0}; print 'ok 2573 - (.0 / -20) --> ('.$v.")
";
$v = (.0 / -30); print "not " if $v ne q{0}; print 'ok 2574 - (.0 / -30) --> ('.$v.")
";
$v = (.0 / @ab); print "not " if $v ne q{0}; print 'ok 2575 - (.0 / @ab) --> ('.$v.")
";
$v = (.0 / @ac); print "not " if $v ne q{0}; print 'ok 2576 - (.0 / @ac) --> ('.$v.")
";
$v = (.1 / "1"); print "not " if $v ne q{0.1}; print 'ok 2577 - (.1 / "1") --> ('.$v.")
";
$v = (.1 / "2"); print "not " if $v ne q{0.05}; print 'ok 2578 - (.1 / "2") --> ('.$v.")
";
$v = (.1 / "3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 2579 - (.1 / "3") --> ('.$v.")
";
$v = (.1 / "-1"); print "not " if $v ne q{-0.1}; print 'ok 2580 - (.1 / "-1") --> ('.$v.")
";
$v = (.1 / "-2"); print "not " if $v ne q{-0.05}; print 'ok 2581 - (.1 / "-2") --> ('.$v.")
";
$v = (.1 / "-3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2582 - (.1 / "-3") --> ('.$v.")
";
$v = (.1 / ".1"); print "not " if $v ne q{1}; print 'ok 2583 - (.1 / ".1") --> ('.$v.")
";
$v = (.1 / ".2"); print "not " if $v ne q{0.5}; print 'ok 2584 - (.1 / ".2") --> ('.$v.")
";
$v = (.1 / ".3"); print "not " if $v ne q{0.333333333333333}; print 'ok 2585 - (.1 / ".3") --> ('.$v.")
";
$v = (.1 / "-.1"); print "not " if $v ne q{-1}; print 'ok 2586 - (.1 / "-.1") --> ('.$v.")
";
$v = (.1 / "-.2"); print "not " if $v ne q{-0.5}; print 'ok 2587 - (.1 / "-.2") --> ('.$v.")
";
$v = (.1 / "-.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2588 - (.1 / "-.3") --> ('.$v.")
";
$v = (.1 / "0.1"); print "not " if $v ne q{1}; print 'ok 2589 - (.1 / "0.1") --> ('.$v.")
";
$v = (.1 / "0.2"); print "not " if $v ne q{0.5}; print 'ok 2590 - (.1 / "0.2") --> ('.$v.")
";
$v = (.1 / "0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 2591 - (.1 / "0.3") --> ('.$v.")
";
$v = (.1 / "-0.1"); print "not " if $v ne q{-1}; print 'ok 2592 - (.1 / "-0.1") --> ('.$v.")
";
$v = (.1 / "-0.2"); print "not " if $v ne q{-0.5}; print 'ok 2593 - (.1 / "-0.2") --> ('.$v.")
";
$v = (.1 / "-0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2594 - (.1 / "-0.3") --> ('.$v.")
";
$v = (.1 / "0.1e1"); print "not " if $v ne q{0.1}; print 'ok 2595 - (.1 / "0.1e1") --> ('.$v.")
";
$v = (.1 / "0.2e1"); print "not " if $v ne q{0.05}; print 'ok 2596 - (.1 / "0.2e1") --> ('.$v.")
";
$v = (.1 / "0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 2597 - (.1 / "0.3e1") --> ('.$v.")
";
$v = (.1 / "-0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 2598 - (.1 / "-0.1e1") --> ('.$v.")
";
$v = (.1 / "-0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 2599 - (.1 / "-0.2e1") --> ('.$v.")
";
$v = (.1 / "-0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2600 - (.1 / "-0.3e1") --> ('.$v.")
";
$v = (.1 / "10"); print "not " if $v ne q{0.01}; print 'ok 2601 - (.1 / "10") --> ('.$v.")
";
$v = (.1 / "20"); print "not " if $v ne q{0.005}; print 'ok 2602 - (.1 / "20") --> ('.$v.")
";
$v = (.1 / "30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 2603 - (.1 / "30") --> ('.$v.")
";
$v = (.1 / "-10"); print "not " if $v ne q{-0.01}; print 'ok 2604 - (.1 / "-10") --> ('.$v.")
";
$v = (.1 / "-20"); print "not " if $v ne q{-0.005}; print 'ok 2605 - (.1 / "-20") --> ('.$v.")
";
$v = (.1 / "-30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 2606 - (.1 / "-30") --> ('.$v.")
";
$v = (.1 / .1); print "not " if $v ne q{1}; print 'ok 2607 - (.1 / .1) --> ('.$v.")
";
$v = (.1 / .2); print "not " if $v ne q{0.5}; print 'ok 2608 - (.1 / .2) --> ('.$v.")
";
$v = (.1 / .3); print "not " if $v ne q{0.333333333333333}; print 'ok 2609 - (.1 / .3) --> ('.$v.")
";
$v = (.1 / -.1); print "not " if $v ne q{-1}; print 'ok 2610 - (.1 / -.1) --> ('.$v.")
";
$v = (.1 / -.2); print "not " if $v ne q{-0.5}; print 'ok 2611 - (.1 / -.2) --> ('.$v.")
";
$v = (.1 / -.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 2612 - (.1 / -.3) --> ('.$v.")
";
$v = (.1 / 0.1); print "not " if $v ne q{1}; print 'ok 2613 - (.1 / 0.1) --> ('.$v.")
";
$v = (.1 / 0.2); print "not " if $v ne q{0.5}; print 'ok 2614 - (.1 / 0.2) --> ('.$v.")
";
$v = (.1 / 0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 2615 - (.1 / 0.3) --> ('.$v.")
";
$v = (.1 / -0.1); print "not " if $v ne q{-1}; print 'ok 2616 - (.1 / -0.1) --> ('.$v.")
";
$v = (.1 / -0.2); print "not " if $v ne q{-0.5}; print 'ok 2617 - (.1 / -0.2) --> ('.$v.")
";
$v = (.1 / -0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 2618 - (.1 / -0.3) --> ('.$v.")
";
$v = (.1 / 0.1e1); print "not " if $v ne q{0.1}; print 'ok 2619 - (.1 / 0.1e1) --> ('.$v.")
";
$v = (.1 / 0.2e1); print "not " if $v ne q{0.05}; print 'ok 2620 - (.1 / 0.2e1) --> ('.$v.")
";
$v = (.1 / 0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 2621 - (.1 / 0.3e1) --> ('.$v.")
";
$v = (.1 / -0.1e1); print "not " if $v ne q{-0.1}; print 'ok 2622 - (.1 / -0.1e1) --> ('.$v.")
";
$v = (.1 / -0.2e1); print "not " if $v ne q{-0.05}; print 'ok 2623 - (.1 / -0.2e1) --> ('.$v.")
";
$v = (.1 / -0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2624 - (.1 / -0.3e1) --> ('.$v.")
";
$v = (.1 / 10); print "not " if $v ne q{0.01}; print 'ok 2625 - (.1 / 10) --> ('.$v.")
";
$v = (.1 / 20); print "not " if $v ne q{0.005}; print 'ok 2626 - (.1 / 20) --> ('.$v.")
";
$v = (.1 / 30); print "not " if $v ne q{0.00333333333333333}; print 'ok 2627 - (.1 / 30) --> ('.$v.")
";
$v = (.1 / -10); print "not " if $v ne q{-0.01}; print 'ok 2628 - (.1 / -10) --> ('.$v.")
";
$v = (.1 / -20); print "not " if $v ne q{-0.005}; print 'ok 2629 - (.1 / -20) --> ('.$v.")
";
$v = (.1 / -30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 2630 - (.1 / -30) --> ('.$v.")
";
$v = (.1 / @ab); print "not " if $v ne q{0.1}; print 'ok 2631 - (.1 / @ab) --> ('.$v.")
";
$v = (.1 / @ac); print "not " if $v ne q{0.0333333333333333}; print 'ok 2632 - (.1 / @ac) --> ('.$v.")
";
$v = (.2 / "1"); print "not " if $v ne q{0.2}; print 'ok 2633 - (.2 / "1") --> ('.$v.")
";
$v = (.2 / "2"); print "not " if $v ne q{0.1}; print 'ok 2634 - (.2 / "2") --> ('.$v.")
";
$v = (.2 / "3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 2635 - (.2 / "3") --> ('.$v.")
";
$v = (.2 / "-1"); print "not " if $v ne q{-0.2}; print 'ok 2636 - (.2 / "-1") --> ('.$v.")
";
$v = (.2 / "-2"); print "not " if $v ne q{-0.1}; print 'ok 2637 - (.2 / "-2") --> ('.$v.")
";
$v = (.2 / "-3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2638 - (.2 / "-3") --> ('.$v.")
";
$v = (.2 / ".1"); print "not " if $v ne q{2}; print 'ok 2639 - (.2 / ".1") --> ('.$v.")
";
$v = (.2 / ".2"); print "not " if $v ne q{1}; print 'ok 2640 - (.2 / ".2") --> ('.$v.")
";
$v = (.2 / ".3"); print "not " if $v ne q{0.666666666666667}; print 'ok 2641 - (.2 / ".3") --> ('.$v.")
";
$v = (.2 / "-.1"); print "not " if $v ne q{-2}; print 'ok 2642 - (.2 / "-.1") --> ('.$v.")
";
$v = (.2 / "-.2"); print "not " if $v ne q{-1}; print 'ok 2643 - (.2 / "-.2") --> ('.$v.")
";
$v = (.2 / "-.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2644 - (.2 / "-.3") --> ('.$v.")
";
$v = (.2 / "0.1"); print "not " if $v ne q{2}; print 'ok 2645 - (.2 / "0.1") --> ('.$v.")
";
$v = (.2 / "0.2"); print "not " if $v ne q{1}; print 'ok 2646 - (.2 / "0.2") --> ('.$v.")
";
$v = (.2 / "0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 2647 - (.2 / "0.3") --> ('.$v.")
";
$v = (.2 / "-0.1"); print "not " if $v ne q{-2}; print 'ok 2648 - (.2 / "-0.1") --> ('.$v.")
";
$v = (.2 / "-0.2"); print "not " if $v ne q{-1}; print 'ok 2649 - (.2 / "-0.2") --> ('.$v.")
";
$v = (.2 / "-0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2650 - (.2 / "-0.3") --> ('.$v.")
";
$v = (.2 / "0.1e1"); print "not " if $v ne q{0.2}; print 'ok 2651 - (.2 / "0.1e1") --> ('.$v.")
";
$v = (.2 / "0.2e1"); print "not " if $v ne q{0.1}; print 'ok 2652 - (.2 / "0.2e1") --> ('.$v.")
";
$v = (.2 / "0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 2653 - (.2 / "0.3e1") --> ('.$v.")
";
$v = (.2 / "-0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 2654 - (.2 / "-0.1e1") --> ('.$v.")
";
$v = (.2 / "-0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 2655 - (.2 / "-0.2e1") --> ('.$v.")
";
$v = (.2 / "-0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2656 - (.2 / "-0.3e1") --> ('.$v.")
";
$v = (.2 / "10"); print "not " if $v ne q{0.02}; print 'ok 2657 - (.2 / "10") --> ('.$v.")
";
$v = (.2 / "20"); print "not " if $v ne q{0.01}; print 'ok 2658 - (.2 / "20") --> ('.$v.")
";
$v = (.2 / "30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 2659 - (.2 / "30") --> ('.$v.")
";
$v = (.2 / "-10"); print "not " if $v ne q{-0.02}; print 'ok 2660 - (.2 / "-10") --> ('.$v.")
";
$v = (.2 / "-20"); print "not " if $v ne q{-0.01}; print 'ok 2661 - (.2 / "-20") --> ('.$v.")
";
$v = (.2 / "-30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 2662 - (.2 / "-30") --> ('.$v.")
";
$v = (.2 / .1); print "not " if $v ne q{2}; print 'ok 2663 - (.2 / .1) --> ('.$v.")
";
$v = (.2 / .2); print "not " if $v ne q{1}; print 'ok 2664 - (.2 / .2) --> ('.$v.")
";
$v = (.2 / .3); print "not " if $v ne q{0.666666666666667}; print 'ok 2665 - (.2 / .3) --> ('.$v.")
";
$v = (.2 / -.1); print "not " if $v ne q{-2}; print 'ok 2666 - (.2 / -.1) --> ('.$v.")
";
$v = (.2 / -.2); print "not " if $v ne q{-1}; print 'ok 2667 - (.2 / -.2) --> ('.$v.")
";
$v = (.2 / -.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 2668 - (.2 / -.3) --> ('.$v.")
";
$v = (.2 / 0.1); print "not " if $v ne q{2}; print 'ok 2669 - (.2 / 0.1) --> ('.$v.")
";
$v = (.2 / 0.2); print "not " if $v ne q{1}; print 'ok 2670 - (.2 / 0.2) --> ('.$v.")
";
$v = (.2 / 0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 2671 - (.2 / 0.3) --> ('.$v.")
";
$v = (.2 / -0.1); print "not " if $v ne q{-2}; print 'ok 2672 - (.2 / -0.1) --> ('.$v.")
";
$v = (.2 / -0.2); print "not " if $v ne q{-1}; print 'ok 2673 - (.2 / -0.2) --> ('.$v.")
";
$v = (.2 / -0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 2674 - (.2 / -0.3) --> ('.$v.")
";
$v = (.2 / 0.1e1); print "not " if $v ne q{0.2}; print 'ok 2675 - (.2 / 0.1e1) --> ('.$v.")
";
$v = (.2 / 0.2e1); print "not " if $v ne q{0.1}; print 'ok 2676 - (.2 / 0.2e1) --> ('.$v.")
";
$v = (.2 / 0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 2677 - (.2 / 0.3e1) --> ('.$v.")
";
$v = (.2 / -0.1e1); print "not " if $v ne q{-0.2}; print 'ok 2678 - (.2 / -0.1e1) --> ('.$v.")
";
$v = (.2 / -0.2e1); print "not " if $v ne q{-0.1}; print 'ok 2679 - (.2 / -0.2e1) --> ('.$v.")
";
$v = (.2 / -0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2680 - (.2 / -0.3e1) --> ('.$v.")
";
$v = (.2 / 10); print "not " if $v ne q{0.02}; print 'ok 2681 - (.2 / 10) --> ('.$v.")
";
$v = (.2 / 20); print "not " if $v ne q{0.01}; print 'ok 2682 - (.2 / 20) --> ('.$v.")
";
$v = (.2 / 30); print "not " if $v ne q{0.00666666666666667}; print 'ok 2683 - (.2 / 30) --> ('.$v.")
";
$v = (.2 / -10); print "not " if $v ne q{-0.02}; print 'ok 2684 - (.2 / -10) --> ('.$v.")
";
$v = (.2 / -20); print "not " if $v ne q{-0.01}; print 'ok 2685 - (.2 / -20) --> ('.$v.")
";
$v = (.2 / -30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 2686 - (.2 / -30) --> ('.$v.")
";
$v = (.2 / @ab); print "not " if $v ne q{0.2}; print 'ok 2687 - (.2 / @ab) --> ('.$v.")
";
$v = (.2 / @ac); print "not " if $v ne q{0.0666666666666667}; print 'ok 2688 - (.2 / @ac) --> ('.$v.")
";
$v = (.3 / "1"); print "not " if $v ne q{0.3}; print 'ok 2689 - (.3 / "1") --> ('.$v.")
";
$v = (.3 / "2"); print "not " if $v ne q{0.15}; print 'ok 2690 - (.3 / "2") --> ('.$v.")
";
$v = (.3 / "3"); print "not " if $v ne q{0.1}; print 'ok 2691 - (.3 / "3") --> ('.$v.")
";
$v = (.3 / "-1"); print "not " if $v ne q{-0.3}; print 'ok 2692 - (.3 / "-1") --> ('.$v.")
";
$v = (.3 / "-2"); print "not " if $v ne q{-0.15}; print 'ok 2693 - (.3 / "-2") --> ('.$v.")
";
$v = (.3 / "-3"); print "not " if $v ne q{-0.1}; print 'ok 2694 - (.3 / "-3") --> ('.$v.")
";
$v = (.3 / ".1"); print "not " if $v ne q{3}; print 'ok 2695 - (.3 / ".1") --> ('.$v.")
";
$v = (.3 / ".2"); print "not " if $v ne q{1.5}; print 'ok 2696 - (.3 / ".2") --> ('.$v.")
";
$v = (.3 / ".3"); print "not " if $v ne q{1}; print 'ok 2697 - (.3 / ".3") --> ('.$v.")
";
$v = (.3 / "-.1"); print "not " if $v ne q{-3}; print 'ok 2698 - (.3 / "-.1") --> ('.$v.")
";
$v = (.3 / "-.2"); print "not " if $v ne q{-1.5}; print 'ok 2699 - (.3 / "-.2") --> ('.$v.")
";
$v = (.3 / "-.3"); print "not " if $v ne q{-1}; print 'ok 2700 - (.3 / "-.3") --> ('.$v.")
";
$v = (.3 / "0.1"); print "not " if $v ne q{3}; print 'ok 2701 - (.3 / "0.1") --> ('.$v.")
";
$v = (.3 / "0.2"); print "not " if $v ne q{1.5}; print 'ok 2702 - (.3 / "0.2") --> ('.$v.")
";
$v = (.3 / "0.3"); print "not " if $v ne q{1}; print 'ok 2703 - (.3 / "0.3") --> ('.$v.")
";
$v = (.3 / "-0.1"); print "not " if $v ne q{-3}; print 'ok 2704 - (.3 / "-0.1") --> ('.$v.")
";
$v = (.3 / "-0.2"); print "not " if $v ne q{-1.5}; print 'ok 2705 - (.3 / "-0.2") --> ('.$v.")
";
$v = (.3 / "-0.3"); print "not " if $v ne q{-1}; print 'ok 2706 - (.3 / "-0.3") --> ('.$v.")
";
$v = (.3 / "0.1e1"); print "not " if $v ne q{0.3}; print 'ok 2707 - (.3 / "0.1e1") --> ('.$v.")
";
$v = (.3 / "0.2e1"); print "not " if $v ne q{0.15}; print 'ok 2708 - (.3 / "0.2e1") --> ('.$v.")
";
$v = (.3 / "0.3e1"); print "not " if $v ne q{0.1}; print 'ok 2709 - (.3 / "0.3e1") --> ('.$v.")
";
$v = (.3 / "-0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 2710 - (.3 / "-0.1e1") --> ('.$v.")
";
$v = (.3 / "-0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 2711 - (.3 / "-0.2e1") --> ('.$v.")
";
$v = (.3 / "-0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 2712 - (.3 / "-0.3e1") --> ('.$v.")
";
$v = (.3 / "10"); print "not " if $v ne q{0.03}; print 'ok 2713 - (.3 / "10") --> ('.$v.")
";
$v = (.3 / "20"); print "not " if $v ne q{0.015}; print 'ok 2714 - (.3 / "20") --> ('.$v.")
";
$v = (.3 / "30"); print "not " if $v ne q{0.01}; print 'ok 2715 - (.3 / "30") --> ('.$v.")
";
$v = (.3 / "-10"); print "not " if $v ne q{-0.03}; print 'ok 2716 - (.3 / "-10") --> ('.$v.")
";
$v = (.3 / "-20"); print "not " if $v ne q{-0.015}; print 'ok 2717 - (.3 / "-20") --> ('.$v.")
";
$v = (.3 / "-30"); print "not " if $v ne q{-0.01}; print 'ok 2718 - (.3 / "-30") --> ('.$v.")
";
$v = (.3 / .1); print "not " if $v ne q{3}; print 'ok 2719 - (.3 / .1) --> ('.$v.")
";
$v = (.3 / .2); print "not " if $v ne q{1.5}; print 'ok 2720 - (.3 / .2) --> ('.$v.")
";
$v = (.3 / .3); print "not " if $v ne q{1}; print 'ok 2721 - (.3 / .3) --> ('.$v.")
";
$v = (.3 / -.1); print "not " if $v ne q{-3}; print 'ok 2722 - (.3 / -.1) --> ('.$v.")
";
$v = (.3 / -.2); print "not " if $v ne q{-1.5}; print 'ok 2723 - (.3 / -.2) --> ('.$v.")
";
$v = (.3 / -.3); print "not " if $v ne q{-1}; print 'ok 2724 - (.3 / -.3) --> ('.$v.")
";
$v = (.3 / 0.1); print "not " if $v ne q{3}; print 'ok 2725 - (.3 / 0.1) --> ('.$v.")
";
$v = (.3 / 0.2); print "not " if $v ne q{1.5}; print 'ok 2726 - (.3 / 0.2) --> ('.$v.")
";
$v = (.3 / 0.3); print "not " if $v ne q{1}; print 'ok 2727 - (.3 / 0.3) --> ('.$v.")
";
$v = (.3 / -0.1); print "not " if $v ne q{-3}; print 'ok 2728 - (.3 / -0.1) --> ('.$v.")
";
$v = (.3 / -0.2); print "not " if $v ne q{-1.5}; print 'ok 2729 - (.3 / -0.2) --> ('.$v.")
";
$v = (.3 / -0.3); print "not " if $v ne q{-1}; print 'ok 2730 - (.3 / -0.3) --> ('.$v.")
";
$v = (.3 / 0.1e1); print "not " if $v ne q{0.3}; print 'ok 2731 - (.3 / 0.1e1) --> ('.$v.")
";
$v = (.3 / 0.2e1); print "not " if $v ne q{0.15}; print 'ok 2732 - (.3 / 0.2e1) --> ('.$v.")
";
$v = (.3 / 0.3e1); print "not " if $v ne q{0.1}; print 'ok 2733 - (.3 / 0.3e1) --> ('.$v.")
";
$v = (.3 / -0.1e1); print "not " if $v ne q{-0.3}; print 'ok 2734 - (.3 / -0.1e1) --> ('.$v.")
";
$v = (.3 / -0.2e1); print "not " if $v ne q{-0.15}; print 'ok 2735 - (.3 / -0.2e1) --> ('.$v.")
";
$v = (.3 / -0.3e1); print "not " if $v ne q{-0.1}; print 'ok 2736 - (.3 / -0.3e1) --> ('.$v.")
";
$v = (.3 / 10); print "not " if $v ne q{0.03}; print 'ok 2737 - (.3 / 10) --> ('.$v.")
";
$v = (.3 / 20); print "not " if $v ne q{0.015}; print 'ok 2738 - (.3 / 20) --> ('.$v.")
";
$v = (.3 / 30); print "not " if $v ne q{0.01}; print 'ok 2739 - (.3 / 30) --> ('.$v.")
";
$v = (.3 / -10); print "not " if $v ne q{-0.03}; print 'ok 2740 - (.3 / -10) --> ('.$v.")
";
$v = (.3 / -20); print "not " if $v ne q{-0.015}; print 'ok 2741 - (.3 / -20) --> ('.$v.")
";
$v = (.3 / -30); print "not " if $v ne q{-0.01}; print 'ok 2742 - (.3 / -30) --> ('.$v.")
";
$v = (.3 / @ab); print "not " if $v ne q{0.3}; print 'ok 2743 - (.3 / @ab) --> ('.$v.")
";
$v = (.3 / @ac); print "not " if $v ne q{0.1}; print 'ok 2744 - (.3 / @ac) --> ('.$v.")
";
$v = (-.0 / "1"); print "not " if $v ne q{0}; print 'ok 2745 - (-.0 / "1") --> ('.$v.")
";
$v = (-.0 / "2"); print "not " if $v ne q{0}; print 'ok 2746 - (-.0 / "2") --> ('.$v.")
";
$v = (-.0 / "3"); print "not " if $v ne q{0}; print 'ok 2747 - (-.0 / "3") --> ('.$v.")
";
$v = (-.0 / "-1"); print "not " if $v ne q{0}; print 'ok 2748 - (-.0 / "-1") --> ('.$v.")
";
$v = (-.0 / "-2"); print "not " if $v ne q{0}; print 'ok 2749 - (-.0 / "-2") --> ('.$v.")
";
$v = (-.0 / "-3"); print "not " if $v ne q{0}; print 'ok 2750 - (-.0 / "-3") --> ('.$v.")
";
$v = (-.0 / ".1"); print "not " if $v ne q{0}; print 'ok 2751 - (-.0 / ".1") --> ('.$v.")
";
$v = (-.0 / ".2"); print "not " if $v ne q{0}; print 'ok 2752 - (-.0 / ".2") --> ('.$v.")
";
$v = (-.0 / ".3"); print "not " if $v ne q{0}; print 'ok 2753 - (-.0 / ".3") --> ('.$v.")
";
$v = (-.0 / "-.1"); print "not " if $v ne q{0}; print 'ok 2754 - (-.0 / "-.1") --> ('.$v.")
";
$v = (-.0 / "-.2"); print "not " if $v ne q{0}; print 'ok 2755 - (-.0 / "-.2") --> ('.$v.")
";
$v = (-.0 / "-.3"); print "not " if $v ne q{0}; print 'ok 2756 - (-.0 / "-.3") --> ('.$v.")
";
$v = (-.0 / "0.1"); print "not " if $v ne q{0}; print 'ok 2757 - (-.0 / "0.1") --> ('.$v.")
";
$v = (-.0 / "0.2"); print "not " if $v ne q{0}; print 'ok 2758 - (-.0 / "0.2") --> ('.$v.")
";
$v = (-.0 / "0.3"); print "not " if $v ne q{0}; print 'ok 2759 - (-.0 / "0.3") --> ('.$v.")
";
$v = (-.0 / "-0.1"); print "not " if $v ne q{0}; print 'ok 2760 - (-.0 / "-0.1") --> ('.$v.")
";
$v = (-.0 / "-0.2"); print "not " if $v ne q{0}; print 'ok 2761 - (-.0 / "-0.2") --> ('.$v.")
";
$v = (-.0 / "-0.3"); print "not " if $v ne q{0}; print 'ok 2762 - (-.0 / "-0.3") --> ('.$v.")
";
$v = (-.0 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 2763 - (-.0 / "0.1e1") --> ('.$v.")
";
$v = (-.0 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 2764 - (-.0 / "0.2e1") --> ('.$v.")
";
$v = (-.0 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 2765 - (-.0 / "0.3e1") --> ('.$v.")
";
$v = (-.0 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 2766 - (-.0 / "-0.1e1") --> ('.$v.")
";
$v = (-.0 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 2767 - (-.0 / "-0.2e1") --> ('.$v.")
";
$v = (-.0 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 2768 - (-.0 / "-0.3e1") --> ('.$v.")
";
$v = (-.0 / "10"); print "not " if $v ne q{0}; print 'ok 2769 - (-.0 / "10") --> ('.$v.")
";
$v = (-.0 / "20"); print "not " if $v ne q{0}; print 'ok 2770 - (-.0 / "20") --> ('.$v.")
";
$v = (-.0 / "30"); print "not " if $v ne q{0}; print 'ok 2771 - (-.0 / "30") --> ('.$v.")
";
$v = (-.0 / "-10"); print "not " if $v ne q{0}; print 'ok 2772 - (-.0 / "-10") --> ('.$v.")
";
$v = (-.0 / "-20"); print "not " if $v ne q{0}; print 'ok 2773 - (-.0 / "-20") --> ('.$v.")
";
$v = (-.0 / "-30"); print "not " if $v ne q{0}; print 'ok 2774 - (-.0 / "-30") --> ('.$v.")
";
$v = (-.0 / .1); print "not " if $v ne q{0}; print 'ok 2775 - (-.0 / .1) --> ('.$v.")
";
$v = (-.0 / .2); print "not " if $v ne q{0}; print 'ok 2776 - (-.0 / .2) --> ('.$v.")
";
$v = (-.0 / .3); print "not " if $v ne q{0}; print 'ok 2777 - (-.0 / .3) --> ('.$v.")
";
$v = (-.0 / -.1); print "not " if $v ne q{0}; print 'ok 2778 - (-.0 / -.1) --> ('.$v.")
";
$v = (-.0 / -.2); print "not " if $v ne q{0}; print 'ok 2779 - (-.0 / -.2) --> ('.$v.")
";
$v = (-.0 / -.3); print "not " if $v ne q{0}; print 'ok 2780 - (-.0 / -.3) --> ('.$v.")
";
$v = (-.0 / 0.1); print "not " if $v ne q{0}; print 'ok 2781 - (-.0 / 0.1) --> ('.$v.")
";
$v = (-.0 / 0.2); print "not " if $v ne q{0}; print 'ok 2782 - (-.0 / 0.2) --> ('.$v.")
";
$v = (-.0 / 0.3); print "not " if $v ne q{0}; print 'ok 2783 - (-.0 / 0.3) --> ('.$v.")
";
$v = (-.0 / -0.1); print "not " if $v ne q{0}; print 'ok 2784 - (-.0 / -0.1) --> ('.$v.")
";
$v = (-.0 / -0.2); print "not " if $v ne q{0}; print 'ok 2785 - (-.0 / -0.2) --> ('.$v.")
";
$v = (-.0 / -0.3); print "not " if $v ne q{0}; print 'ok 2786 - (-.0 / -0.3) --> ('.$v.")
";
$v = (-.0 / 0.1e1); print "not " if $v ne q{0}; print 'ok 2787 - (-.0 / 0.1e1) --> ('.$v.")
";
$v = (-.0 / 0.2e1); print "not " if $v ne q{0}; print 'ok 2788 - (-.0 / 0.2e1) --> ('.$v.")
";
$v = (-.0 / 0.3e1); print "not " if $v ne q{0}; print 'ok 2789 - (-.0 / 0.3e1) --> ('.$v.")
";
$v = (-.0 / -0.1e1); print "not " if $v ne q{0}; print 'ok 2790 - (-.0 / -0.1e1) --> ('.$v.")
";
$v = (-.0 / -0.2e1); print "not " if $v ne q{0}; print 'ok 2791 - (-.0 / -0.2e1) --> ('.$v.")
";
$v = (-.0 / -0.3e1); print "not " if $v ne q{0}; print 'ok 2792 - (-.0 / -0.3e1) --> ('.$v.")
";
$v = (-.0 / 10); print "not " if $v ne q{0}; print 'ok 2793 - (-.0 / 10) --> ('.$v.")
";
$v = (-.0 / 20); print "not " if $v ne q{0}; print 'ok 2794 - (-.0 / 20) --> ('.$v.")
";
$v = (-.0 / 30); print "not " if $v ne q{0}; print 'ok 2795 - (-.0 / 30) --> ('.$v.")
";
$v = (-.0 / -10); print "not " if $v ne q{0}; print 'ok 2796 - (-.0 / -10) --> ('.$v.")
";
$v = (-.0 / -20); print "not " if $v ne q{0}; print 'ok 2797 - (-.0 / -20) --> ('.$v.")
";
$v = (-.0 / -30); print "not " if $v ne q{0}; print 'ok 2798 - (-.0 / -30) --> ('.$v.")
";
$v = (-.0 / @ab); print "not " if $v ne q{0}; print 'ok 2799 - (-.0 / @ab) --> ('.$v.")
";
$v = (-.0 / @ac); print "not " if $v ne q{0}; print 'ok 2800 - (-.0 / @ac) --> ('.$v.")
";
$v = (-.1 / "1"); print "not " if $v ne q{-0.1}; print 'ok 2801 - (-.1 / "1") --> ('.$v.")
";
$v = (-.1 / "2"); print "not " if $v ne q{-0.05}; print 'ok 2802 - (-.1 / "2") --> ('.$v.")
";
$v = (-.1 / "3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2803 - (-.1 / "3") --> ('.$v.")
";
$v = (-.1 / "-1"); print "not " if $v ne q{0.1}; print 'ok 2804 - (-.1 / "-1") --> ('.$v.")
";
$v = (-.1 / "-2"); print "not " if $v ne q{0.05}; print 'ok 2805 - (-.1 / "-2") --> ('.$v.")
";
$v = (-.1 / "-3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 2806 - (-.1 / "-3") --> ('.$v.")
";
$v = (-.1 / ".1"); print "not " if $v ne q{-1}; print 'ok 2807 - (-.1 / ".1") --> ('.$v.")
";
$v = (-.1 / ".2"); print "not " if $v ne q{-0.5}; print 'ok 2808 - (-.1 / ".2") --> ('.$v.")
";
$v = (-.1 / ".3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2809 - (-.1 / ".3") --> ('.$v.")
";
$v = (-.1 / "-.1"); print "not " if $v ne q{1}; print 'ok 2810 - (-.1 / "-.1") --> ('.$v.")
";
$v = (-.1 / "-.2"); print "not " if $v ne q{0.5}; print 'ok 2811 - (-.1 / "-.2") --> ('.$v.")
";
$v = (-.1 / "-.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 2812 - (-.1 / "-.3") --> ('.$v.")
";
$v = (-.1 / "0.1"); print "not " if $v ne q{-1}; print 'ok 2813 - (-.1 / "0.1") --> ('.$v.")
";
$v = (-.1 / "0.2"); print "not " if $v ne q{-0.5}; print 'ok 2814 - (-.1 / "0.2") --> ('.$v.")
";
$v = (-.1 / "0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 2815 - (-.1 / "0.3") --> ('.$v.")
";
$v = (-.1 / "-0.1"); print "not " if $v ne q{1}; print 'ok 2816 - (-.1 / "-0.1") --> ('.$v.")
";
$v = (-.1 / "-0.2"); print "not " if $v ne q{0.5}; print 'ok 2817 - (-.1 / "-0.2") --> ('.$v.")
";
$v = (-.1 / "-0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 2818 - (-.1 / "-0.3") --> ('.$v.")
";
$v = (-.1 / "0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 2819 - (-.1 / "0.1e1") --> ('.$v.")
";
$v = (-.1 / "0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 2820 - (-.1 / "0.2e1") --> ('.$v.")
";
$v = (-.1 / "0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2821 - (-.1 / "0.3e1") --> ('.$v.")
";
$v = (-.1 / "-0.1e1"); print "not " if $v ne q{0.1}; print 'ok 2822 - (-.1 / "-0.1e1") --> ('.$v.")
";
$v = (-.1 / "-0.2e1"); print "not " if $v ne q{0.05}; print 'ok 2823 - (-.1 / "-0.2e1") --> ('.$v.")
";
$v = (-.1 / "-0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 2824 - (-.1 / "-0.3e1") --> ('.$v.")
";
$v = (-.1 / "10"); print "not " if $v ne q{-0.01}; print 'ok 2825 - (-.1 / "10") --> ('.$v.")
";
$v = (-.1 / "20"); print "not " if $v ne q{-0.005}; print 'ok 2826 - (-.1 / "20") --> ('.$v.")
";
$v = (-.1 / "30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 2827 - (-.1 / "30") --> ('.$v.")
";
$v = (-.1 / "-10"); print "not " if $v ne q{0.01}; print 'ok 2828 - (-.1 / "-10") --> ('.$v.")
";
$v = (-.1 / "-20"); print "not " if $v ne q{0.005}; print 'ok 2829 - (-.1 / "-20") --> ('.$v.")
";
$v = (-.1 / "-30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 2830 - (-.1 / "-30") --> ('.$v.")
";
$v = (-.1 / .1); print "not " if $v ne q{-1}; print 'ok 2831 - (-.1 / .1) --> ('.$v.")
";
$v = (-.1 / .2); print "not " if $v ne q{-0.5}; print 'ok 2832 - (-.1 / .2) --> ('.$v.")
";
$v = (-.1 / .3); print "not " if $v ne q{-0.333333333333333}; print 'ok 2833 - (-.1 / .3) --> ('.$v.")
";
$v = (-.1 / -.1); print "not " if $v ne q{1}; print 'ok 2834 - (-.1 / -.1) --> ('.$v.")
";
$v = (-.1 / -.2); print "not " if $v ne q{0.5}; print 'ok 2835 - (-.1 / -.2) --> ('.$v.")
";
$v = (-.1 / -.3); print "not " if $v ne q{0.333333333333333}; print 'ok 2836 - (-.1 / -.3) --> ('.$v.")
";
$v = (-.1 / 0.1); print "not " if $v ne q{-1}; print 'ok 2837 - (-.1 / 0.1) --> ('.$v.")
";
$v = (-.1 / 0.2); print "not " if $v ne q{-0.5}; print 'ok 2838 - (-.1 / 0.2) --> ('.$v.")
";
$v = (-.1 / 0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 2839 - (-.1 / 0.3) --> ('.$v.")
";
$v = (-.1 / -0.1); print "not " if $v ne q{1}; print 'ok 2840 - (-.1 / -0.1) --> ('.$v.")
";
$v = (-.1 / -0.2); print "not " if $v ne q{0.5}; print 'ok 2841 - (-.1 / -0.2) --> ('.$v.")
";
$v = (-.1 / -0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 2842 - (-.1 / -0.3) --> ('.$v.")
";
$v = (-.1 / 0.1e1); print "not " if $v ne q{-0.1}; print 'ok 2843 - (-.1 / 0.1e1) --> ('.$v.")
";
$v = (-.1 / 0.2e1); print "not " if $v ne q{-0.05}; print 'ok 2844 - (-.1 / 0.2e1) --> ('.$v.")
";
$v = (-.1 / 0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2845 - (-.1 / 0.3e1) --> ('.$v.")
";
$v = (-.1 / -0.1e1); print "not " if $v ne q{0.1}; print 'ok 2846 - (-.1 / -0.1e1) --> ('.$v.")
";
$v = (-.1 / -0.2e1); print "not " if $v ne q{0.05}; print 'ok 2847 - (-.1 / -0.2e1) --> ('.$v.")
";
$v = (-.1 / -0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 2848 - (-.1 / -0.3e1) --> ('.$v.")
";
$v = (-.1 / 10); print "not " if $v ne q{-0.01}; print 'ok 2849 - (-.1 / 10) --> ('.$v.")
";
$v = (-.1 / 20); print "not " if $v ne q{-0.005}; print 'ok 2850 - (-.1 / 20) --> ('.$v.")
";
$v = (-.1 / 30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 2851 - (-.1 / 30) --> ('.$v.")
";
$v = (-.1 / -10); print "not " if $v ne q{0.01}; print 'ok 2852 - (-.1 / -10) --> ('.$v.")
";
$v = (-.1 / -20); print "not " if $v ne q{0.005}; print 'ok 2853 - (-.1 / -20) --> ('.$v.")
";
$v = (-.1 / -30); print "not " if $v ne q{0.00333333333333333}; print 'ok 2854 - (-.1 / -30) --> ('.$v.")
";
$v = (-.1 / @ab); print "not " if $v ne q{-0.1}; print 'ok 2855 - (-.1 / @ab) --> ('.$v.")
";
$v = (-.1 / @ac); print "not " if $v ne q{-0.0333333333333333}; print 'ok 2856 - (-.1 / @ac) --> ('.$v.")
";
$v = (-.2 / "1"); print "not " if $v ne q{-0.2}; print 'ok 2857 - (-.2 / "1") --> ('.$v.")
";
$v = (-.2 / "2"); print "not " if $v ne q{-0.1}; print 'ok 2858 - (-.2 / "2") --> ('.$v.")
";
$v = (-.2 / "3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2859 - (-.2 / "3") --> ('.$v.")
";
$v = (-.2 / "-1"); print "not " if $v ne q{0.2}; print 'ok 2860 - (-.2 / "-1") --> ('.$v.")
";
$v = (-.2 / "-2"); print "not " if $v ne q{0.1}; print 'ok 2861 - (-.2 / "-2") --> ('.$v.")
";
$v = (-.2 / "-3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 2862 - (-.2 / "-3") --> ('.$v.")
";
$v = (-.2 / ".1"); print "not " if $v ne q{-2}; print 'ok 2863 - (-.2 / ".1") --> ('.$v.")
";
$v = (-.2 / ".2"); print "not " if $v ne q{-1}; print 'ok 2864 - (-.2 / ".2") --> ('.$v.")
";
$v = (-.2 / ".3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2865 - (-.2 / ".3") --> ('.$v.")
";
$v = (-.2 / "-.1"); print "not " if $v ne q{2}; print 'ok 2866 - (-.2 / "-.1") --> ('.$v.")
";
$v = (-.2 / "-.2"); print "not " if $v ne q{1}; print 'ok 2867 - (-.2 / "-.2") --> ('.$v.")
";
$v = (-.2 / "-.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 2868 - (-.2 / "-.3") --> ('.$v.")
";
$v = (-.2 / "0.1"); print "not " if $v ne q{-2}; print 'ok 2869 - (-.2 / "0.1") --> ('.$v.")
";
$v = (-.2 / "0.2"); print "not " if $v ne q{-1}; print 'ok 2870 - (-.2 / "0.2") --> ('.$v.")
";
$v = (-.2 / "0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 2871 - (-.2 / "0.3") --> ('.$v.")
";
$v = (-.2 / "-0.1"); print "not " if $v ne q{2}; print 'ok 2872 - (-.2 / "-0.1") --> ('.$v.")
";
$v = (-.2 / "-0.2"); print "not " if $v ne q{1}; print 'ok 2873 - (-.2 / "-0.2") --> ('.$v.")
";
$v = (-.2 / "-0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 2874 - (-.2 / "-0.3") --> ('.$v.")
";
$v = (-.2 / "0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 2875 - (-.2 / "0.1e1") --> ('.$v.")
";
$v = (-.2 / "0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 2876 - (-.2 / "0.2e1") --> ('.$v.")
";
$v = (-.2 / "0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2877 - (-.2 / "0.3e1") --> ('.$v.")
";
$v = (-.2 / "-0.1e1"); print "not " if $v ne q{0.2}; print 'ok 2878 - (-.2 / "-0.1e1") --> ('.$v.")
";
$v = (-.2 / "-0.2e1"); print "not " if $v ne q{0.1}; print 'ok 2879 - (-.2 / "-0.2e1") --> ('.$v.")
";
$v = (-.2 / "-0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 2880 - (-.2 / "-0.3e1") --> ('.$v.")
";
$v = (-.2 / "10"); print "not " if $v ne q{-0.02}; print 'ok 2881 - (-.2 / "10") --> ('.$v.")
";
$v = (-.2 / "20"); print "not " if $v ne q{-0.01}; print 'ok 2882 - (-.2 / "20") --> ('.$v.")
";
$v = (-.2 / "30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 2883 - (-.2 / "30") --> ('.$v.")
";
$v = (-.2 / "-10"); print "not " if $v ne q{0.02}; print 'ok 2884 - (-.2 / "-10") --> ('.$v.")
";
$v = (-.2 / "-20"); print "not " if $v ne q{0.01}; print 'ok 2885 - (-.2 / "-20") --> ('.$v.")
";
$v = (-.2 / "-30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 2886 - (-.2 / "-30") --> ('.$v.")
";
$v = (-.2 / .1); print "not " if $v ne q{-2}; print 'ok 2887 - (-.2 / .1) --> ('.$v.")
";
$v = (-.2 / .2); print "not " if $v ne q{-1}; print 'ok 2888 - (-.2 / .2) --> ('.$v.")
";
$v = (-.2 / .3); print "not " if $v ne q{-0.666666666666667}; print 'ok 2889 - (-.2 / .3) --> ('.$v.")
";
$v = (-.2 / -.1); print "not " if $v ne q{2}; print 'ok 2890 - (-.2 / -.1) --> ('.$v.")
";
$v = (-.2 / -.2); print "not " if $v ne q{1}; print 'ok 2891 - (-.2 / -.2) --> ('.$v.")
";
$v = (-.2 / -.3); print "not " if $v ne q{0.666666666666667}; print 'ok 2892 - (-.2 / -.3) --> ('.$v.")
";
$v = (-.2 / 0.1); print "not " if $v ne q{-2}; print 'ok 2893 - (-.2 / 0.1) --> ('.$v.")
";
$v = (-.2 / 0.2); print "not " if $v ne q{-1}; print 'ok 2894 - (-.2 / 0.2) --> ('.$v.")
";
$v = (-.2 / 0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 2895 - (-.2 / 0.3) --> ('.$v.")
";
$v = (-.2 / -0.1); print "not " if $v ne q{2}; print 'ok 2896 - (-.2 / -0.1) --> ('.$v.")
";
$v = (-.2 / -0.2); print "not " if $v ne q{1}; print 'ok 2897 - (-.2 / -0.2) --> ('.$v.")
";
$v = (-.2 / -0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 2898 - (-.2 / -0.3) --> ('.$v.")
";
$v = (-.2 / 0.1e1); print "not " if $v ne q{-0.2}; print 'ok 2899 - (-.2 / 0.1e1) --> ('.$v.")
";
$v = (-.2 / 0.2e1); print "not " if $v ne q{-0.1}; print 'ok 2900 - (-.2 / 0.2e1) --> ('.$v.")
";
$v = (-.2 / 0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2901 - (-.2 / 0.3e1) --> ('.$v.")
";
$v = (-.2 / -0.1e1); print "not " if $v ne q{0.2}; print 'ok 2902 - (-.2 / -0.1e1) --> ('.$v.")
";
$v = (-.2 / -0.2e1); print "not " if $v ne q{0.1}; print 'ok 2903 - (-.2 / -0.2e1) --> ('.$v.")
";
$v = (-.2 / -0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 2904 - (-.2 / -0.3e1) --> ('.$v.")
";
$v = (-.2 / 10); print "not " if $v ne q{-0.02}; print 'ok 2905 - (-.2 / 10) --> ('.$v.")
";
$v = (-.2 / 20); print "not " if $v ne q{-0.01}; print 'ok 2906 - (-.2 / 20) --> ('.$v.")
";
$v = (-.2 / 30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 2907 - (-.2 / 30) --> ('.$v.")
";
$v = (-.2 / -10); print "not " if $v ne q{0.02}; print 'ok 2908 - (-.2 / -10) --> ('.$v.")
";
$v = (-.2 / -20); print "not " if $v ne q{0.01}; print 'ok 2909 - (-.2 / -20) --> ('.$v.")
";
$v = (-.2 / -30); print "not " if $v ne q{0.00666666666666667}; print 'ok 2910 - (-.2 / -30) --> ('.$v.")
";
$v = (-.2 / @ab); print "not " if $v ne q{-0.2}; print 'ok 2911 - (-.2 / @ab) --> ('.$v.")
";
$v = (-.2 / @ac); print "not " if $v ne q{-0.0666666666666667}; print 'ok 2912 - (-.2 / @ac) --> ('.$v.")
";
$v = (-.3 / "1"); print "not " if $v ne q{-0.3}; print 'ok 2913 - (-.3 / "1") --> ('.$v.")
";
$v = (-.3 / "2"); print "not " if $v ne q{-0.15}; print 'ok 2914 - (-.3 / "2") --> ('.$v.")
";
$v = (-.3 / "3"); print "not " if $v ne q{-0.1}; print 'ok 2915 - (-.3 / "3") --> ('.$v.")
";
$v = (-.3 / "-1"); print "not " if $v ne q{0.3}; print 'ok 2916 - (-.3 / "-1") --> ('.$v.")
";
$v = (-.3 / "-2"); print "not " if $v ne q{0.15}; print 'ok 2917 - (-.3 / "-2") --> ('.$v.")
";
$v = (-.3 / "-3"); print "not " if $v ne q{0.1}; print 'ok 2918 - (-.3 / "-3") --> ('.$v.")
";
$v = (-.3 / ".1"); print "not " if $v ne q{-3}; print 'ok 2919 - (-.3 / ".1") --> ('.$v.")
";
$v = (-.3 / ".2"); print "not " if $v ne q{-1.5}; print 'ok 2920 - (-.3 / ".2") --> ('.$v.")
";
$v = (-.3 / ".3"); print "not " if $v ne q{-1}; print 'ok 2921 - (-.3 / ".3") --> ('.$v.")
";
$v = (-.3 / "-.1"); print "not " if $v ne q{3}; print 'ok 2922 - (-.3 / "-.1") --> ('.$v.")
";
$v = (-.3 / "-.2"); print "not " if $v ne q{1.5}; print 'ok 2923 - (-.3 / "-.2") --> ('.$v.")
";
$v = (-.3 / "-.3"); print "not " if $v ne q{1}; print 'ok 2924 - (-.3 / "-.3") --> ('.$v.")
";
$v = (-.3 / "0.1"); print "not " if $v ne q{-3}; print 'ok 2925 - (-.3 / "0.1") --> ('.$v.")
";
$v = (-.3 / "0.2"); print "not " if $v ne q{-1.5}; print 'ok 2926 - (-.3 / "0.2") --> ('.$v.")
";
$v = (-.3 / "0.3"); print "not " if $v ne q{-1}; print 'ok 2927 - (-.3 / "0.3") --> ('.$v.")
";
$v = (-.3 / "-0.1"); print "not " if $v ne q{3}; print 'ok 2928 - (-.3 / "-0.1") --> ('.$v.")
";
$v = (-.3 / "-0.2"); print "not " if $v ne q{1.5}; print 'ok 2929 - (-.3 / "-0.2") --> ('.$v.")
";
$v = (-.3 / "-0.3"); print "not " if $v ne q{1}; print 'ok 2930 - (-.3 / "-0.3") --> ('.$v.")
";
$v = (-.3 / "0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 2931 - (-.3 / "0.1e1") --> ('.$v.")
";
$v = (-.3 / "0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 2932 - (-.3 / "0.2e1") --> ('.$v.")
";
$v = (-.3 / "0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 2933 - (-.3 / "0.3e1") --> ('.$v.")
";
$v = (-.3 / "-0.1e1"); print "not " if $v ne q{0.3}; print 'ok 2934 - (-.3 / "-0.1e1") --> ('.$v.")
";
$v = (-.3 / "-0.2e1"); print "not " if $v ne q{0.15}; print 'ok 2935 - (-.3 / "-0.2e1") --> ('.$v.")
";
$v = (-.3 / "-0.3e1"); print "not " if $v ne q{0.1}; print 'ok 2936 - (-.3 / "-0.3e1") --> ('.$v.")
";
$v = (-.3 / "10"); print "not " if $v ne q{-0.03}; print 'ok 2937 - (-.3 / "10") --> ('.$v.")
";
$v = (-.3 / "20"); print "not " if $v ne q{-0.015}; print 'ok 2938 - (-.3 / "20") --> ('.$v.")
";
$v = (-.3 / "30"); print "not " if $v ne q{-0.01}; print 'ok 2939 - (-.3 / "30") --> ('.$v.")
";
$v = (-.3 / "-10"); print "not " if $v ne q{0.03}; print 'ok 2940 - (-.3 / "-10") --> ('.$v.")
";
$v = (-.3 / "-20"); print "not " if $v ne q{0.015}; print 'ok 2941 - (-.3 / "-20") --> ('.$v.")
";
$v = (-.3 / "-30"); print "not " if $v ne q{0.01}; print 'ok 2942 - (-.3 / "-30") --> ('.$v.")
";
$v = (-.3 / .1); print "not " if $v ne q{-3}; print 'ok 2943 - (-.3 / .1) --> ('.$v.")
";
$v = (-.3 / .2); print "not " if $v ne q{-1.5}; print 'ok 2944 - (-.3 / .2) --> ('.$v.")
";
$v = (-.3 / .3); print "not " if $v ne q{-1}; print 'ok 2945 - (-.3 / .3) --> ('.$v.")
";
$v = (-.3 / -.1); print "not " if $v ne q{3}; print 'ok 2946 - (-.3 / -.1) --> ('.$v.")
";
$v = (-.3 / -.2); print "not " if $v ne q{1.5}; print 'ok 2947 - (-.3 / -.2) --> ('.$v.")
";
$v = (-.3 / -.3); print "not " if $v ne q{1}; print 'ok 2948 - (-.3 / -.3) --> ('.$v.")
";
$v = (-.3 / 0.1); print "not " if $v ne q{-3}; print 'ok 2949 - (-.3 / 0.1) --> ('.$v.")
";
$v = (-.3 / 0.2); print "not " if $v ne q{-1.5}; print 'ok 2950 - (-.3 / 0.2) --> ('.$v.")
";
$v = (-.3 / 0.3); print "not " if $v ne q{-1}; print 'ok 2951 - (-.3 / 0.3) --> ('.$v.")
";
$v = (-.3 / -0.1); print "not " if $v ne q{3}; print 'ok 2952 - (-.3 / -0.1) --> ('.$v.")
";
$v = (-.3 / -0.2); print "not " if $v ne q{1.5}; print 'ok 2953 - (-.3 / -0.2) --> ('.$v.")
";
$v = (-.3 / -0.3); print "not " if $v ne q{1}; print 'ok 2954 - (-.3 / -0.3) --> ('.$v.")
";
$v = (-.3 / 0.1e1); print "not " if $v ne q{-0.3}; print 'ok 2955 - (-.3 / 0.1e1) --> ('.$v.")
";
$v = (-.3 / 0.2e1); print "not " if $v ne q{-0.15}; print 'ok 2956 - (-.3 / 0.2e1) --> ('.$v.")
";
$v = (-.3 / 0.3e1); print "not " if $v ne q{-0.1}; print 'ok 2957 - (-.3 / 0.3e1) --> ('.$v.")
";
$v = (-.3 / -0.1e1); print "not " if $v ne q{0.3}; print 'ok 2958 - (-.3 / -0.1e1) --> ('.$v.")
";
$v = (-.3 / -0.2e1); print "not " if $v ne q{0.15}; print 'ok 2959 - (-.3 / -0.2e1) --> ('.$v.")
";
$v = (-.3 / -0.3e1); print "not " if $v ne q{0.1}; print 'ok 2960 - (-.3 / -0.3e1) --> ('.$v.")
";
$v = (-.3 / 10); print "not " if $v ne q{-0.03}; print 'ok 2961 - (-.3 / 10) --> ('.$v.")
";
$v = (-.3 / 20); print "not " if $v ne q{-0.015}; print 'ok 2962 - (-.3 / 20) --> ('.$v.")
";
$v = (-.3 / 30); print "not " if $v ne q{-0.01}; print 'ok 2963 - (-.3 / 30) --> ('.$v.")
";
$v = (-.3 / -10); print "not " if $v ne q{0.03}; print 'ok 2964 - (-.3 / -10) --> ('.$v.")
";
$v = (-.3 / -20); print "not " if $v ne q{0.015}; print 'ok 2965 - (-.3 / -20) --> ('.$v.")
";
$v = (-.3 / -30); print "not " if $v ne q{0.01}; print 'ok 2966 - (-.3 / -30) --> ('.$v.")
";
$v = (-.3 / @ab); print "not " if $v ne q{-0.3}; print 'ok 2967 - (-.3 / @ab) --> ('.$v.")
";
$v = (-.3 / @ac); print "not " if $v ne q{-0.1}; print 'ok 2968 - (-.3 / @ac) --> ('.$v.")
";
$v = (0. / "1"); print "not " if $v ne q{0}; print 'ok 2969 - (0. / "1") --> ('.$v.")
";
$v = (0. / "2"); print "not " if $v ne q{0}; print 'ok 2970 - (0. / "2") --> ('.$v.")
";
$v = (0. / "3"); print "not " if $v ne q{0}; print 'ok 2971 - (0. / "3") --> ('.$v.")
";
$v = (0. / "-1"); print "not " if $v ne q{0}; print 'ok 2972 - (0. / "-1") --> ('.$v.")
";
$v = (0. / "-2"); print "not " if $v ne q{0}; print 'ok 2973 - (0. / "-2") --> ('.$v.")
";
$v = (0. / "-3"); print "not " if $v ne q{0}; print 'ok 2974 - (0. / "-3") --> ('.$v.")
";
$v = (0. / ".1"); print "not " if $v ne q{0}; print 'ok 2975 - (0. / ".1") --> ('.$v.")
";
$v = (0. / ".2"); print "not " if $v ne q{0}; print 'ok 2976 - (0. / ".2") --> ('.$v.")
";
$v = (0. / ".3"); print "not " if $v ne q{0}; print 'ok 2977 - (0. / ".3") --> ('.$v.")
";
$v = (0. / "-.1"); print "not " if $v ne q{0}; print 'ok 2978 - (0. / "-.1") --> ('.$v.")
";
$v = (0. / "-.2"); print "not " if $v ne q{0}; print 'ok 2979 - (0. / "-.2") --> ('.$v.")
";
$v = (0. / "-.3"); print "not " if $v ne q{0}; print 'ok 2980 - (0. / "-.3") --> ('.$v.")
";
$v = (0. / "0.1"); print "not " if $v ne q{0}; print 'ok 2981 - (0. / "0.1") --> ('.$v.")
";
$v = (0. / "0.2"); print "not " if $v ne q{0}; print 'ok 2982 - (0. / "0.2") --> ('.$v.")
";
$v = (0. / "0.3"); print "not " if $v ne q{0}; print 'ok 2983 - (0. / "0.3") --> ('.$v.")
";
$v = (0. / "-0.1"); print "not " if $v ne q{0}; print 'ok 2984 - (0. / "-0.1") --> ('.$v.")
";
$v = (0. / "-0.2"); print "not " if $v ne q{0}; print 'ok 2985 - (0. / "-0.2") --> ('.$v.")
";
$v = (0. / "-0.3"); print "not " if $v ne q{0}; print 'ok 2986 - (0. / "-0.3") --> ('.$v.")
";
$v = (0. / "0.1e1"); print "not " if $v ne q{0}; print 'ok 2987 - (0. / "0.1e1") --> ('.$v.")
";
$v = (0. / "0.2e1"); print "not " if $v ne q{0}; print 'ok 2988 - (0. / "0.2e1") --> ('.$v.")
";
$v = (0. / "0.3e1"); print "not " if $v ne q{0}; print 'ok 2989 - (0. / "0.3e1") --> ('.$v.")
";
$v = (0. / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 2990 - (0. / "-0.1e1") --> ('.$v.")
";
$v = (0. / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 2991 - (0. / "-0.2e1") --> ('.$v.")
";
$v = (0. / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 2992 - (0. / "-0.3e1") --> ('.$v.")
";
$v = (0. / "10"); print "not " if $v ne q{0}; print 'ok 2993 - (0. / "10") --> ('.$v.")
";
$v = (0. / "20"); print "not " if $v ne q{0}; print 'ok 2994 - (0. / "20") --> ('.$v.")
";
$v = (0. / "30"); print "not " if $v ne q{0}; print 'ok 2995 - (0. / "30") --> ('.$v.")
";
$v = (0. / "-10"); print "not " if $v ne q{0}; print 'ok 2996 - (0. / "-10") --> ('.$v.")
";
$v = (0. / "-20"); print "not " if $v ne q{0}; print 'ok 2997 - (0. / "-20") --> ('.$v.")
";
$v = (0. / "-30"); print "not " if $v ne q{0}; print 'ok 2998 - (0. / "-30") --> ('.$v.")
";
$v = (0. / .1); print "not " if $v ne q{0}; print 'ok 2999 - (0. / .1) --> ('.$v.")
";
$v = (0. / .2); print "not " if $v ne q{0}; print 'ok 3000 - (0. / .2) --> ('.$v.")
";
$v = (0. / .3); print "not " if $v ne q{0}; print 'ok 3001 - (0. / .3) --> ('.$v.")
";
$v = (0. / -.1); print "not " if $v ne q{0}; print 'ok 3002 - (0. / -.1) --> ('.$v.")
";
$v = (0. / -.2); print "not " if $v ne q{0}; print 'ok 3003 - (0. / -.2) --> ('.$v.")
";
$v = (0. / -.3); print "not " if $v ne q{0}; print 'ok 3004 - (0. / -.3) --> ('.$v.")
";
$v = (0. / 0.1); print "not " if $v ne q{0}; print 'ok 3005 - (0. / 0.1) --> ('.$v.")
";
$v = (0. / 0.2); print "not " if $v ne q{0}; print 'ok 3006 - (0. / 0.2) --> ('.$v.")
";
$v = (0. / 0.3); print "not " if $v ne q{0}; print 'ok 3007 - (0. / 0.3) --> ('.$v.")
";
$v = (0. / -0.1); print "not " if $v ne q{0}; print 'ok 3008 - (0. / -0.1) --> ('.$v.")
";
$v = (0. / -0.2); print "not " if $v ne q{0}; print 'ok 3009 - (0. / -0.2) --> ('.$v.")
";
$v = (0. / -0.3); print "not " if $v ne q{0}; print 'ok 3010 - (0. / -0.3) --> ('.$v.")
";
$v = (0. / 0.1e1); print "not " if $v ne q{0}; print 'ok 3011 - (0. / 0.1e1) --> ('.$v.")
";
$v = (0. / 0.2e1); print "not " if $v ne q{0}; print 'ok 3012 - (0. / 0.2e1) --> ('.$v.")
";
$v = (0. / 0.3e1); print "not " if $v ne q{0}; print 'ok 3013 - (0. / 0.3e1) --> ('.$v.")
";
$v = (0. / -0.1e1); print "not " if $v ne q{0}; print 'ok 3014 - (0. / -0.1e1) --> ('.$v.")
";
$v = (0. / -0.2e1); print "not " if $v ne q{0}; print 'ok 3015 - (0. / -0.2e1) --> ('.$v.")
";
$v = (0. / -0.3e1); print "not " if $v ne q{0}; print 'ok 3016 - (0. / -0.3e1) --> ('.$v.")
";
$v = (0. / 10); print "not " if $v ne q{0}; print 'ok 3017 - (0. / 10) --> ('.$v.")
";
$v = (0. / 20); print "not " if $v ne q{0}; print 'ok 3018 - (0. / 20) --> ('.$v.")
";
$v = (0. / 30); print "not " if $v ne q{0}; print 'ok 3019 - (0. / 30) --> ('.$v.")
";
$v = (0. / -10); print "not " if $v ne q{0}; print 'ok 3020 - (0. / -10) --> ('.$v.")
";
$v = (0. / -20); print "not " if $v ne q{0}; print 'ok 3021 - (0. / -20) --> ('.$v.")
";
$v = (0. / -30); print "not " if $v ne q{0}; print 'ok 3022 - (0. / -30) --> ('.$v.")
";
$v = (0. / @ab); print "not " if $v ne q{0}; print 'ok 3023 - (0. / @ab) --> ('.$v.")
";
$v = (0. / @ac); print "not " if $v ne q{0}; print 'ok 3024 - (0. / @ac) --> ('.$v.")
";
$v = (0.0 / "1"); print "not " if $v ne q{0}; print 'ok 3025 - (0.0 / "1") --> ('.$v.")
";
$v = (0.0 / "2"); print "not " if $v ne q{0}; print 'ok 3026 - (0.0 / "2") --> ('.$v.")
";
$v = (0.0 / "3"); print "not " if $v ne q{0}; print 'ok 3027 - (0.0 / "3") --> ('.$v.")
";
$v = (0.0 / "-1"); print "not " if $v ne q{0}; print 'ok 3028 - (0.0 / "-1") --> ('.$v.")
";
$v = (0.0 / "-2"); print "not " if $v ne q{0}; print 'ok 3029 - (0.0 / "-2") --> ('.$v.")
";
$v = (0.0 / "-3"); print "not " if $v ne q{0}; print 'ok 3030 - (0.0 / "-3") --> ('.$v.")
";
$v = (0.0 / ".1"); print "not " if $v ne q{0}; print 'ok 3031 - (0.0 / ".1") --> ('.$v.")
";
$v = (0.0 / ".2"); print "not " if $v ne q{0}; print 'ok 3032 - (0.0 / ".2") --> ('.$v.")
";
$v = (0.0 / ".3"); print "not " if $v ne q{0}; print 'ok 3033 - (0.0 / ".3") --> ('.$v.")
";
$v = (0.0 / "-.1"); print "not " if $v ne q{0}; print 'ok 3034 - (0.0 / "-.1") --> ('.$v.")
";
$v = (0.0 / "-.2"); print "not " if $v ne q{0}; print 'ok 3035 - (0.0 / "-.2") --> ('.$v.")
";
$v = (0.0 / "-.3"); print "not " if $v ne q{0}; print 'ok 3036 - (0.0 / "-.3") --> ('.$v.")
";
$v = (0.0 / "0.1"); print "not " if $v ne q{0}; print 'ok 3037 - (0.0 / "0.1") --> ('.$v.")
";
$v = (0.0 / "0.2"); print "not " if $v ne q{0}; print 'ok 3038 - (0.0 / "0.2") --> ('.$v.")
";
$v = (0.0 / "0.3"); print "not " if $v ne q{0}; print 'ok 3039 - (0.0 / "0.3") --> ('.$v.")
";
$v = (0.0 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3040 - (0.0 / "-0.1") --> ('.$v.")
";
$v = (0.0 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3041 - (0.0 / "-0.2") --> ('.$v.")
";
$v = (0.0 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3042 - (0.0 / "-0.3") --> ('.$v.")
";
$v = (0.0 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3043 - (0.0 / "0.1e1") --> ('.$v.")
";
$v = (0.0 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3044 - (0.0 / "0.2e1") --> ('.$v.")
";
$v = (0.0 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3045 - (0.0 / "0.3e1") --> ('.$v.")
";
$v = (0.0 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3046 - (0.0 / "-0.1e1") --> ('.$v.")
";
$v = (0.0 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3047 - (0.0 / "-0.2e1") --> ('.$v.")
";
$v = (0.0 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 3048 - (0.0 / "-0.3e1") --> ('.$v.")
";
$v = (0.0 / "10"); print "not " if $v ne q{0}; print 'ok 3049 - (0.0 / "10") --> ('.$v.")
";
$v = (0.0 / "20"); print "not " if $v ne q{0}; print 'ok 3050 - (0.0 / "20") --> ('.$v.")
";
$v = (0.0 / "30"); print "not " if $v ne q{0}; print 'ok 3051 - (0.0 / "30") --> ('.$v.")
";
$v = (0.0 / "-10"); print "not " if $v ne q{0}; print 'ok 3052 - (0.0 / "-10") --> ('.$v.")
";
$v = (0.0 / "-20"); print "not " if $v ne q{0}; print 'ok 3053 - (0.0 / "-20") --> ('.$v.")
";
$v = (0.0 / "-30"); print "not " if $v ne q{0}; print 'ok 3054 - (0.0 / "-30") --> ('.$v.")
";
$v = (0.0 / .1); print "not " if $v ne q{0}; print 'ok 3055 - (0.0 / .1) --> ('.$v.")
";
$v = (0.0 / .2); print "not " if $v ne q{0}; print 'ok 3056 - (0.0 / .2) --> ('.$v.")
";
$v = (0.0 / .3); print "not " if $v ne q{0}; print 'ok 3057 - (0.0 / .3) --> ('.$v.")
";
$v = (0.0 / -.1); print "not " if $v ne q{0}; print 'ok 3058 - (0.0 / -.1) --> ('.$v.")
";
$v = (0.0 / -.2); print "not " if $v ne q{0}; print 'ok 3059 - (0.0 / -.2) --> ('.$v.")
";
$v = (0.0 / -.3); print "not " if $v ne q{0}; print 'ok 3060 - (0.0 / -.3) --> ('.$v.")
";
$v = (0.0 / 0.1); print "not " if $v ne q{0}; print 'ok 3061 - (0.0 / 0.1) --> ('.$v.")
";
$v = (0.0 / 0.2); print "not " if $v ne q{0}; print 'ok 3062 - (0.0 / 0.2) --> ('.$v.")
";
$v = (0.0 / 0.3); print "not " if $v ne q{0}; print 'ok 3063 - (0.0 / 0.3) --> ('.$v.")
";
$v = (0.0 / -0.1); print "not " if $v ne q{0}; print 'ok 3064 - (0.0 / -0.1) --> ('.$v.")
";
$v = (0.0 / -0.2); print "not " if $v ne q{0}; print 'ok 3065 - (0.0 / -0.2) --> ('.$v.")
";
$v = (0.0 / -0.3); print "not " if $v ne q{0}; print 'ok 3066 - (0.0 / -0.3) --> ('.$v.")
";
$v = (0.0 / 0.1e1); print "not " if $v ne q{0}; print 'ok 3067 - (0.0 / 0.1e1) --> ('.$v.")
";
$v = (0.0 / 0.2e1); print "not " if $v ne q{0}; print 'ok 3068 - (0.0 / 0.2e1) --> ('.$v.")
";
$v = (0.0 / 0.3e1); print "not " if $v ne q{0}; print 'ok 3069 - (0.0 / 0.3e1) --> ('.$v.")
";
$v = (0.0 / -0.1e1); print "not " if $v ne q{0}; print 'ok 3070 - (0.0 / -0.1e1) --> ('.$v.")
";
$v = (0.0 / -0.2e1); print "not " if $v ne q{0}; print 'ok 3071 - (0.0 / -0.2e1) --> ('.$v.")
";
$v = (0.0 / -0.3e1); print "not " if $v ne q{0}; print 'ok 3072 - (0.0 / -0.3e1) --> ('.$v.")
";
$v = (0.0 / 10); print "not " if $v ne q{0}; print 'ok 3073 - (0.0 / 10) --> ('.$v.")
";
$v = (0.0 / 20); print "not " if $v ne q{0}; print 'ok 3074 - (0.0 / 20) --> ('.$v.")
";
$v = (0.0 / 30); print "not " if $v ne q{0}; print 'ok 3075 - (0.0 / 30) --> ('.$v.")
";
$v = (0.0 / -10); print "not " if $v ne q{0}; print 'ok 3076 - (0.0 / -10) --> ('.$v.")
";
$v = (0.0 / -20); print "not " if $v ne q{0}; print 'ok 3077 - (0.0 / -20) --> ('.$v.")
";
$v = (0.0 / -30); print "not " if $v ne q{0}; print 'ok 3078 - (0.0 / -30) --> ('.$v.")
";
$v = (0.0 / @ab); print "not " if $v ne q{0}; print 'ok 3079 - (0.0 / @ab) --> ('.$v.")
";
$v = (0.0 / @ac); print "not " if $v ne q{0}; print 'ok 3080 - (0.0 / @ac) --> ('.$v.")
";
$v = (0.1 / "1"); print "not " if $v ne q{0.1}; print 'ok 3081 - (0.1 / "1") --> ('.$v.")
";
$v = (0.1 / "2"); print "not " if $v ne q{0.05}; print 'ok 3082 - (0.1 / "2") --> ('.$v.")
";
$v = (0.1 / "3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3083 - (0.1 / "3") --> ('.$v.")
";
$v = (0.1 / "-1"); print "not " if $v ne q{-0.1}; print 'ok 3084 - (0.1 / "-1") --> ('.$v.")
";
$v = (0.1 / "-2"); print "not " if $v ne q{-0.05}; print 'ok 3085 - (0.1 / "-2") --> ('.$v.")
";
$v = (0.1 / "-3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3086 - (0.1 / "-3") --> ('.$v.")
";
$v = (0.1 / ".1"); print "not " if $v ne q{1}; print 'ok 3087 - (0.1 / ".1") --> ('.$v.")
";
$v = (0.1 / ".2"); print "not " if $v ne q{0.5}; print 'ok 3088 - (0.1 / ".2") --> ('.$v.")
";
$v = (0.1 / ".3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3089 - (0.1 / ".3") --> ('.$v.")
";
$v = (0.1 / "-.1"); print "not " if $v ne q{-1}; print 'ok 3090 - (0.1 / "-.1") --> ('.$v.")
";
$v = (0.1 / "-.2"); print "not " if $v ne q{-0.5}; print 'ok 3091 - (0.1 / "-.2") --> ('.$v.")
";
$v = (0.1 / "-.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3092 - (0.1 / "-.3") --> ('.$v.")
";
$v = (0.1 / "0.1"); print "not " if $v ne q{1}; print 'ok 3093 - (0.1 / "0.1") --> ('.$v.")
";
$v = (0.1 / "0.2"); print "not " if $v ne q{0.5}; print 'ok 3094 - (0.1 / "0.2") --> ('.$v.")
";
$v = (0.1 / "0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3095 - (0.1 / "0.3") --> ('.$v.")
";
$v = (0.1 / "-0.1"); print "not " if $v ne q{-1}; print 'ok 3096 - (0.1 / "-0.1") --> ('.$v.")
";
$v = (0.1 / "-0.2"); print "not " if $v ne q{-0.5}; print 'ok 3097 - (0.1 / "-0.2") --> ('.$v.")
";
$v = (0.1 / "-0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3098 - (0.1 / "-0.3") --> ('.$v.")
";
$v = (0.1 / "0.1e1"); print "not " if $v ne q{0.1}; print 'ok 3099 - (0.1 / "0.1e1") --> ('.$v.")
";
$v = (0.1 / "0.2e1"); print "not " if $v ne q{0.05}; print 'ok 3100 - (0.1 / "0.2e1") --> ('.$v.")
";
$v = (0.1 / "0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3101 - (0.1 / "0.3e1") --> ('.$v.")
";
$v = (0.1 / "-0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 3102 - (0.1 / "-0.1e1") --> ('.$v.")
";
$v = (0.1 / "-0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 3103 - (0.1 / "-0.2e1") --> ('.$v.")
";
$v = (0.1 / "-0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3104 - (0.1 / "-0.3e1") --> ('.$v.")
";
$v = (0.1 / "10"); print "not " if $v ne q{0.01}; print 'ok 3105 - (0.1 / "10") --> ('.$v.")
";
$v = (0.1 / "20"); print "not " if $v ne q{0.005}; print 'ok 3106 - (0.1 / "20") --> ('.$v.")
";
$v = (0.1 / "30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 3107 - (0.1 / "30") --> ('.$v.")
";
$v = (0.1 / "-10"); print "not " if $v ne q{-0.01}; print 'ok 3108 - (0.1 / "-10") --> ('.$v.")
";
$v = (0.1 / "-20"); print "not " if $v ne q{-0.005}; print 'ok 3109 - (0.1 / "-20") --> ('.$v.")
";
$v = (0.1 / "-30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 3110 - (0.1 / "-30") --> ('.$v.")
";
$v = (0.1 / .1); print "not " if $v ne q{1}; print 'ok 3111 - (0.1 / .1) --> ('.$v.")
";
$v = (0.1 / .2); print "not " if $v ne q{0.5}; print 'ok 3112 - (0.1 / .2) --> ('.$v.")
";
$v = (0.1 / .3); print "not " if $v ne q{0.333333333333333}; print 'ok 3113 - (0.1 / .3) --> ('.$v.")
";
$v = (0.1 / -.1); print "not " if $v ne q{-1}; print 'ok 3114 - (0.1 / -.1) --> ('.$v.")
";
$v = (0.1 / -.2); print "not " if $v ne q{-0.5}; print 'ok 3115 - (0.1 / -.2) --> ('.$v.")
";
$v = (0.1 / -.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 3116 - (0.1 / -.3) --> ('.$v.")
";
$v = (0.1 / 0.1); print "not " if $v ne q{1}; print 'ok 3117 - (0.1 / 0.1) --> ('.$v.")
";
$v = (0.1 / 0.2); print "not " if $v ne q{0.5}; print 'ok 3118 - (0.1 / 0.2) --> ('.$v.")
";
$v = (0.1 / 0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 3119 - (0.1 / 0.3) --> ('.$v.")
";
$v = (0.1 / -0.1); print "not " if $v ne q{-1}; print 'ok 3120 - (0.1 / -0.1) --> ('.$v.")
";
$v = (0.1 / -0.2); print "not " if $v ne q{-0.5}; print 'ok 3121 - (0.1 / -0.2) --> ('.$v.")
";
$v = (0.1 / -0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 3122 - (0.1 / -0.3) --> ('.$v.")
";
$v = (0.1 / 0.1e1); print "not " if $v ne q{0.1}; print 'ok 3123 - (0.1 / 0.1e1) --> ('.$v.")
";
$v = (0.1 / 0.2e1); print "not " if $v ne q{0.05}; print 'ok 3124 - (0.1 / 0.2e1) --> ('.$v.")
";
$v = (0.1 / 0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 3125 - (0.1 / 0.3e1) --> ('.$v.")
";
$v = (0.1 / -0.1e1); print "not " if $v ne q{-0.1}; print 'ok 3126 - (0.1 / -0.1e1) --> ('.$v.")
";
$v = (0.1 / -0.2e1); print "not " if $v ne q{-0.05}; print 'ok 3127 - (0.1 / -0.2e1) --> ('.$v.")
";
$v = (0.1 / -0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3128 - (0.1 / -0.3e1) --> ('.$v.")
";
$v = (0.1 / 10); print "not " if $v ne q{0.01}; print 'ok 3129 - (0.1 / 10) --> ('.$v.")
";
$v = (0.1 / 20); print "not " if $v ne q{0.005}; print 'ok 3130 - (0.1 / 20) --> ('.$v.")
";
$v = (0.1 / 30); print "not " if $v ne q{0.00333333333333333}; print 'ok 3131 - (0.1 / 30) --> ('.$v.")
";
$v = (0.1 / -10); print "not " if $v ne q{-0.01}; print 'ok 3132 - (0.1 / -10) --> ('.$v.")
";
$v = (0.1 / -20); print "not " if $v ne q{-0.005}; print 'ok 3133 - (0.1 / -20) --> ('.$v.")
";
$v = (0.1 / -30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 3134 - (0.1 / -30) --> ('.$v.")
";
$v = (0.1 / @ab); print "not " if $v ne q{0.1}; print 'ok 3135 - (0.1 / @ab) --> ('.$v.")
";
$v = (0.1 / @ac); print "not " if $v ne q{0.0333333333333333}; print 'ok 3136 - (0.1 / @ac) --> ('.$v.")
";
$v = (0.2 / "1"); print "not " if $v ne q{0.2}; print 'ok 3137 - (0.2 / "1") --> ('.$v.")
";
$v = (0.2 / "2"); print "not " if $v ne q{0.1}; print 'ok 3138 - (0.2 / "2") --> ('.$v.")
";
$v = (0.2 / "3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3139 - (0.2 / "3") --> ('.$v.")
";
$v = (0.2 / "-1"); print "not " if $v ne q{-0.2}; print 'ok 3140 - (0.2 / "-1") --> ('.$v.")
";
$v = (0.2 / "-2"); print "not " if $v ne q{-0.1}; print 'ok 3141 - (0.2 / "-2") --> ('.$v.")
";
$v = (0.2 / "-3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3142 - (0.2 / "-3") --> ('.$v.")
";
$v = (0.2 / ".1"); print "not " if $v ne q{2}; print 'ok 3143 - (0.2 / ".1") --> ('.$v.")
";
$v = (0.2 / ".2"); print "not " if $v ne q{1}; print 'ok 3144 - (0.2 / ".2") --> ('.$v.")
";
$v = (0.2 / ".3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3145 - (0.2 / ".3") --> ('.$v.")
";
$v = (0.2 / "-.1"); print "not " if $v ne q{-2}; print 'ok 3146 - (0.2 / "-.1") --> ('.$v.")
";
$v = (0.2 / "-.2"); print "not " if $v ne q{-1}; print 'ok 3147 - (0.2 / "-.2") --> ('.$v.")
";
$v = (0.2 / "-.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3148 - (0.2 / "-.3") --> ('.$v.")
";
$v = (0.2 / "0.1"); print "not " if $v ne q{2}; print 'ok 3149 - (0.2 / "0.1") --> ('.$v.")
";
$v = (0.2 / "0.2"); print "not " if $v ne q{1}; print 'ok 3150 - (0.2 / "0.2") --> ('.$v.")
";
$v = (0.2 / "0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3151 - (0.2 / "0.3") --> ('.$v.")
";
$v = (0.2 / "-0.1"); print "not " if $v ne q{-2}; print 'ok 3152 - (0.2 / "-0.1") --> ('.$v.")
";
$v = (0.2 / "-0.2"); print "not " if $v ne q{-1}; print 'ok 3153 - (0.2 / "-0.2") --> ('.$v.")
";
$v = (0.2 / "-0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3154 - (0.2 / "-0.3") --> ('.$v.")
";
$v = (0.2 / "0.1e1"); print "not " if $v ne q{0.2}; print 'ok 3155 - (0.2 / "0.1e1") --> ('.$v.")
";
$v = (0.2 / "0.2e1"); print "not " if $v ne q{0.1}; print 'ok 3156 - (0.2 / "0.2e1") --> ('.$v.")
";
$v = (0.2 / "0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3157 - (0.2 / "0.3e1") --> ('.$v.")
";
$v = (0.2 / "-0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 3158 - (0.2 / "-0.1e1") --> ('.$v.")
";
$v = (0.2 / "-0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 3159 - (0.2 / "-0.2e1") --> ('.$v.")
";
$v = (0.2 / "-0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3160 - (0.2 / "-0.3e1") --> ('.$v.")
";
$v = (0.2 / "10"); print "not " if $v ne q{0.02}; print 'ok 3161 - (0.2 / "10") --> ('.$v.")
";
$v = (0.2 / "20"); print "not " if $v ne q{0.01}; print 'ok 3162 - (0.2 / "20") --> ('.$v.")
";
$v = (0.2 / "30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 3163 - (0.2 / "30") --> ('.$v.")
";
$v = (0.2 / "-10"); print "not " if $v ne q{-0.02}; print 'ok 3164 - (0.2 / "-10") --> ('.$v.")
";
$v = (0.2 / "-20"); print "not " if $v ne q{-0.01}; print 'ok 3165 - (0.2 / "-20") --> ('.$v.")
";
$v = (0.2 / "-30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 3166 - (0.2 / "-30") --> ('.$v.")
";
$v = (0.2 / .1); print "not " if $v ne q{2}; print 'ok 3167 - (0.2 / .1) --> ('.$v.")
";
$v = (0.2 / .2); print "not " if $v ne q{1}; print 'ok 3168 - (0.2 / .2) --> ('.$v.")
";
$v = (0.2 / .3); print "not " if $v ne q{0.666666666666667}; print 'ok 3169 - (0.2 / .3) --> ('.$v.")
";
$v = (0.2 / -.1); print "not " if $v ne q{-2}; print 'ok 3170 - (0.2 / -.1) --> ('.$v.")
";
$v = (0.2 / -.2); print "not " if $v ne q{-1}; print 'ok 3171 - (0.2 / -.2) --> ('.$v.")
";
$v = (0.2 / -.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 3172 - (0.2 / -.3) --> ('.$v.")
";
$v = (0.2 / 0.1); print "not " if $v ne q{2}; print 'ok 3173 - (0.2 / 0.1) --> ('.$v.")
";
$v = (0.2 / 0.2); print "not " if $v ne q{1}; print 'ok 3174 - (0.2 / 0.2) --> ('.$v.")
";
$v = (0.2 / 0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 3175 - (0.2 / 0.3) --> ('.$v.")
";
$v = (0.2 / -0.1); print "not " if $v ne q{-2}; print 'ok 3176 - (0.2 / -0.1) --> ('.$v.")
";
$v = (0.2 / -0.2); print "not " if $v ne q{-1}; print 'ok 3177 - (0.2 / -0.2) --> ('.$v.")
";
$v = (0.2 / -0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 3178 - (0.2 / -0.3) --> ('.$v.")
";
$v = (0.2 / 0.1e1); print "not " if $v ne q{0.2}; print 'ok 3179 - (0.2 / 0.1e1) --> ('.$v.")
";
$v = (0.2 / 0.2e1); print "not " if $v ne q{0.1}; print 'ok 3180 - (0.2 / 0.2e1) --> ('.$v.")
";
$v = (0.2 / 0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 3181 - (0.2 / 0.3e1) --> ('.$v.")
";
$v = (0.2 / -0.1e1); print "not " if $v ne q{-0.2}; print 'ok 3182 - (0.2 / -0.1e1) --> ('.$v.")
";
$v = (0.2 / -0.2e1); print "not " if $v ne q{-0.1}; print 'ok 3183 - (0.2 / -0.2e1) --> ('.$v.")
";
$v = (0.2 / -0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3184 - (0.2 / -0.3e1) --> ('.$v.")
";
$v = (0.2 / 10); print "not " if $v ne q{0.02}; print 'ok 3185 - (0.2 / 10) --> ('.$v.")
";
$v = (0.2 / 20); print "not " if $v ne q{0.01}; print 'ok 3186 - (0.2 / 20) --> ('.$v.")
";
$v = (0.2 / 30); print "not " if $v ne q{0.00666666666666667}; print 'ok 3187 - (0.2 / 30) --> ('.$v.")
";
$v = (0.2 / -10); print "not " if $v ne q{-0.02}; print 'ok 3188 - (0.2 / -10) --> ('.$v.")
";
$v = (0.2 / -20); print "not " if $v ne q{-0.01}; print 'ok 3189 - (0.2 / -20) --> ('.$v.")
";
$v = (0.2 / -30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 3190 - (0.2 / -30) --> ('.$v.")
";
$v = (0.2 / @ab); print "not " if $v ne q{0.2}; print 'ok 3191 - (0.2 / @ab) --> ('.$v.")
";
$v = (0.2 / @ac); print "not " if $v ne q{0.0666666666666667}; print 'ok 3192 - (0.2 / @ac) --> ('.$v.")
";
$v = (0.3 / "1"); print "not " if $v ne q{0.3}; print 'ok 3193 - (0.3 / "1") --> ('.$v.")
";
$v = (0.3 / "2"); print "not " if $v ne q{0.15}; print 'ok 3194 - (0.3 / "2") --> ('.$v.")
";
$v = (0.3 / "3"); print "not " if $v ne q{0.1}; print 'ok 3195 - (0.3 / "3") --> ('.$v.")
";
$v = (0.3 / "-1"); print "not " if $v ne q{-0.3}; print 'ok 3196 - (0.3 / "-1") --> ('.$v.")
";
$v = (0.3 / "-2"); print "not " if $v ne q{-0.15}; print 'ok 3197 - (0.3 / "-2") --> ('.$v.")
";
$v = (0.3 / "-3"); print "not " if $v ne q{-0.1}; print 'ok 3198 - (0.3 / "-3") --> ('.$v.")
";
$v = (0.3 / ".1"); print "not " if $v ne q{3}; print 'ok 3199 - (0.3 / ".1") --> ('.$v.")
";
$v = (0.3 / ".2"); print "not " if $v ne q{1.5}; print 'ok 3200 - (0.3 / ".2") --> ('.$v.")
";
$v = (0.3 / ".3"); print "not " if $v ne q{1}; print 'ok 3201 - (0.3 / ".3") --> ('.$v.")
";
$v = (0.3 / "-.1"); print "not " if $v ne q{-3}; print 'ok 3202 - (0.3 / "-.1") --> ('.$v.")
";
$v = (0.3 / "-.2"); print "not " if $v ne q{-1.5}; print 'ok 3203 - (0.3 / "-.2") --> ('.$v.")
";
$v = (0.3 / "-.3"); print "not " if $v ne q{-1}; print 'ok 3204 - (0.3 / "-.3") --> ('.$v.")
";
$v = (0.3 / "0.1"); print "not " if $v ne q{3}; print 'ok 3205 - (0.3 / "0.1") --> ('.$v.")
";
$v = (0.3 / "0.2"); print "not " if $v ne q{1.5}; print 'ok 3206 - (0.3 / "0.2") --> ('.$v.")
";
$v = (0.3 / "0.3"); print "not " if $v ne q{1}; print 'ok 3207 - (0.3 / "0.3") --> ('.$v.")
";
$v = (0.3 / "-0.1"); print "not " if $v ne q{-3}; print 'ok 3208 - (0.3 / "-0.1") --> ('.$v.")
";
$v = (0.3 / "-0.2"); print "not " if $v ne q{-1.5}; print 'ok 3209 - (0.3 / "-0.2") --> ('.$v.")
";
$v = (0.3 / "-0.3"); print "not " if $v ne q{-1}; print 'ok 3210 - (0.3 / "-0.3") --> ('.$v.")
";
$v = (0.3 / "0.1e1"); print "not " if $v ne q{0.3}; print 'ok 3211 - (0.3 / "0.1e1") --> ('.$v.")
";
$v = (0.3 / "0.2e1"); print "not " if $v ne q{0.15}; print 'ok 3212 - (0.3 / "0.2e1") --> ('.$v.")
";
$v = (0.3 / "0.3e1"); print "not " if $v ne q{0.1}; print 'ok 3213 - (0.3 / "0.3e1") --> ('.$v.")
";
$v = (0.3 / "-0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 3214 - (0.3 / "-0.1e1") --> ('.$v.")
";
$v = (0.3 / "-0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 3215 - (0.3 / "-0.2e1") --> ('.$v.")
";
$v = (0.3 / "-0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 3216 - (0.3 / "-0.3e1") --> ('.$v.")
";
$v = (0.3 / "10"); print "not " if $v ne q{0.03}; print 'ok 3217 - (0.3 / "10") --> ('.$v.")
";
$v = (0.3 / "20"); print "not " if $v ne q{0.015}; print 'ok 3218 - (0.3 / "20") --> ('.$v.")
";
$v = (0.3 / "30"); print "not " if $v ne q{0.01}; print 'ok 3219 - (0.3 / "30") --> ('.$v.")
";
$v = (0.3 / "-10"); print "not " if $v ne q{-0.03}; print 'ok 3220 - (0.3 / "-10") --> ('.$v.")
";
$v = (0.3 / "-20"); print "not " if $v ne q{-0.015}; print 'ok 3221 - (0.3 / "-20") --> ('.$v.")
";
$v = (0.3 / "-30"); print "not " if $v ne q{-0.01}; print 'ok 3222 - (0.3 / "-30") --> ('.$v.")
";
$v = (0.3 / .1); print "not " if $v ne q{3}; print 'ok 3223 - (0.3 / .1) --> ('.$v.")
";
$v = (0.3 / .2); print "not " if $v ne q{1.5}; print 'ok 3224 - (0.3 / .2) --> ('.$v.")
";
$v = (0.3 / .3); print "not " if $v ne q{1}; print 'ok 3225 - (0.3 / .3) --> ('.$v.")
";
$v = (0.3 / -.1); print "not " if $v ne q{-3}; print 'ok 3226 - (0.3 / -.1) --> ('.$v.")
";
$v = (0.3 / -.2); print "not " if $v ne q{-1.5}; print 'ok 3227 - (0.3 / -.2) --> ('.$v.")
";
$v = (0.3 / -.3); print "not " if $v ne q{-1}; print 'ok 3228 - (0.3 / -.3) --> ('.$v.")
";
$v = (0.3 / 0.1); print "not " if $v ne q{3}; print 'ok 3229 - (0.3 / 0.1) --> ('.$v.")
";
$v = (0.3 / 0.2); print "not " if $v ne q{1.5}; print 'ok 3230 - (0.3 / 0.2) --> ('.$v.")
";
$v = (0.3 / 0.3); print "not " if $v ne q{1}; print 'ok 3231 - (0.3 / 0.3) --> ('.$v.")
";
$v = (0.3 / -0.1); print "not " if $v ne q{-3}; print 'ok 3232 - (0.3 / -0.1) --> ('.$v.")
";
$v = (0.3 / -0.2); print "not " if $v ne q{-1.5}; print 'ok 3233 - (0.3 / -0.2) --> ('.$v.")
";
$v = (0.3 / -0.3); print "not " if $v ne q{-1}; print 'ok 3234 - (0.3 / -0.3) --> ('.$v.")
";
$v = (0.3 / 0.1e1); print "not " if $v ne q{0.3}; print 'ok 3235 - (0.3 / 0.1e1) --> ('.$v.")
";
$v = (0.3 / 0.2e1); print "not " if $v ne q{0.15}; print 'ok 3236 - (0.3 / 0.2e1) --> ('.$v.")
";
$v = (0.3 / 0.3e1); print "not " if $v ne q{0.1}; print 'ok 3237 - (0.3 / 0.3e1) --> ('.$v.")
";
$v = (0.3 / -0.1e1); print "not " if $v ne q{-0.3}; print 'ok 3238 - (0.3 / -0.1e1) --> ('.$v.")
";
$v = (0.3 / -0.2e1); print "not " if $v ne q{-0.15}; print 'ok 3239 - (0.3 / -0.2e1) --> ('.$v.")
";
$v = (0.3 / -0.3e1); print "not " if $v ne q{-0.1}; print 'ok 3240 - (0.3 / -0.3e1) --> ('.$v.")
";
$v = (0.3 / 10); print "not " if $v ne q{0.03}; print 'ok 3241 - (0.3 / 10) --> ('.$v.")
";
$v = (0.3 / 20); print "not " if $v ne q{0.015}; print 'ok 3242 - (0.3 / 20) --> ('.$v.")
";
$v = (0.3 / 30); print "not " if $v ne q{0.01}; print 'ok 3243 - (0.3 / 30) --> ('.$v.")
";
$v = (0.3 / -10); print "not " if $v ne q{-0.03}; print 'ok 3244 - (0.3 / -10) --> ('.$v.")
";
$v = (0.3 / -20); print "not " if $v ne q{-0.015}; print 'ok 3245 - (0.3 / -20) --> ('.$v.")
";
$v = (0.3 / -30); print "not " if $v ne q{-0.01}; print 'ok 3246 - (0.3 / -30) --> ('.$v.")
";
$v = (0.3 / @ab); print "not " if $v ne q{0.3}; print 'ok 3247 - (0.3 / @ab) --> ('.$v.")
";
$v = (0.3 / @ac); print "not " if $v ne q{0.1}; print 'ok 3248 - (0.3 / @ac) --> ('.$v.")
";
$v = (-0.0 / "1"); print "not " if $v ne q{0}; print 'ok 3249 - (-0.0 / "1") --> ('.$v.")
";
$v = (-0.0 / "2"); print "not " if $v ne q{0}; print 'ok 3250 - (-0.0 / "2") --> ('.$v.")
";
$v = (-0.0 / "3"); print "not " if $v ne q{0}; print 'ok 3251 - (-0.0 / "3") --> ('.$v.")
";
$v = (-0.0 / "-1"); print "not " if $v ne q{0}; print 'ok 3252 - (-0.0 / "-1") --> ('.$v.")
";
$v = (-0.0 / "-2"); print "not " if $v ne q{0}; print 'ok 3253 - (-0.0 / "-2") --> ('.$v.")
";
$v = (-0.0 / "-3"); print "not " if $v ne q{0}; print 'ok 3254 - (-0.0 / "-3") --> ('.$v.")
";
$v = (-0.0 / ".1"); print "not " if $v ne q{0}; print 'ok 3255 - (-0.0 / ".1") --> ('.$v.")
";
$v = (-0.0 / ".2"); print "not " if $v ne q{0}; print 'ok 3256 - (-0.0 / ".2") --> ('.$v.")
";
$v = (-0.0 / ".3"); print "not " if $v ne q{0}; print 'ok 3257 - (-0.0 / ".3") --> ('.$v.")
";
$v = (-0.0 / "-.1"); print "not " if $v ne q{0}; print 'ok 3258 - (-0.0 / "-.1") --> ('.$v.")
";
$v = (-0.0 / "-.2"); print "not " if $v ne q{0}; print 'ok 3259 - (-0.0 / "-.2") --> ('.$v.")
";
$v = (-0.0 / "-.3"); print "not " if $v ne q{0}; print 'ok 3260 - (-0.0 / "-.3") --> ('.$v.")
";
$v = (-0.0 / "0.1"); print "not " if $v ne q{0}; print 'ok 3261 - (-0.0 / "0.1") --> ('.$v.")
";
$v = (-0.0 / "0.2"); print "not " if $v ne q{0}; print 'ok 3262 - (-0.0 / "0.2") --> ('.$v.")
";
$v = (-0.0 / "0.3"); print "not " if $v ne q{0}; print 'ok 3263 - (-0.0 / "0.3") --> ('.$v.")
";
$v = (-0.0 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3264 - (-0.0 / "-0.1") --> ('.$v.")
";
$v = (-0.0 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3265 - (-0.0 / "-0.2") --> ('.$v.")
";
$v = (-0.0 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3266 - (-0.0 / "-0.3") --> ('.$v.")
";
$v = (-0.0 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3267 - (-0.0 / "0.1e1") --> ('.$v.")
";
$v = (-0.0 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3268 - (-0.0 / "0.2e1") --> ('.$v.")
";
$v = (-0.0 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3269 - (-0.0 / "0.3e1") --> ('.$v.")
";
$v = (-0.0 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3270 - (-0.0 / "-0.1e1") --> ('.$v.")
";
$v = (-0.0 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3271 - (-0.0 / "-0.2e1") --> ('.$v.")
";
$v = (-0.0 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 3272 - (-0.0 / "-0.3e1") --> ('.$v.")
";
$v = (-0.0 / "10"); print "not " if $v ne q{0}; print 'ok 3273 - (-0.0 / "10") --> ('.$v.")
";
$v = (-0.0 / "20"); print "not " if $v ne q{0}; print 'ok 3274 - (-0.0 / "20") --> ('.$v.")
";
$v = (-0.0 / "30"); print "not " if $v ne q{0}; print 'ok 3275 - (-0.0 / "30") --> ('.$v.")
";
$v = (-0.0 / "-10"); print "not " if $v ne q{0}; print 'ok 3276 - (-0.0 / "-10") --> ('.$v.")
";
$v = (-0.0 / "-20"); print "not " if $v ne q{0}; print 'ok 3277 - (-0.0 / "-20") --> ('.$v.")
";
$v = (-0.0 / "-30"); print "not " if $v ne q{0}; print 'ok 3278 - (-0.0 / "-30") --> ('.$v.")
";
$v = (-0.0 / .1); print "not " if $v ne q{0}; print 'ok 3279 - (-0.0 / .1) --> ('.$v.")
";
$v = (-0.0 / .2); print "not " if $v ne q{0}; print 'ok 3280 - (-0.0 / .2) --> ('.$v.")
";
$v = (-0.0 / .3); print "not " if $v ne q{0}; print 'ok 3281 - (-0.0 / .3) --> ('.$v.")
";
$v = (-0.0 / -.1); print "not " if $v ne q{0}; print 'ok 3282 - (-0.0 / -.1) --> ('.$v.")
";
$v = (-0.0 / -.2); print "not " if $v ne q{0}; print 'ok 3283 - (-0.0 / -.2) --> ('.$v.")
";
$v = (-0.0 / -.3); print "not " if $v ne q{0}; print 'ok 3284 - (-0.0 / -.3) --> ('.$v.")
";
$v = (-0.0 / 0.1); print "not " if $v ne q{0}; print 'ok 3285 - (-0.0 / 0.1) --> ('.$v.")
";
$v = (-0.0 / 0.2); print "not " if $v ne q{0}; print 'ok 3286 - (-0.0 / 0.2) --> ('.$v.")
";
$v = (-0.0 / 0.3); print "not " if $v ne q{0}; print 'ok 3287 - (-0.0 / 0.3) --> ('.$v.")
";
$v = (-0.0 / -0.1); print "not " if $v ne q{0}; print 'ok 3288 - (-0.0 / -0.1) --> ('.$v.")
";
$v = (-0.0 / -0.2); print "not " if $v ne q{0}; print 'ok 3289 - (-0.0 / -0.2) --> ('.$v.")
";
$v = (-0.0 / -0.3); print "not " if $v ne q{0}; print 'ok 3290 - (-0.0 / -0.3) --> ('.$v.")
";
$v = (-0.0 / 0.1e1); print "not " if $v ne q{0}; print 'ok 3291 - (-0.0 / 0.1e1) --> ('.$v.")
";
$v = (-0.0 / 0.2e1); print "not " if $v ne q{0}; print 'ok 3292 - (-0.0 / 0.2e1) --> ('.$v.")
";
$v = (-0.0 / 0.3e1); print "not " if $v ne q{0}; print 'ok 3293 - (-0.0 / 0.3e1) --> ('.$v.")
";
$v = (-0.0 / -0.1e1); print "not " if $v ne q{0}; print 'ok 3294 - (-0.0 / -0.1e1) --> ('.$v.")
";
$v = (-0.0 / -0.2e1); print "not " if $v ne q{0}; print 'ok 3295 - (-0.0 / -0.2e1) --> ('.$v.")
";
$v = (-0.0 / -0.3e1); print "not " if $v ne q{0}; print 'ok 3296 - (-0.0 / -0.3e1) --> ('.$v.")
";
$v = (-0.0 / 10); print "not " if $v ne q{0}; print 'ok 3297 - (-0.0 / 10) --> ('.$v.")
";
$v = (-0.0 / 20); print "not " if $v ne q{0}; print 'ok 3298 - (-0.0 / 20) --> ('.$v.")
";
$v = (-0.0 / 30); print "not " if $v ne q{0}; print 'ok 3299 - (-0.0 / 30) --> ('.$v.")
";
$v = (-0.0 / -10); print "not " if $v ne q{0}; print 'ok 3300 - (-0.0 / -10) --> ('.$v.")
";
$v = (-0.0 / -20); print "not " if $v ne q{0}; print 'ok 3301 - (-0.0 / -20) --> ('.$v.")
";
$v = (-0.0 / -30); print "not " if $v ne q{0}; print 'ok 3302 - (-0.0 / -30) --> ('.$v.")
";
$v = (-0.0 / @ab); print "not " if $v ne q{0}; print 'ok 3303 - (-0.0 / @ab) --> ('.$v.")
";
$v = (-0.0 / @ac); print "not " if $v ne q{0}; print 'ok 3304 - (-0.0 / @ac) --> ('.$v.")
";
$v = (-0.1 / "1"); print "not " if $v ne q{-0.1}; print 'ok 3305 - (-0.1 / "1") --> ('.$v.")
";
$v = (-0.1 / "2"); print "not " if $v ne q{-0.05}; print 'ok 3306 - (-0.1 / "2") --> ('.$v.")
";
$v = (-0.1 / "3"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3307 - (-0.1 / "3") --> ('.$v.")
";
$v = (-0.1 / "-1"); print "not " if $v ne q{0.1}; print 'ok 3308 - (-0.1 / "-1") --> ('.$v.")
";
$v = (-0.1 / "-2"); print "not " if $v ne q{0.05}; print 'ok 3309 - (-0.1 / "-2") --> ('.$v.")
";
$v = (-0.1 / "-3"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3310 - (-0.1 / "-3") --> ('.$v.")
";
$v = (-0.1 / ".1"); print "not " if $v ne q{-1}; print 'ok 3311 - (-0.1 / ".1") --> ('.$v.")
";
$v = (-0.1 / ".2"); print "not " if $v ne q{-0.5}; print 'ok 3312 - (-0.1 / ".2") --> ('.$v.")
";
$v = (-0.1 / ".3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3313 - (-0.1 / ".3") --> ('.$v.")
";
$v = (-0.1 / "-.1"); print "not " if $v ne q{1}; print 'ok 3314 - (-0.1 / "-.1") --> ('.$v.")
";
$v = (-0.1 / "-.2"); print "not " if $v ne q{0.5}; print 'ok 3315 - (-0.1 / "-.2") --> ('.$v.")
";
$v = (-0.1 / "-.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3316 - (-0.1 / "-.3") --> ('.$v.")
";
$v = (-0.1 / "0.1"); print "not " if $v ne q{-1}; print 'ok 3317 - (-0.1 / "0.1") --> ('.$v.")
";
$v = (-0.1 / "0.2"); print "not " if $v ne q{-0.5}; print 'ok 3318 - (-0.1 / "0.2") --> ('.$v.")
";
$v = (-0.1 / "0.3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3319 - (-0.1 / "0.3") --> ('.$v.")
";
$v = (-0.1 / "-0.1"); print "not " if $v ne q{1}; print 'ok 3320 - (-0.1 / "-0.1") --> ('.$v.")
";
$v = (-0.1 / "-0.2"); print "not " if $v ne q{0.5}; print 'ok 3321 - (-0.1 / "-0.2") --> ('.$v.")
";
$v = (-0.1 / "-0.3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3322 - (-0.1 / "-0.3") --> ('.$v.")
";
$v = (-0.1 / "0.1e1"); print "not " if $v ne q{-0.1}; print 'ok 3323 - (-0.1 / "0.1e1") --> ('.$v.")
";
$v = (-0.1 / "0.2e1"); print "not " if $v ne q{-0.05}; print 'ok 3324 - (-0.1 / "0.2e1") --> ('.$v.")
";
$v = (-0.1 / "0.3e1"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3325 - (-0.1 / "0.3e1") --> ('.$v.")
";
$v = (-0.1 / "-0.1e1"); print "not " if $v ne q{0.1}; print 'ok 3326 - (-0.1 / "-0.1e1") --> ('.$v.")
";
$v = (-0.1 / "-0.2e1"); print "not " if $v ne q{0.05}; print 'ok 3327 - (-0.1 / "-0.2e1") --> ('.$v.")
";
$v = (-0.1 / "-0.3e1"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3328 - (-0.1 / "-0.3e1") --> ('.$v.")
";
$v = (-0.1 / "10"); print "not " if $v ne q{-0.01}; print 'ok 3329 - (-0.1 / "10") --> ('.$v.")
";
$v = (-0.1 / "20"); print "not " if $v ne q{-0.005}; print 'ok 3330 - (-0.1 / "20") --> ('.$v.")
";
$v = (-0.1 / "30"); print "not " if $v ne q{-0.00333333333333333}; print 'ok 3331 - (-0.1 / "30") --> ('.$v.")
";
$v = (-0.1 / "-10"); print "not " if $v ne q{0.01}; print 'ok 3332 - (-0.1 / "-10") --> ('.$v.")
";
$v = (-0.1 / "-20"); print "not " if $v ne q{0.005}; print 'ok 3333 - (-0.1 / "-20") --> ('.$v.")
";
$v = (-0.1 / "-30"); print "not " if $v ne q{0.00333333333333333}; print 'ok 3334 - (-0.1 / "-30") --> ('.$v.")
";
$v = (-0.1 / .1); print "not " if $v ne q{-1}; print 'ok 3335 - (-0.1 / .1) --> ('.$v.")
";
$v = (-0.1 / .2); print "not " if $v ne q{-0.5}; print 'ok 3336 - (-0.1 / .2) --> ('.$v.")
";
$v = (-0.1 / .3); print "not " if $v ne q{-0.333333333333333}; print 'ok 3337 - (-0.1 / .3) --> ('.$v.")
";
$v = (-0.1 / -.1); print "not " if $v ne q{1}; print 'ok 3338 - (-0.1 / -.1) --> ('.$v.")
";
$v = (-0.1 / -.2); print "not " if $v ne q{0.5}; print 'ok 3339 - (-0.1 / -.2) --> ('.$v.")
";
$v = (-0.1 / -.3); print "not " if $v ne q{0.333333333333333}; print 'ok 3340 - (-0.1 / -.3) --> ('.$v.")
";
$v = (-0.1 / 0.1); print "not " if $v ne q{-1}; print 'ok 3341 - (-0.1 / 0.1) --> ('.$v.")
";
$v = (-0.1 / 0.2); print "not " if $v ne q{-0.5}; print 'ok 3342 - (-0.1 / 0.2) --> ('.$v.")
";
$v = (-0.1 / 0.3); print "not " if $v ne q{-0.333333333333333}; print 'ok 3343 - (-0.1 / 0.3) --> ('.$v.")
";
$v = (-0.1 / -0.1); print "not " if $v ne q{1}; print 'ok 3344 - (-0.1 / -0.1) --> ('.$v.")
";
$v = (-0.1 / -0.2); print "not " if $v ne q{0.5}; print 'ok 3345 - (-0.1 / -0.2) --> ('.$v.")
";
$v = (-0.1 / -0.3); print "not " if $v ne q{0.333333333333333}; print 'ok 3346 - (-0.1 / -0.3) --> ('.$v.")
";
$v = (-0.1 / 0.1e1); print "not " if $v ne q{-0.1}; print 'ok 3347 - (-0.1 / 0.1e1) --> ('.$v.")
";
$v = (-0.1 / 0.2e1); print "not " if $v ne q{-0.05}; print 'ok 3348 - (-0.1 / 0.2e1) --> ('.$v.")
";
$v = (-0.1 / 0.3e1); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3349 - (-0.1 / 0.3e1) --> ('.$v.")
";
$v = (-0.1 / -0.1e1); print "not " if $v ne q{0.1}; print 'ok 3350 - (-0.1 / -0.1e1) --> ('.$v.")
";
$v = (-0.1 / -0.2e1); print "not " if $v ne q{0.05}; print 'ok 3351 - (-0.1 / -0.2e1) --> ('.$v.")
";
$v = (-0.1 / -0.3e1); print "not " if $v ne q{0.0333333333333333}; print 'ok 3352 - (-0.1 / -0.3e1) --> ('.$v.")
";
$v = (-0.1 / 10); print "not " if $v ne q{-0.01}; print 'ok 3353 - (-0.1 / 10) --> ('.$v.")
";
$v = (-0.1 / 20); print "not " if $v ne q{-0.005}; print 'ok 3354 - (-0.1 / 20) --> ('.$v.")
";
$v = (-0.1 / 30); print "not " if $v ne q{-0.00333333333333333}; print 'ok 3355 - (-0.1 / 30) --> ('.$v.")
";
$v = (-0.1 / -10); print "not " if $v ne q{0.01}; print 'ok 3356 - (-0.1 / -10) --> ('.$v.")
";
$v = (-0.1 / -20); print "not " if $v ne q{0.005}; print 'ok 3357 - (-0.1 / -20) --> ('.$v.")
";
$v = (-0.1 / -30); print "not " if $v ne q{0.00333333333333333}; print 'ok 3358 - (-0.1 / -30) --> ('.$v.")
";
$v = (-0.1 / @ab); print "not " if $v ne q{-0.1}; print 'ok 3359 - (-0.1 / @ab) --> ('.$v.")
";
$v = (-0.1 / @ac); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3360 - (-0.1 / @ac) --> ('.$v.")
";
$v = (-0.2 / "1"); print "not " if $v ne q{-0.2}; print 'ok 3361 - (-0.2 / "1") --> ('.$v.")
";
$v = (-0.2 / "2"); print "not " if $v ne q{-0.1}; print 'ok 3362 - (-0.2 / "2") --> ('.$v.")
";
$v = (-0.2 / "3"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3363 - (-0.2 / "3") --> ('.$v.")
";
$v = (-0.2 / "-1"); print "not " if $v ne q{0.2}; print 'ok 3364 - (-0.2 / "-1") --> ('.$v.")
";
$v = (-0.2 / "-2"); print "not " if $v ne q{0.1}; print 'ok 3365 - (-0.2 / "-2") --> ('.$v.")
";
$v = (-0.2 / "-3"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3366 - (-0.2 / "-3") --> ('.$v.")
";
$v = (-0.2 / ".1"); print "not " if $v ne q{-2}; print 'ok 3367 - (-0.2 / ".1") --> ('.$v.")
";
$v = (-0.2 / ".2"); print "not " if $v ne q{-1}; print 'ok 3368 - (-0.2 / ".2") --> ('.$v.")
";
$v = (-0.2 / ".3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3369 - (-0.2 / ".3") --> ('.$v.")
";
$v = (-0.2 / "-.1"); print "not " if $v ne q{2}; print 'ok 3370 - (-0.2 / "-.1") --> ('.$v.")
";
$v = (-0.2 / "-.2"); print "not " if $v ne q{1}; print 'ok 3371 - (-0.2 / "-.2") --> ('.$v.")
";
$v = (-0.2 / "-.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3372 - (-0.2 / "-.3") --> ('.$v.")
";
$v = (-0.2 / "0.1"); print "not " if $v ne q{-2}; print 'ok 3373 - (-0.2 / "0.1") --> ('.$v.")
";
$v = (-0.2 / "0.2"); print "not " if $v ne q{-1}; print 'ok 3374 - (-0.2 / "0.2") --> ('.$v.")
";
$v = (-0.2 / "0.3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3375 - (-0.2 / "0.3") --> ('.$v.")
";
$v = (-0.2 / "-0.1"); print "not " if $v ne q{2}; print 'ok 3376 - (-0.2 / "-0.1") --> ('.$v.")
";
$v = (-0.2 / "-0.2"); print "not " if $v ne q{1}; print 'ok 3377 - (-0.2 / "-0.2") --> ('.$v.")
";
$v = (-0.2 / "-0.3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3378 - (-0.2 / "-0.3") --> ('.$v.")
";
$v = (-0.2 / "0.1e1"); print "not " if $v ne q{-0.2}; print 'ok 3379 - (-0.2 / "0.1e1") --> ('.$v.")
";
$v = (-0.2 / "0.2e1"); print "not " if $v ne q{-0.1}; print 'ok 3380 - (-0.2 / "0.2e1") --> ('.$v.")
";
$v = (-0.2 / "0.3e1"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3381 - (-0.2 / "0.3e1") --> ('.$v.")
";
$v = (-0.2 / "-0.1e1"); print "not " if $v ne q{0.2}; print 'ok 3382 - (-0.2 / "-0.1e1") --> ('.$v.")
";
$v = (-0.2 / "-0.2e1"); print "not " if $v ne q{0.1}; print 'ok 3383 - (-0.2 / "-0.2e1") --> ('.$v.")
";
$v = (-0.2 / "-0.3e1"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3384 - (-0.2 / "-0.3e1") --> ('.$v.")
";
$v = (-0.2 / "10"); print "not " if $v ne q{-0.02}; print 'ok 3385 - (-0.2 / "10") --> ('.$v.")
";
$v = (-0.2 / "20"); print "not " if $v ne q{-0.01}; print 'ok 3386 - (-0.2 / "20") --> ('.$v.")
";
$v = (-0.2 / "30"); print "not " if $v ne q{-0.00666666666666667}; print 'ok 3387 - (-0.2 / "30") --> ('.$v.")
";
$v = (-0.2 / "-10"); print "not " if $v ne q{0.02}; print 'ok 3388 - (-0.2 / "-10") --> ('.$v.")
";
$v = (-0.2 / "-20"); print "not " if $v ne q{0.01}; print 'ok 3389 - (-0.2 / "-20") --> ('.$v.")
";
$v = (-0.2 / "-30"); print "not " if $v ne q{0.00666666666666667}; print 'ok 3390 - (-0.2 / "-30") --> ('.$v.")
";
$v = (-0.2 / .1); print "not " if $v ne q{-2}; print 'ok 3391 - (-0.2 / .1) --> ('.$v.")
";
$v = (-0.2 / .2); print "not " if $v ne q{-1}; print 'ok 3392 - (-0.2 / .2) --> ('.$v.")
";
$v = (-0.2 / .3); print "not " if $v ne q{-0.666666666666667}; print 'ok 3393 - (-0.2 / .3) --> ('.$v.")
";
$v = (-0.2 / -.1); print "not " if $v ne q{2}; print 'ok 3394 - (-0.2 / -.1) --> ('.$v.")
";
$v = (-0.2 / -.2); print "not " if $v ne q{1}; print 'ok 3395 - (-0.2 / -.2) --> ('.$v.")
";
$v = (-0.2 / -.3); print "not " if $v ne q{0.666666666666667}; print 'ok 3396 - (-0.2 / -.3) --> ('.$v.")
";
$v = (-0.2 / 0.1); print "not " if $v ne q{-2}; print 'ok 3397 - (-0.2 / 0.1) --> ('.$v.")
";
$v = (-0.2 / 0.2); print "not " if $v ne q{-1}; print 'ok 3398 - (-0.2 / 0.2) --> ('.$v.")
";
$v = (-0.2 / 0.3); print "not " if $v ne q{-0.666666666666667}; print 'ok 3399 - (-0.2 / 0.3) --> ('.$v.")
";
$v = (-0.2 / -0.1); print "not " if $v ne q{2}; print 'ok 3400 - (-0.2 / -0.1) --> ('.$v.")
";
$v = (-0.2 / -0.2); print "not " if $v ne q{1}; print 'ok 3401 - (-0.2 / -0.2) --> ('.$v.")
";
$v = (-0.2 / -0.3); print "not " if $v ne q{0.666666666666667}; print 'ok 3402 - (-0.2 / -0.3) --> ('.$v.")
";
$v = (-0.2 / 0.1e1); print "not " if $v ne q{-0.2}; print 'ok 3403 - (-0.2 / 0.1e1) --> ('.$v.")
";
$v = (-0.2 / 0.2e1); print "not " if $v ne q{-0.1}; print 'ok 3404 - (-0.2 / 0.2e1) --> ('.$v.")
";
$v = (-0.2 / 0.3e1); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3405 - (-0.2 / 0.3e1) --> ('.$v.")
";
$v = (-0.2 / -0.1e1); print "not " if $v ne q{0.2}; print 'ok 3406 - (-0.2 / -0.1e1) --> ('.$v.")
";
$v = (-0.2 / -0.2e1); print "not " if $v ne q{0.1}; print 'ok 3407 - (-0.2 / -0.2e1) --> ('.$v.")
";
$v = (-0.2 / -0.3e1); print "not " if $v ne q{0.0666666666666667}; print 'ok 3408 - (-0.2 / -0.3e1) --> ('.$v.")
";
$v = (-0.2 / 10); print "not " if $v ne q{-0.02}; print 'ok 3409 - (-0.2 / 10) --> ('.$v.")
";
$v = (-0.2 / 20); print "not " if $v ne q{-0.01}; print 'ok 3410 - (-0.2 / 20) --> ('.$v.")
";
$v = (-0.2 / 30); print "not " if $v ne q{-0.00666666666666667}; print 'ok 3411 - (-0.2 / 30) --> ('.$v.")
";
$v = (-0.2 / -10); print "not " if $v ne q{0.02}; print 'ok 3412 - (-0.2 / -10) --> ('.$v.")
";
$v = (-0.2 / -20); print "not " if $v ne q{0.01}; print 'ok 3413 - (-0.2 / -20) --> ('.$v.")
";
$v = (-0.2 / -30); print "not " if $v ne q{0.00666666666666667}; print 'ok 3414 - (-0.2 / -30) --> ('.$v.")
";
$v = (-0.2 / @ab); print "not " if $v ne q{-0.2}; print 'ok 3415 - (-0.2 / @ab) --> ('.$v.")
";
$v = (-0.2 / @ac); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3416 - (-0.2 / @ac) --> ('.$v.")
";
$v = (-0.3 / "1"); print "not " if $v ne q{-0.3}; print 'ok 3417 - (-0.3 / "1") --> ('.$v.")
";
$v = (-0.3 / "2"); print "not " if $v ne q{-0.15}; print 'ok 3418 - (-0.3 / "2") --> ('.$v.")
";
$v = (-0.3 / "3"); print "not " if $v ne q{-0.1}; print 'ok 3419 - (-0.3 / "3") --> ('.$v.")
";
$v = (-0.3 / "-1"); print "not " if $v ne q{0.3}; print 'ok 3420 - (-0.3 / "-1") --> ('.$v.")
";
$v = (-0.3 / "-2"); print "not " if $v ne q{0.15}; print 'ok 3421 - (-0.3 / "-2") --> ('.$v.")
";
$v = (-0.3 / "-3"); print "not " if $v ne q{0.1}; print 'ok 3422 - (-0.3 / "-3") --> ('.$v.")
";
$v = (-0.3 / ".1"); print "not " if $v ne q{-3}; print 'ok 3423 - (-0.3 / ".1") --> ('.$v.")
";
$v = (-0.3 / ".2"); print "not " if $v ne q{-1.5}; print 'ok 3424 - (-0.3 / ".2") --> ('.$v.")
";
$v = (-0.3 / ".3"); print "not " if $v ne q{-1}; print 'ok 3425 - (-0.3 / ".3") --> ('.$v.")
";
$v = (-0.3 / "-.1"); print "not " if $v ne q{3}; print 'ok 3426 - (-0.3 / "-.1") --> ('.$v.")
";
$v = (-0.3 / "-.2"); print "not " if $v ne q{1.5}; print 'ok 3427 - (-0.3 / "-.2") --> ('.$v.")
";
$v = (-0.3 / "-.3"); print "not " if $v ne q{1}; print 'ok 3428 - (-0.3 / "-.3") --> ('.$v.")
";
$v = (-0.3 / "0.1"); print "not " if $v ne q{-3}; print 'ok 3429 - (-0.3 / "0.1") --> ('.$v.")
";
$v = (-0.3 / "0.2"); print "not " if $v ne q{-1.5}; print 'ok 3430 - (-0.3 / "0.2") --> ('.$v.")
";
$v = (-0.3 / "0.3"); print "not " if $v ne q{-1}; print 'ok 3431 - (-0.3 / "0.3") --> ('.$v.")
";
$v = (-0.3 / "-0.1"); print "not " if $v ne q{3}; print 'ok 3432 - (-0.3 / "-0.1") --> ('.$v.")
";
$v = (-0.3 / "-0.2"); print "not " if $v ne q{1.5}; print 'ok 3433 - (-0.3 / "-0.2") --> ('.$v.")
";
$v = (-0.3 / "-0.3"); print "not " if $v ne q{1}; print 'ok 3434 - (-0.3 / "-0.3") --> ('.$v.")
";
$v = (-0.3 / "0.1e1"); print "not " if $v ne q{-0.3}; print 'ok 3435 - (-0.3 / "0.1e1") --> ('.$v.")
";
$v = (-0.3 / "0.2e1"); print "not " if $v ne q{-0.15}; print 'ok 3436 - (-0.3 / "0.2e1") --> ('.$v.")
";
$v = (-0.3 / "0.3e1"); print "not " if $v ne q{-0.1}; print 'ok 3437 - (-0.3 / "0.3e1") --> ('.$v.")
";
$v = (-0.3 / "-0.1e1"); print "not " if $v ne q{0.3}; print 'ok 3438 - (-0.3 / "-0.1e1") --> ('.$v.")
";
$v = (-0.3 / "-0.2e1"); print "not " if $v ne q{0.15}; print 'ok 3439 - (-0.3 / "-0.2e1") --> ('.$v.")
";
$v = (-0.3 / "-0.3e1"); print "not " if $v ne q{0.1}; print 'ok 3440 - (-0.3 / "-0.3e1") --> ('.$v.")
";
$v = (-0.3 / "10"); print "not " if $v ne q{-0.03}; print 'ok 3441 - (-0.3 / "10") --> ('.$v.")
";
$v = (-0.3 / "20"); print "not " if $v ne q{-0.015}; print 'ok 3442 - (-0.3 / "20") --> ('.$v.")
";
$v = (-0.3 / "30"); print "not " if $v ne q{-0.01}; print 'ok 3443 - (-0.3 / "30") --> ('.$v.")
";
$v = (-0.3 / "-10"); print "not " if $v ne q{0.03}; print 'ok 3444 - (-0.3 / "-10") --> ('.$v.")
";
$v = (-0.3 / "-20"); print "not " if $v ne q{0.015}; print 'ok 3445 - (-0.3 / "-20") --> ('.$v.")
";
$v = (-0.3 / "-30"); print "not " if $v ne q{0.01}; print 'ok 3446 - (-0.3 / "-30") --> ('.$v.")
";
$v = (-0.3 / .1); print "not " if $v ne q{-3}; print 'ok 3447 - (-0.3 / .1) --> ('.$v.")
";
$v = (-0.3 / .2); print "not " if $v ne q{-1.5}; print 'ok 3448 - (-0.3 / .2) --> ('.$v.")
";
$v = (-0.3 / .3); print "not " if $v ne q{-1}; print 'ok 3449 - (-0.3 / .3) --> ('.$v.")
";
$v = (-0.3 / -.1); print "not " if $v ne q{3}; print 'ok 3450 - (-0.3 / -.1) --> ('.$v.")
";
$v = (-0.3 / -.2); print "not " if $v ne q{1.5}; print 'ok 3451 - (-0.3 / -.2) --> ('.$v.")
";
$v = (-0.3 / -.3); print "not " if $v ne q{1}; print 'ok 3452 - (-0.3 / -.3) --> ('.$v.")
";
$v = (-0.3 / 0.1); print "not " if $v ne q{-3}; print 'ok 3453 - (-0.3 / 0.1) --> ('.$v.")
";
$v = (-0.3 / 0.2); print "not " if $v ne q{-1.5}; print 'ok 3454 - (-0.3 / 0.2) --> ('.$v.")
";
$v = (-0.3 / 0.3); print "not " if $v ne q{-1}; print 'ok 3455 - (-0.3 / 0.3) --> ('.$v.")
";
$v = (-0.3 / -0.1); print "not " if $v ne q{3}; print 'ok 3456 - (-0.3 / -0.1) --> ('.$v.")
";
$v = (-0.3 / -0.2); print "not " if $v ne q{1.5}; print 'ok 3457 - (-0.3 / -0.2) --> ('.$v.")
";
$v = (-0.3 / -0.3); print "not " if $v ne q{1}; print 'ok 3458 - (-0.3 / -0.3) --> ('.$v.")
";
$v = (-0.3 / 0.1e1); print "not " if $v ne q{-0.3}; print 'ok 3459 - (-0.3 / 0.1e1) --> ('.$v.")
";
$v = (-0.3 / 0.2e1); print "not " if $v ne q{-0.15}; print 'ok 3460 - (-0.3 / 0.2e1) --> ('.$v.")
";
$v = (-0.3 / 0.3e1); print "not " if $v ne q{-0.1}; print 'ok 3461 - (-0.3 / 0.3e1) --> ('.$v.")
";
$v = (-0.3 / -0.1e1); print "not " if $v ne q{0.3}; print 'ok 3462 - (-0.3 / -0.1e1) --> ('.$v.")
";
$v = (-0.3 / -0.2e1); print "not " if $v ne q{0.15}; print 'ok 3463 - (-0.3 / -0.2e1) --> ('.$v.")
";
$v = (-0.3 / -0.3e1); print "not " if $v ne q{0.1}; print 'ok 3464 - (-0.3 / -0.3e1) --> ('.$v.")
";
$v = (-0.3 / 10); print "not " if $v ne q{-0.03}; print 'ok 3465 - (-0.3 / 10) --> ('.$v.")
";
$v = (-0.3 / 20); print "not " if $v ne q{-0.015}; print 'ok 3466 - (-0.3 / 20) --> ('.$v.")
";
$v = (-0.3 / 30); print "not " if $v ne q{-0.01}; print 'ok 3467 - (-0.3 / 30) --> ('.$v.")
";
$v = (-0.3 / -10); print "not " if $v ne q{0.03}; print 'ok 3468 - (-0.3 / -10) --> ('.$v.")
";
$v = (-0.3 / -20); print "not " if $v ne q{0.015}; print 'ok 3469 - (-0.3 / -20) --> ('.$v.")
";
$v = (-0.3 / -30); print "not " if $v ne q{0.01}; print 'ok 3470 - (-0.3 / -30) --> ('.$v.")
";
$v = (-0.3 / @ab); print "not " if $v ne q{-0.3}; print 'ok 3471 - (-0.3 / @ab) --> ('.$v.")
";
$v = (-0.3 / @ac); print "not " if $v ne q{-0.1}; print 'ok 3472 - (-0.3 / @ac) --> ('.$v.")
";
$v = (0.e1 / "1"); print "not " if $v ne q{0}; print 'ok 3473 - (0.e1 / "1") --> ('.$v.")
";
$v = (0.e1 / "2"); print "not " if $v ne q{0}; print 'ok 3474 - (0.e1 / "2") --> ('.$v.")
";
$v = (0.e1 / "3"); print "not " if $v ne q{0}; print 'ok 3475 - (0.e1 / "3") --> ('.$v.")
";
$v = (0.e1 / "-1"); print "not " if $v ne q{0}; print 'ok 3476 - (0.e1 / "-1") --> ('.$v.")
";
$v = (0.e1 / "-2"); print "not " if $v ne q{0}; print 'ok 3477 - (0.e1 / "-2") --> ('.$v.")
";
$v = (0.e1 / "-3"); print "not " if $v ne q{0}; print 'ok 3478 - (0.e1 / "-3") --> ('.$v.")
";
$v = (0.e1 / ".1"); print "not " if $v ne q{0}; print 'ok 3479 - (0.e1 / ".1") --> ('.$v.")
";
$v = (0.e1 / ".2"); print "not " if $v ne q{0}; print 'ok 3480 - (0.e1 / ".2") --> ('.$v.")
";
$v = (0.e1 / ".3"); print "not " if $v ne q{0}; print 'ok 3481 - (0.e1 / ".3") --> ('.$v.")
";
$v = (0.e1 / "-.1"); print "not " if $v ne q{0}; print 'ok 3482 - (0.e1 / "-.1") --> ('.$v.")
";
$v = (0.e1 / "-.2"); print "not " if $v ne q{0}; print 'ok 3483 - (0.e1 / "-.2") --> ('.$v.")
";
$v = (0.e1 / "-.3"); print "not " if $v ne q{0}; print 'ok 3484 - (0.e1 / "-.3") --> ('.$v.")
";
$v = (0.e1 / "0.1"); print "not " if $v ne q{0}; print 'ok 3485 - (0.e1 / "0.1") --> ('.$v.")
";
$v = (0.e1 / "0.2"); print "not " if $v ne q{0}; print 'ok 3486 - (0.e1 / "0.2") --> ('.$v.")
";
$v = (0.e1 / "0.3"); print "not " if $v ne q{0}; print 'ok 3487 - (0.e1 / "0.3") --> ('.$v.")
";
$v = (0.e1 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3488 - (0.e1 / "-0.1") --> ('.$v.")
";
$v = (0.e1 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3489 - (0.e1 / "-0.2") --> ('.$v.")
";
$v = (0.e1 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3490 - (0.e1 / "-0.3") --> ('.$v.")
";
$v = (0.e1 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3491 - (0.e1 / "0.1e1") --> ('.$v.")
";
$v = (0.e1 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3492 - (0.e1 / "0.2e1") --> ('.$v.")
";
$v = (0.e1 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3493 - (0.e1 / "0.3e1") --> ('.$v.")
";
$v = (0.e1 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3494 - (0.e1 / "-0.1e1") --> ('.$v.")
";
$v = (0.e1 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3495 - (0.e1 / "-0.2e1") --> ('.$v.")
";
$v = (0.e1 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 3496 - (0.e1 / "-0.3e1") --> ('.$v.")
";
$v = (0.e1 / "10"); print "not " if $v ne q{0}; print 'ok 3497 - (0.e1 / "10") --> ('.$v.")
";
$v = (0.e1 / "20"); print "not " if $v ne q{0}; print 'ok 3498 - (0.e1 / "20") --> ('.$v.")
";
$v = (0.e1 / "30"); print "not " if $v ne q{0}; print 'ok 3499 - (0.e1 / "30") --> ('.$v.")
";
$v = (0.e1 / "-10"); print "not " if $v ne q{0}; print 'ok 3500 - (0.e1 / "-10") --> ('.$v.")
";
$v = (0.e1 / "-20"); print "not " if $v ne q{0}; print 'ok 3501 - (0.e1 / "-20") --> ('.$v.")
";
$v = (0.e1 / "-30"); print "not " if $v ne q{0}; print 'ok 3502 - (0.e1 / "-30") --> ('.$v.")
";
$v = (0.e1 / .1); print "not " if $v ne q{0}; print 'ok 3503 - (0.e1 / .1) --> ('.$v.")
";
$v = (0.e1 / .2); print "not " if $v ne q{0}; print 'ok 3504 - (0.e1 / .2) --> ('.$v.")
";
$v = (0.e1 / .3); print "not " if $v ne q{0}; print 'ok 3505 - (0.e1 / .3) --> ('.$v.")
";
$v = (0.e1 / -.1); print "not " if $v ne q{0}; print 'ok 3506 - (0.e1 / -.1) --> ('.$v.")
";
$v = (0.e1 / -.2); print "not " if $v ne q{0}; print 'ok 3507 - (0.e1 / -.2) --> ('.$v.")
";
$v = (0.e1 / -.3); print "not " if $v ne q{0}; print 'ok 3508 - (0.e1 / -.3) --> ('.$v.")
";
$v = (0.e1 / 0.1); print "not " if $v ne q{0}; print 'ok 3509 - (0.e1 / 0.1) --> ('.$v.")
";
$v = (0.e1 / 0.2); print "not " if $v ne q{0}; print 'ok 3510 - (0.e1 / 0.2) --> ('.$v.")
";
$v = (0.e1 / 0.3); print "not " if $v ne q{0}; print 'ok 3511 - (0.e1 / 0.3) --> ('.$v.")
";
$v = (0.e1 / -0.1); print "not " if $v ne q{0}; print 'ok 3512 - (0.e1 / -0.1) --> ('.$v.")
";
$v = (0.e1 / -0.2); print "not " if $v ne q{0}; print 'ok 3513 - (0.e1 / -0.2) --> ('.$v.")
";
$v = (0.e1 / -0.3); print "not " if $v ne q{0}; print 'ok 3514 - (0.e1 / -0.3) --> ('.$v.")
";
$v = (0.e1 / 0.1e1); print "not " if $v ne q{0}; print 'ok 3515 - (0.e1 / 0.1e1) --> ('.$v.")
";
$v = (0.e1 / 0.2e1); print "not " if $v ne q{0}; print 'ok 3516 - (0.e1 / 0.2e1) --> ('.$v.")
";
$v = (0.e1 / 0.3e1); print "not " if $v ne q{0}; print 'ok 3517 - (0.e1 / 0.3e1) --> ('.$v.")
";
$v = (0.e1 / -0.1e1); print "not " if $v ne q{0}; print 'ok 3518 - (0.e1 / -0.1e1) --> ('.$v.")
";
$v = (0.e1 / -0.2e1); print "not " if $v ne q{0}; print 'ok 3519 - (0.e1 / -0.2e1) --> ('.$v.")
";
$v = (0.e1 / -0.3e1); print "not " if $v ne q{0}; print 'ok 3520 - (0.e1 / -0.3e1) --> ('.$v.")
";
$v = (0.e1 / 10); print "not " if $v ne q{0}; print 'ok 3521 - (0.e1 / 10) --> ('.$v.")
";
$v = (0.e1 / 20); print "not " if $v ne q{0}; print 'ok 3522 - (0.e1 / 20) --> ('.$v.")
";
$v = (0.e1 / 30); print "not " if $v ne q{0}; print 'ok 3523 - (0.e1 / 30) --> ('.$v.")
";
$v = (0.e1 / -10); print "not " if $v ne q{0}; print 'ok 3524 - (0.e1 / -10) --> ('.$v.")
";
$v = (0.e1 / -20); print "not " if $v ne q{0}; print 'ok 3525 - (0.e1 / -20) --> ('.$v.")
";
$v = (0.e1 / -30); print "not " if $v ne q{0}; print 'ok 3526 - (0.e1 / -30) --> ('.$v.")
";
$v = (0.e1 / @ab); print "not " if $v ne q{0}; print 'ok 3527 - (0.e1 / @ab) --> ('.$v.")
";
$v = (0.e1 / @ac); print "not " if $v ne q{0}; print 'ok 3528 - (0.e1 / @ac) --> ('.$v.")
";
$v = (0.0e1 / "1"); print "not " if $v ne q{0}; print 'ok 3529 - (0.0e1 / "1") --> ('.$v.")
";
$v = (0.0e1 / "2"); print "not " if $v ne q{0}; print 'ok 3530 - (0.0e1 / "2") --> ('.$v.")
";
$v = (0.0e1 / "3"); print "not " if $v ne q{0}; print 'ok 3531 - (0.0e1 / "3") --> ('.$v.")
";
$v = (0.0e1 / "-1"); print "not " if $v ne q{0}; print 'ok 3532 - (0.0e1 / "-1") --> ('.$v.")
";
$v = (0.0e1 / "-2"); print "not " if $v ne q{0}; print 'ok 3533 - (0.0e1 / "-2") --> ('.$v.")
";
$v = (0.0e1 / "-3"); print "not " if $v ne q{0}; print 'ok 3534 - (0.0e1 / "-3") --> ('.$v.")
";
$v = (0.0e1 / ".1"); print "not " if $v ne q{0}; print 'ok 3535 - (0.0e1 / ".1") --> ('.$v.")
";
$v = (0.0e1 / ".2"); print "not " if $v ne q{0}; print 'ok 3536 - (0.0e1 / ".2") --> ('.$v.")
";
$v = (0.0e1 / ".3"); print "not " if $v ne q{0}; print 'ok 3537 - (0.0e1 / ".3") --> ('.$v.")
";
$v = (0.0e1 / "-.1"); print "not " if $v ne q{0}; print 'ok 3538 - (0.0e1 / "-.1") --> ('.$v.")
";
$v = (0.0e1 / "-.2"); print "not " if $v ne q{0}; print 'ok 3539 - (0.0e1 / "-.2") --> ('.$v.")
";
$v = (0.0e1 / "-.3"); print "not " if $v ne q{0}; print 'ok 3540 - (0.0e1 / "-.3") --> ('.$v.")
";
$v = (0.0e1 / "0.1"); print "not " if $v ne q{0}; print 'ok 3541 - (0.0e1 / "0.1") --> ('.$v.")
";
$v = (0.0e1 / "0.2"); print "not " if $v ne q{0}; print 'ok 3542 - (0.0e1 / "0.2") --> ('.$v.")
";
$v = (0.0e1 / "0.3"); print "not " if $v ne q{0}; print 'ok 3543 - (0.0e1 / "0.3") --> ('.$v.")
";
$v = (0.0e1 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3544 - (0.0e1 / "-0.1") --> ('.$v.")
";
$v = (0.0e1 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3545 - (0.0e1 / "-0.2") --> ('.$v.")
";
$v = (0.0e1 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3546 - (0.0e1 / "-0.3") --> ('.$v.")
";
$v = (0.0e1 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3547 - (0.0e1 / "0.1e1") --> ('.$v.")
";
$v = (0.0e1 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3548 - (0.0e1 / "0.2e1") --> ('.$v.")
";
$v = (0.0e1 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3549 - (0.0e1 / "0.3e1") --> ('.$v.")
";
$v = (0.0e1 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3550 - (0.0e1 / "-0.1e1") --> ('.$v.")
";
$v = (0.0e1 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3551 - (0.0e1 / "-0.2e1") --> ('.$v.")
";
$v = (0.0e1 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 3552 - (0.0e1 / "-0.3e1") --> ('.$v.")
";
$v = (0.0e1 / "10"); print "not " if $v ne q{0}; print 'ok 3553 - (0.0e1 / "10") --> ('.$v.")
";
$v = (0.0e1 / "20"); print "not " if $v ne q{0}; print 'ok 3554 - (0.0e1 / "20") --> ('.$v.")
";
$v = (0.0e1 / "30"); print "not " if $v ne q{0}; print 'ok 3555 - (0.0e1 / "30") --> ('.$v.")
";
$v = (0.0e1 / "-10"); print "not " if $v ne q{0}; print 'ok 3556 - (0.0e1 / "-10") --> ('.$v.")
";
$v = (0.0e1 / "-20"); print "not " if $v ne q{0}; print 'ok 3557 - (0.0e1 / "-20") --> ('.$v.")
";
$v = (0.0e1 / "-30"); print "not " if $v ne q{0}; print 'ok 3558 - (0.0e1 / "-30") --> ('.$v.")
";
$v = (0.0e1 / .1); print "not " if $v ne q{0}; print 'ok 3559 - (0.0e1 / .1) --> ('.$v.")
";
$v = (0.0e1 / .2); print "not " if $v ne q{0}; print 'ok 3560 - (0.0e1 / .2) --> ('.$v.")
";
$v = (0.0e1 / .3); print "not " if $v ne q{0}; print 'ok 3561 - (0.0e1 / .3) --> ('.$v.")
";
$v = (0.0e1 / -.1); print "not " if $v ne q{0}; print 'ok 3562 - (0.0e1 / -.1) --> ('.$v.")
";
$v = (0.0e1 / -.2); print "not " if $v ne q{0}; print 'ok 3563 - (0.0e1 / -.2) --> ('.$v.")
";
$v = (0.0e1 / -.3); print "not " if $v ne q{0}; print 'ok 3564 - (0.0e1 / -.3) --> ('.$v.")
";
$v = (0.0e1 / 0.1); print "not " if $v ne q{0}; print 'ok 3565 - (0.0e1 / 0.1) --> ('.$v.")
";
$v = (0.0e1 / 0.2); print "not " if $v ne q{0}; print 'ok 3566 - (0.0e1 / 0.2) --> ('.$v.")
";
$v = (0.0e1 / 0.3); print "not " if $v ne q{0}; print 'ok 3567 - (0.0e1 / 0.3) --> ('.$v.")
";
$v = (0.0e1 / -0.1); print "not " if $v ne q{0}; print 'ok 3568 - (0.0e1 / -0.1) --> ('.$v.")
";
$v = (0.0e1 / -0.2); print "not " if $v ne q{0}; print 'ok 3569 - (0.0e1 / -0.2) --> ('.$v.")
";
$v = (0.0e1 / -0.3); print "not " if $v ne q{0}; print 'ok 3570 - (0.0e1 / -0.3) --> ('.$v.")
";
$v = (0.0e1 / 0.1e1); print "not " if $v ne q{0}; print 'ok 3571 - (0.0e1 / 0.1e1) --> ('.$v.")
";
$v = (0.0e1 / 0.2e1); print "not " if $v ne q{0}; print 'ok 3572 - (0.0e1 / 0.2e1) --> ('.$v.")
";
$v = (0.0e1 / 0.3e1); print "not " if $v ne q{0}; print 'ok 3573 - (0.0e1 / 0.3e1) --> ('.$v.")
";
$v = (0.0e1 / -0.1e1); print "not " if $v ne q{0}; print 'ok 3574 - (0.0e1 / -0.1e1) --> ('.$v.")
";
$v = (0.0e1 / -0.2e1); print "not " if $v ne q{0}; print 'ok 3575 - (0.0e1 / -0.2e1) --> ('.$v.")
";
$v = (0.0e1 / -0.3e1); print "not " if $v ne q{0}; print 'ok 3576 - (0.0e1 / -0.3e1) --> ('.$v.")
";
$v = (0.0e1 / 10); print "not " if $v ne q{0}; print 'ok 3577 - (0.0e1 / 10) --> ('.$v.")
";
$v = (0.0e1 / 20); print "not " if $v ne q{0}; print 'ok 3578 - (0.0e1 / 20) --> ('.$v.")
";
$v = (0.0e1 / 30); print "not " if $v ne q{0}; print 'ok 3579 - (0.0e1 / 30) --> ('.$v.")
";
$v = (0.0e1 / -10); print "not " if $v ne q{0}; print 'ok 3580 - (0.0e1 / -10) --> ('.$v.")
";
$v = (0.0e1 / -20); print "not " if $v ne q{0}; print 'ok 3581 - (0.0e1 / -20) --> ('.$v.")
";
$v = (0.0e1 / -30); print "not " if $v ne q{0}; print 'ok 3582 - (0.0e1 / -30) --> ('.$v.")
";
$v = (0.0e1 / @ab); print "not " if $v ne q{0}; print 'ok 3583 - (0.0e1 / @ab) --> ('.$v.")
";
$v = (0.0e1 / @ac); print "not " if $v ne q{0}; print 'ok 3584 - (0.0e1 / @ac) --> ('.$v.")
";
$v = (0.1e1 / "1"); print "not " if $v ne q{1}; print 'ok 3585 - (0.1e1 / "1") --> ('.$v.")
";
$v = (0.1e1 / "2"); print "not " if $v ne q{0.5}; print 'ok 3586 - (0.1e1 / "2") --> ('.$v.")
";
$v = (0.1e1 / "3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3587 - (0.1e1 / "3") --> ('.$v.")
";
$v = (0.1e1 / "-1"); print "not " if $v ne q{-1}; print 'ok 3588 - (0.1e1 / "-1") --> ('.$v.")
";
$v = (0.1e1 / "-2"); print "not " if $v ne q{-0.5}; print 'ok 3589 - (0.1e1 / "-2") --> ('.$v.")
";
$v = (0.1e1 / "-3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3590 - (0.1e1 / "-3") --> ('.$v.")
";
$v = (0.1e1 / ".1"); print "not " if $v ne q{10}; print 'ok 3591 - (0.1e1 / ".1") --> ('.$v.")
";
$v = (0.1e1 / ".2"); print "not " if $v ne q{5}; print 'ok 3592 - (0.1e1 / ".2") --> ('.$v.")
";
$v = (0.1e1 / ".3"); print "not " if $v ne q{3.33333333333333}; print 'ok 3593 - (0.1e1 / ".3") --> ('.$v.")
";
$v = (0.1e1 / "-.1"); print "not " if $v ne q{-10}; print 'ok 3594 - (0.1e1 / "-.1") --> ('.$v.")
";
$v = (0.1e1 / "-.2"); print "not " if $v ne q{-5}; print 'ok 3595 - (0.1e1 / "-.2") --> ('.$v.")
";
$v = (0.1e1 / "-.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 3596 - (0.1e1 / "-.3") --> ('.$v.")
";
$v = (0.1e1 / "0.1"); print "not " if $v ne q{10}; print 'ok 3597 - (0.1e1 / "0.1") --> ('.$v.")
";
$v = (0.1e1 / "0.2"); print "not " if $v ne q{5}; print 'ok 3598 - (0.1e1 / "0.2") --> ('.$v.")
";
$v = (0.1e1 / "0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 3599 - (0.1e1 / "0.3") --> ('.$v.")
";
$v = (0.1e1 / "-0.1"); print "not " if $v ne q{-10}; print 'ok 3600 - (0.1e1 / "-0.1") --> ('.$v.")
";
$v = (0.1e1 / "-0.2"); print "not " if $v ne q{-5}; print 'ok 3601 - (0.1e1 / "-0.2") --> ('.$v.")
";
$v = (0.1e1 / "-0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 3602 - (0.1e1 / "-0.3") --> ('.$v.")
";
$v = (0.1e1 / "0.1e1"); print "not " if $v ne q{1}; print 'ok 3603 - (0.1e1 / "0.1e1") --> ('.$v.")
";
$v = (0.1e1 / "0.2e1"); print "not " if $v ne q{0.5}; print 'ok 3604 - (0.1e1 / "0.2e1") --> ('.$v.")
";
$v = (0.1e1 / "0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 3605 - (0.1e1 / "0.3e1") --> ('.$v.")
";
$v = (0.1e1 / "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 3606 - (0.1e1 / "-0.1e1") --> ('.$v.")
";
$v = (0.1e1 / "-0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 3607 - (0.1e1 / "-0.2e1") --> ('.$v.")
";
$v = (0.1e1 / "-0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3608 - (0.1e1 / "-0.3e1") --> ('.$v.")
";
$v = (0.1e1 / "10"); print "not " if $v ne q{0.1}; print 'ok 3609 - (0.1e1 / "10") --> ('.$v.")
";
$v = (0.1e1 / "20"); print "not " if $v ne q{0.05}; print 'ok 3610 - (0.1e1 / "20") --> ('.$v.")
";
$v = (0.1e1 / "30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3611 - (0.1e1 / "30") --> ('.$v.")
";
$v = (0.1e1 / "-10"); print "not " if $v ne q{-0.1}; print 'ok 3612 - (0.1e1 / "-10") --> ('.$v.")
";
$v = (0.1e1 / "-20"); print "not " if $v ne q{-0.05}; print 'ok 3613 - (0.1e1 / "-20") --> ('.$v.")
";
$v = (0.1e1 / "-30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3614 - (0.1e1 / "-30") --> ('.$v.")
";
$v = (0.1e1 / .1); print "not " if $v ne q{10}; print 'ok 3615 - (0.1e1 / .1) --> ('.$v.")
";
$v = (0.1e1 / .2); print "not " if $v ne q{5}; print 'ok 3616 - (0.1e1 / .2) --> ('.$v.")
";
$v = (0.1e1 / .3); print "not " if $v ne q{3.33333333333333}; print 'ok 3617 - (0.1e1 / .3) --> ('.$v.")
";
$v = (0.1e1 / -.1); print "not " if $v ne q{-10}; print 'ok 3618 - (0.1e1 / -.1) --> ('.$v.")
";
$v = (0.1e1 / -.2); print "not " if $v ne q{-5}; print 'ok 3619 - (0.1e1 / -.2) --> ('.$v.")
";
$v = (0.1e1 / -.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 3620 - (0.1e1 / -.3) --> ('.$v.")
";
$v = (0.1e1 / 0.1); print "not " if $v ne q{10}; print 'ok 3621 - (0.1e1 / 0.1) --> ('.$v.")
";
$v = (0.1e1 / 0.2); print "not " if $v ne q{5}; print 'ok 3622 - (0.1e1 / 0.2) --> ('.$v.")
";
$v = (0.1e1 / 0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 3623 - (0.1e1 / 0.3) --> ('.$v.")
";
$v = (0.1e1 / -0.1); print "not " if $v ne q{-10}; print 'ok 3624 - (0.1e1 / -0.1) --> ('.$v.")
";
$v = (0.1e1 / -0.2); print "not " if $v ne q{-5}; print 'ok 3625 - (0.1e1 / -0.2) --> ('.$v.")
";
$v = (0.1e1 / -0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 3626 - (0.1e1 / -0.3) --> ('.$v.")
";
$v = (0.1e1 / 0.1e1); print "not " if $v ne q{1}; print 'ok 3627 - (0.1e1 / 0.1e1) --> ('.$v.")
";
$v = (0.1e1 / 0.2e1); print "not " if $v ne q{0.5}; print 'ok 3628 - (0.1e1 / 0.2e1) --> ('.$v.")
";
$v = (0.1e1 / 0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 3629 - (0.1e1 / 0.3e1) --> ('.$v.")
";
$v = (0.1e1 / -0.1e1); print "not " if $v ne q{-1}; print 'ok 3630 - (0.1e1 / -0.1e1) --> ('.$v.")
";
$v = (0.1e1 / -0.2e1); print "not " if $v ne q{-0.5}; print 'ok 3631 - (0.1e1 / -0.2e1) --> ('.$v.")
";
$v = (0.1e1 / -0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 3632 - (0.1e1 / -0.3e1) --> ('.$v.")
";
$v = (0.1e1 / 10); print "not " if $v ne q{0.1}; print 'ok 3633 - (0.1e1 / 10) --> ('.$v.")
";
$v = (0.1e1 / 20); print "not " if $v ne q{0.05}; print 'ok 3634 - (0.1e1 / 20) --> ('.$v.")
";
$v = (0.1e1 / 30); print "not " if $v ne q{0.0333333333333333}; print 'ok 3635 - (0.1e1 / 30) --> ('.$v.")
";
$v = (0.1e1 / -10); print "not " if $v ne q{-0.1}; print 'ok 3636 - (0.1e1 / -10) --> ('.$v.")
";
$v = (0.1e1 / -20); print "not " if $v ne q{-0.05}; print 'ok 3637 - (0.1e1 / -20) --> ('.$v.")
";
$v = (0.1e1 / -30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3638 - (0.1e1 / -30) --> ('.$v.")
";
$v = (0.1e1 / @ab); print "not " if $v ne q{1}; print 'ok 3639 - (0.1e1 / @ab) --> ('.$v.")
";
$v = (0.1e1 / @ac); print "not " if $v ne q{0.333333333333333}; print 'ok 3640 - (0.1e1 / @ac) --> ('.$v.")
";
$v = (0.2e1 / "1"); print "not " if $v ne q{2}; print 'ok 3641 - (0.2e1 / "1") --> ('.$v.")
";
$v = (0.2e1 / "2"); print "not " if $v ne q{1}; print 'ok 3642 - (0.2e1 / "2") --> ('.$v.")
";
$v = (0.2e1 / "3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3643 - (0.2e1 / "3") --> ('.$v.")
";
$v = (0.2e1 / "-1"); print "not " if $v ne q{-2}; print 'ok 3644 - (0.2e1 / "-1") --> ('.$v.")
";
$v = (0.2e1 / "-2"); print "not " if $v ne q{-1}; print 'ok 3645 - (0.2e1 / "-2") --> ('.$v.")
";
$v = (0.2e1 / "-3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3646 - (0.2e1 / "-3") --> ('.$v.")
";
$v = (0.2e1 / ".1"); print "not " if $v ne q{20}; print 'ok 3647 - (0.2e1 / ".1") --> ('.$v.")
";
$v = (0.2e1 / ".2"); print "not " if $v ne q{10}; print 'ok 3648 - (0.2e1 / ".2") --> ('.$v.")
";
$v = (0.2e1 / ".3"); print "not " if $v ne q{6.66666666666667}; print 'ok 3649 - (0.2e1 / ".3") --> ('.$v.")
";
$v = (0.2e1 / "-.1"); print "not " if $v ne q{-20}; print 'ok 3650 - (0.2e1 / "-.1") --> ('.$v.")
";
$v = (0.2e1 / "-.2"); print "not " if $v ne q{-10}; print 'ok 3651 - (0.2e1 / "-.2") --> ('.$v.")
";
$v = (0.2e1 / "-.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 3652 - (0.2e1 / "-.3") --> ('.$v.")
";
$v = (0.2e1 / "0.1"); print "not " if $v ne q{20}; print 'ok 3653 - (0.2e1 / "0.1") --> ('.$v.")
";
$v = (0.2e1 / "0.2"); print "not " if $v ne q{10}; print 'ok 3654 - (0.2e1 / "0.2") --> ('.$v.")
";
$v = (0.2e1 / "0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 3655 - (0.2e1 / "0.3") --> ('.$v.")
";
$v = (0.2e1 / "-0.1"); print "not " if $v ne q{-20}; print 'ok 3656 - (0.2e1 / "-0.1") --> ('.$v.")
";
$v = (0.2e1 / "-0.2"); print "not " if $v ne q{-10}; print 'ok 3657 - (0.2e1 / "-0.2") --> ('.$v.")
";
$v = (0.2e1 / "-0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 3658 - (0.2e1 / "-0.3") --> ('.$v.")
";
$v = (0.2e1 / "0.1e1"); print "not " if $v ne q{2}; print 'ok 3659 - (0.2e1 / "0.1e1") --> ('.$v.")
";
$v = (0.2e1 / "0.2e1"); print "not " if $v ne q{1}; print 'ok 3660 - (0.2e1 / "0.2e1") --> ('.$v.")
";
$v = (0.2e1 / "0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 3661 - (0.2e1 / "0.3e1") --> ('.$v.")
";
$v = (0.2e1 / "-0.1e1"); print "not " if $v ne q{-2}; print 'ok 3662 - (0.2e1 / "-0.1e1") --> ('.$v.")
";
$v = (0.2e1 / "-0.2e1"); print "not " if $v ne q{-1}; print 'ok 3663 - (0.2e1 / "-0.2e1") --> ('.$v.")
";
$v = (0.2e1 / "-0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3664 - (0.2e1 / "-0.3e1") --> ('.$v.")
";
$v = (0.2e1 / "10"); print "not " if $v ne q{0.2}; print 'ok 3665 - (0.2e1 / "10") --> ('.$v.")
";
$v = (0.2e1 / "20"); print "not " if $v ne q{0.1}; print 'ok 3666 - (0.2e1 / "20") --> ('.$v.")
";
$v = (0.2e1 / "30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3667 - (0.2e1 / "30") --> ('.$v.")
";
$v = (0.2e1 / "-10"); print "not " if $v ne q{-0.2}; print 'ok 3668 - (0.2e1 / "-10") --> ('.$v.")
";
$v = (0.2e1 / "-20"); print "not " if $v ne q{-0.1}; print 'ok 3669 - (0.2e1 / "-20") --> ('.$v.")
";
$v = (0.2e1 / "-30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3670 - (0.2e1 / "-30") --> ('.$v.")
";
$v = (0.2e1 / .1); print "not " if $v ne q{20}; print 'ok 3671 - (0.2e1 / .1) --> ('.$v.")
";
$v = (0.2e1 / .2); print "not " if $v ne q{10}; print 'ok 3672 - (0.2e1 / .2) --> ('.$v.")
";
$v = (0.2e1 / .3); print "not " if $v ne q{6.66666666666667}; print 'ok 3673 - (0.2e1 / .3) --> ('.$v.")
";
$v = (0.2e1 / -.1); print "not " if $v ne q{-20}; print 'ok 3674 - (0.2e1 / -.1) --> ('.$v.")
";
$v = (0.2e1 / -.2); print "not " if $v ne q{-10}; print 'ok 3675 - (0.2e1 / -.2) --> ('.$v.")
";
$v = (0.2e1 / -.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 3676 - (0.2e1 / -.3) --> ('.$v.")
";
$v = (0.2e1 / 0.1); print "not " if $v ne q{20}; print 'ok 3677 - (0.2e1 / 0.1) --> ('.$v.")
";
$v = (0.2e1 / 0.2); print "not " if $v ne q{10}; print 'ok 3678 - (0.2e1 / 0.2) --> ('.$v.")
";
$v = (0.2e1 / 0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 3679 - (0.2e1 / 0.3) --> ('.$v.")
";
$v = (0.2e1 / -0.1); print "not " if $v ne q{-20}; print 'ok 3680 - (0.2e1 / -0.1) --> ('.$v.")
";
$v = (0.2e1 / -0.2); print "not " if $v ne q{-10}; print 'ok 3681 - (0.2e1 / -0.2) --> ('.$v.")
";
$v = (0.2e1 / -0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 3682 - (0.2e1 / -0.3) --> ('.$v.")
";
$v = (0.2e1 / 0.1e1); print "not " if $v ne q{2}; print 'ok 3683 - (0.2e1 / 0.1e1) --> ('.$v.")
";
$v = (0.2e1 / 0.2e1); print "not " if $v ne q{1}; print 'ok 3684 - (0.2e1 / 0.2e1) --> ('.$v.")
";
$v = (0.2e1 / 0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 3685 - (0.2e1 / 0.3e1) --> ('.$v.")
";
$v = (0.2e1 / -0.1e1); print "not " if $v ne q{-2}; print 'ok 3686 - (0.2e1 / -0.1e1) --> ('.$v.")
";
$v = (0.2e1 / -0.2e1); print "not " if $v ne q{-1}; print 'ok 3687 - (0.2e1 / -0.2e1) --> ('.$v.")
";
$v = (0.2e1 / -0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 3688 - (0.2e1 / -0.3e1) --> ('.$v.")
";
$v = (0.2e1 / 10); print "not " if $v ne q{0.2}; print 'ok 3689 - (0.2e1 / 10) --> ('.$v.")
";
$v = (0.2e1 / 20); print "not " if $v ne q{0.1}; print 'ok 3690 - (0.2e1 / 20) --> ('.$v.")
";
$v = (0.2e1 / 30); print "not " if $v ne q{0.0666666666666667}; print 'ok 3691 - (0.2e1 / 30) --> ('.$v.")
";
$v = (0.2e1 / -10); print "not " if $v ne q{-0.2}; print 'ok 3692 - (0.2e1 / -10) --> ('.$v.")
";
$v = (0.2e1 / -20); print "not " if $v ne q{-0.1}; print 'ok 3693 - (0.2e1 / -20) --> ('.$v.")
";
$v = (0.2e1 / -30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3694 - (0.2e1 / -30) --> ('.$v.")
";
$v = (0.2e1 / @ab); print "not " if $v ne q{2}; print 'ok 3695 - (0.2e1 / @ab) --> ('.$v.")
";
$v = (0.2e1 / @ac); print "not " if $v ne q{0.666666666666667}; print 'ok 3696 - (0.2e1 / @ac) --> ('.$v.")
";
$v = (0.3e1 / "1"); print "not " if $v ne q{3}; print 'ok 3697 - (0.3e1 / "1") --> ('.$v.")
";
$v = (0.3e1 / "2"); print "not " if $v ne q{1.5}; print 'ok 3698 - (0.3e1 / "2") --> ('.$v.")
";
$v = (0.3e1 / "3"); print "not " if $v ne q{1}; print 'ok 3699 - (0.3e1 / "3") --> ('.$v.")
";
$v = (0.3e1 / "-1"); print "not " if $v ne q{-3}; print 'ok 3700 - (0.3e1 / "-1") --> ('.$v.")
";
$v = (0.3e1 / "-2"); print "not " if $v ne q{-1.5}; print 'ok 3701 - (0.3e1 / "-2") --> ('.$v.")
";
$v = (0.3e1 / "-3"); print "not " if $v ne q{-1}; print 'ok 3702 - (0.3e1 / "-3") --> ('.$v.")
";
$v = (0.3e1 / ".1"); print "not " if $v ne q{30}; print 'ok 3703 - (0.3e1 / ".1") --> ('.$v.")
";
$v = (0.3e1 / ".2"); print "not " if $v ne q{15}; print 'ok 3704 - (0.3e1 / ".2") --> ('.$v.")
";
$v = (0.3e1 / ".3"); print "not " if $v ne q{10}; print 'ok 3705 - (0.3e1 / ".3") --> ('.$v.")
";
$v = (0.3e1 / "-.1"); print "not " if $v ne q{-30}; print 'ok 3706 - (0.3e1 / "-.1") --> ('.$v.")
";
$v = (0.3e1 / "-.2"); print "not " if $v ne q{-15}; print 'ok 3707 - (0.3e1 / "-.2") --> ('.$v.")
";
$v = (0.3e1 / "-.3"); print "not " if $v ne q{-10}; print 'ok 3708 - (0.3e1 / "-.3") --> ('.$v.")
";
$v = (0.3e1 / "0.1"); print "not " if $v ne q{30}; print 'ok 3709 - (0.3e1 / "0.1") --> ('.$v.")
";
$v = (0.3e1 / "0.2"); print "not " if $v ne q{15}; print 'ok 3710 - (0.3e1 / "0.2") --> ('.$v.")
";
$v = (0.3e1 / "0.3"); print "not " if $v ne q{10}; print 'ok 3711 - (0.3e1 / "0.3") --> ('.$v.")
";
$v = (0.3e1 / "-0.1"); print "not " if $v ne q{-30}; print 'ok 3712 - (0.3e1 / "-0.1") --> ('.$v.")
";
$v = (0.3e1 / "-0.2"); print "not " if $v ne q{-15}; print 'ok 3713 - (0.3e1 / "-0.2") --> ('.$v.")
";
$v = (0.3e1 / "-0.3"); print "not " if $v ne q{-10}; print 'ok 3714 - (0.3e1 / "-0.3") --> ('.$v.")
";
$v = (0.3e1 / "0.1e1"); print "not " if $v ne q{3}; print 'ok 3715 - (0.3e1 / "0.1e1") --> ('.$v.")
";
$v = (0.3e1 / "0.2e1"); print "not " if $v ne q{1.5}; print 'ok 3716 - (0.3e1 / "0.2e1") --> ('.$v.")
";
$v = (0.3e1 / "0.3e1"); print "not " if $v ne q{1}; print 'ok 3717 - (0.3e1 / "0.3e1") --> ('.$v.")
";
$v = (0.3e1 / "-0.1e1"); print "not " if $v ne q{-3}; print 'ok 3718 - (0.3e1 / "-0.1e1") --> ('.$v.")
";
$v = (0.3e1 / "-0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 3719 - (0.3e1 / "-0.2e1") --> ('.$v.")
";
$v = (0.3e1 / "-0.3e1"); print "not " if $v ne q{-1}; print 'ok 3720 - (0.3e1 / "-0.3e1") --> ('.$v.")
";
$v = (0.3e1 / "10"); print "not " if $v ne q{0.3}; print 'ok 3721 - (0.3e1 / "10") --> ('.$v.")
";
$v = (0.3e1 / "20"); print "not " if $v ne q{0.15}; print 'ok 3722 - (0.3e1 / "20") --> ('.$v.")
";
$v = (0.3e1 / "30"); print "not " if $v ne q{0.1}; print 'ok 3723 - (0.3e1 / "30") --> ('.$v.")
";
$v = (0.3e1 / "-10"); print "not " if $v ne q{-0.3}; print 'ok 3724 - (0.3e1 / "-10") --> ('.$v.")
";
$v = (0.3e1 / "-20"); print "not " if $v ne q{-0.15}; print 'ok 3725 - (0.3e1 / "-20") --> ('.$v.")
";
$v = (0.3e1 / "-30"); print "not " if $v ne q{-0.1}; print 'ok 3726 - (0.3e1 / "-30") --> ('.$v.")
";
$v = (0.3e1 / .1); print "not " if $v ne q{30}; print 'ok 3727 - (0.3e1 / .1) --> ('.$v.")
";
$v = (0.3e1 / .2); print "not " if $v ne q{15}; print 'ok 3728 - (0.3e1 / .2) --> ('.$v.")
";
$v = (0.3e1 / .3); print "not " if $v ne q{10}; print 'ok 3729 - (0.3e1 / .3) --> ('.$v.")
";
$v = (0.3e1 / -.1); print "not " if $v ne q{-30}; print 'ok 3730 - (0.3e1 / -.1) --> ('.$v.")
";
$v = (0.3e1 / -.2); print "not " if $v ne q{-15}; print 'ok 3731 - (0.3e1 / -.2) --> ('.$v.")
";
$v = (0.3e1 / -.3); print "not " if $v ne q{-10}; print 'ok 3732 - (0.3e1 / -.3) --> ('.$v.")
";
$v = (0.3e1 / 0.1); print "not " if $v ne q{30}; print 'ok 3733 - (0.3e1 / 0.1) --> ('.$v.")
";
$v = (0.3e1 / 0.2); print "not " if $v ne q{15}; print 'ok 3734 - (0.3e1 / 0.2) --> ('.$v.")
";
$v = (0.3e1 / 0.3); print "not " if $v ne q{10}; print 'ok 3735 - (0.3e1 / 0.3) --> ('.$v.")
";
$v = (0.3e1 / -0.1); print "not " if $v ne q{-30}; print 'ok 3736 - (0.3e1 / -0.1) --> ('.$v.")
";
$v = (0.3e1 / -0.2); print "not " if $v ne q{-15}; print 'ok 3737 - (0.3e1 / -0.2) --> ('.$v.")
";
$v = (0.3e1 / -0.3); print "not " if $v ne q{-10}; print 'ok 3738 - (0.3e1 / -0.3) --> ('.$v.")
";
$v = (0.3e1 / 0.1e1); print "not " if $v ne q{3}; print 'ok 3739 - (0.3e1 / 0.1e1) --> ('.$v.")
";
$v = (0.3e1 / 0.2e1); print "not " if $v ne q{1.5}; print 'ok 3740 - (0.3e1 / 0.2e1) --> ('.$v.")
";
$v = (0.3e1 / 0.3e1); print "not " if $v ne q{1}; print 'ok 3741 - (0.3e1 / 0.3e1) --> ('.$v.")
";
$v = (0.3e1 / -0.1e1); print "not " if $v ne q{-3}; print 'ok 3742 - (0.3e1 / -0.1e1) --> ('.$v.")
";
$v = (0.3e1 / -0.2e1); print "not " if $v ne q{-1.5}; print 'ok 3743 - (0.3e1 / -0.2e1) --> ('.$v.")
";
$v = (0.3e1 / -0.3e1); print "not " if $v ne q{-1}; print 'ok 3744 - (0.3e1 / -0.3e1) --> ('.$v.")
";
$v = (0.3e1 / 10); print "not " if $v ne q{0.3}; print 'ok 3745 - (0.3e1 / 10) --> ('.$v.")
";
$v = (0.3e1 / 20); print "not " if $v ne q{0.15}; print 'ok 3746 - (0.3e1 / 20) --> ('.$v.")
";
$v = (0.3e1 / 30); print "not " if $v ne q{0.1}; print 'ok 3747 - (0.3e1 / 30) --> ('.$v.")
";
$v = (0.3e1 / -10); print "not " if $v ne q{-0.3}; print 'ok 3748 - (0.3e1 / -10) --> ('.$v.")
";
$v = (0.3e1 / -20); print "not " if $v ne q{-0.15}; print 'ok 3749 - (0.3e1 / -20) --> ('.$v.")
";
$v = (0.3e1 / -30); print "not " if $v ne q{-0.1}; print 'ok 3750 - (0.3e1 / -30) --> ('.$v.")
";
$v = (0.3e1 / @ab); print "not " if $v ne q{3}; print 'ok 3751 - (0.3e1 / @ab) --> ('.$v.")
";
$v = (0.3e1 / @ac); print "not " if $v ne q{1}; print 'ok 3752 - (0.3e1 / @ac) --> ('.$v.")
";
$v = (-0.0e1 / "1"); print "not " if $v ne q{0}; print 'ok 3753 - (-0.0e1 / "1") --> ('.$v.")
";
$v = (-0.0e1 / "2"); print "not " if $v ne q{0}; print 'ok 3754 - (-0.0e1 / "2") --> ('.$v.")
";
$v = (-0.0e1 / "3"); print "not " if $v ne q{0}; print 'ok 3755 - (-0.0e1 / "3") --> ('.$v.")
";
$v = (-0.0e1 / "-1"); print "not " if $v ne q{0}; print 'ok 3756 - (-0.0e1 / "-1") --> ('.$v.")
";
$v = (-0.0e1 / "-2"); print "not " if $v ne q{0}; print 'ok 3757 - (-0.0e1 / "-2") --> ('.$v.")
";
$v = (-0.0e1 / "-3"); print "not " if $v ne q{0}; print 'ok 3758 - (-0.0e1 / "-3") --> ('.$v.")
";
$v = (-0.0e1 / ".1"); print "not " if $v ne q{0}; print 'ok 3759 - (-0.0e1 / ".1") --> ('.$v.")
";
$v = (-0.0e1 / ".2"); print "not " if $v ne q{0}; print 'ok 3760 - (-0.0e1 / ".2") --> ('.$v.")
";
$v = (-0.0e1 / ".3"); print "not " if $v ne q{0}; print 'ok 3761 - (-0.0e1 / ".3") --> ('.$v.")
";
$v = (-0.0e1 / "-.1"); print "not " if $v ne q{0}; print 'ok 3762 - (-0.0e1 / "-.1") --> ('.$v.")
";
$v = (-0.0e1 / "-.2"); print "not " if $v ne q{0}; print 'ok 3763 - (-0.0e1 / "-.2") --> ('.$v.")
";
$v = (-0.0e1 / "-.3"); print "not " if $v ne q{0}; print 'ok 3764 - (-0.0e1 / "-.3") --> ('.$v.")
";
$v = (-0.0e1 / "0.1"); print "not " if $v ne q{0}; print 'ok 3765 - (-0.0e1 / "0.1") --> ('.$v.")
";
$v = (-0.0e1 / "0.2"); print "not " if $v ne q{0}; print 'ok 3766 - (-0.0e1 / "0.2") --> ('.$v.")
";
$v = (-0.0e1 / "0.3"); print "not " if $v ne q{0}; print 'ok 3767 - (-0.0e1 / "0.3") --> ('.$v.")
";
$v = (-0.0e1 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3768 - (-0.0e1 / "-0.1") --> ('.$v.")
";
$v = (-0.0e1 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3769 - (-0.0e1 / "-0.2") --> ('.$v.")
";
$v = (-0.0e1 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3770 - (-0.0e1 / "-0.3") --> ('.$v.")
";
$v = (-0.0e1 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3771 - (-0.0e1 / "0.1e1") --> ('.$v.")
";
$v = (-0.0e1 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3772 - (-0.0e1 / "0.2e1") --> ('.$v.")
";
$v = (-0.0e1 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3773 - (-0.0e1 / "0.3e1") --> ('.$v.")
";
$v = (-0.0e1 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3774 - (-0.0e1 / "-0.1e1") --> ('.$v.")
";
$v = (-0.0e1 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3775 - (-0.0e1 / "-0.2e1") --> ('.$v.")
";
$v = (-0.0e1 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 3776 - (-0.0e1 / "-0.3e1") --> ('.$v.")
";
$v = (-0.0e1 / "10"); print "not " if $v ne q{0}; print 'ok 3777 - (-0.0e1 / "10") --> ('.$v.")
";
$v = (-0.0e1 / "20"); print "not " if $v ne q{0}; print 'ok 3778 - (-0.0e1 / "20") --> ('.$v.")
";
$v = (-0.0e1 / "30"); print "not " if $v ne q{0}; print 'ok 3779 - (-0.0e1 / "30") --> ('.$v.")
";
$v = (-0.0e1 / "-10"); print "not " if $v ne q{0}; print 'ok 3780 - (-0.0e1 / "-10") --> ('.$v.")
";
$v = (-0.0e1 / "-20"); print "not " if $v ne q{0}; print 'ok 3781 - (-0.0e1 / "-20") --> ('.$v.")
";
$v = (-0.0e1 / "-30"); print "not " if $v ne q{0}; print 'ok 3782 - (-0.0e1 / "-30") --> ('.$v.")
";
$v = (-0.0e1 / .1); print "not " if $v ne q{0}; print 'ok 3783 - (-0.0e1 / .1) --> ('.$v.")
";
$v = (-0.0e1 / .2); print "not " if $v ne q{0}; print 'ok 3784 - (-0.0e1 / .2) --> ('.$v.")
";
$v = (-0.0e1 / .3); print "not " if $v ne q{0}; print 'ok 3785 - (-0.0e1 / .3) --> ('.$v.")
";
$v = (-0.0e1 / -.1); print "not " if $v ne q{0}; print 'ok 3786 - (-0.0e1 / -.1) --> ('.$v.")
";
$v = (-0.0e1 / -.2); print "not " if $v ne q{0}; print 'ok 3787 - (-0.0e1 / -.2) --> ('.$v.")
";
$v = (-0.0e1 / -.3); print "not " if $v ne q{0}; print 'ok 3788 - (-0.0e1 / -.3) --> ('.$v.")
";
$v = (-0.0e1 / 0.1); print "not " if $v ne q{0}; print 'ok 3789 - (-0.0e1 / 0.1) --> ('.$v.")
";
$v = (-0.0e1 / 0.2); print "not " if $v ne q{0}; print 'ok 3790 - (-0.0e1 / 0.2) --> ('.$v.")
";
$v = (-0.0e1 / 0.3); print "not " if $v ne q{0}; print 'ok 3791 - (-0.0e1 / 0.3) --> ('.$v.")
";
$v = (-0.0e1 / -0.1); print "not " if $v ne q{0}; print 'ok 3792 - (-0.0e1 / -0.1) --> ('.$v.")
";
$v = (-0.0e1 / -0.2); print "not " if $v ne q{0}; print 'ok 3793 - (-0.0e1 / -0.2) --> ('.$v.")
";
$v = (-0.0e1 / -0.3); print "not " if $v ne q{0}; print 'ok 3794 - (-0.0e1 / -0.3) --> ('.$v.")
";
$v = (-0.0e1 / 0.1e1); print "not " if $v ne q{0}; print 'ok 3795 - (-0.0e1 / 0.1e1) --> ('.$v.")
";
$v = (-0.0e1 / 0.2e1); print "not " if $v ne q{0}; print 'ok 3796 - (-0.0e1 / 0.2e1) --> ('.$v.")
";
$v = (-0.0e1 / 0.3e1); print "not " if $v ne q{0}; print 'ok 3797 - (-0.0e1 / 0.3e1) --> ('.$v.")
";
$v = (-0.0e1 / -0.1e1); print "not " if $v ne q{0}; print 'ok 3798 - (-0.0e1 / -0.1e1) --> ('.$v.")
";
$v = (-0.0e1 / -0.2e1); print "not " if $v ne q{0}; print 'ok 3799 - (-0.0e1 / -0.2e1) --> ('.$v.")
";
$v = (-0.0e1 / -0.3e1); print "not " if $v ne q{0}; print 'ok 3800 - (-0.0e1 / -0.3e1) --> ('.$v.")
";
$v = (-0.0e1 / 10); print "not " if $v ne q{0}; print 'ok 3801 - (-0.0e1 / 10) --> ('.$v.")
";
$v = (-0.0e1 / 20); print "not " if $v ne q{0}; print 'ok 3802 - (-0.0e1 / 20) --> ('.$v.")
";
$v = (-0.0e1 / 30); print "not " if $v ne q{0}; print 'ok 3803 - (-0.0e1 / 30) --> ('.$v.")
";
$v = (-0.0e1 / -10); print "not " if $v ne q{0}; print 'ok 3804 - (-0.0e1 / -10) --> ('.$v.")
";
$v = (-0.0e1 / -20); print "not " if $v ne q{0}; print 'ok 3805 - (-0.0e1 / -20) --> ('.$v.")
";
$v = (-0.0e1 / -30); print "not " if $v ne q{0}; print 'ok 3806 - (-0.0e1 / -30) --> ('.$v.")
";
$v = (-0.0e1 / @ab); print "not " if $v ne q{0}; print 'ok 3807 - (-0.0e1 / @ab) --> ('.$v.")
";
$v = (-0.0e1 / @ac); print "not " if $v ne q{0}; print 'ok 3808 - (-0.0e1 / @ac) --> ('.$v.")
";
$v = (-0.1e1 / "1"); print "not " if $v ne q{-1}; print 'ok 3809 - (-0.1e1 / "1") --> ('.$v.")
";
$v = (-0.1e1 / "2"); print "not " if $v ne q{-0.5}; print 'ok 3810 - (-0.1e1 / "2") --> ('.$v.")
";
$v = (-0.1e1 / "3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3811 - (-0.1e1 / "3") --> ('.$v.")
";
$v = (-0.1e1 / "-1"); print "not " if $v ne q{1}; print 'ok 3812 - (-0.1e1 / "-1") --> ('.$v.")
";
$v = (-0.1e1 / "-2"); print "not " if $v ne q{0.5}; print 'ok 3813 - (-0.1e1 / "-2") --> ('.$v.")
";
$v = (-0.1e1 / "-3"); print "not " if $v ne q{0.333333333333333}; print 'ok 3814 - (-0.1e1 / "-3") --> ('.$v.")
";
$v = (-0.1e1 / ".1"); print "not " if $v ne q{-10}; print 'ok 3815 - (-0.1e1 / ".1") --> ('.$v.")
";
$v = (-0.1e1 / ".2"); print "not " if $v ne q{-5}; print 'ok 3816 - (-0.1e1 / ".2") --> ('.$v.")
";
$v = (-0.1e1 / ".3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 3817 - (-0.1e1 / ".3") --> ('.$v.")
";
$v = (-0.1e1 / "-.1"); print "not " if $v ne q{10}; print 'ok 3818 - (-0.1e1 / "-.1") --> ('.$v.")
";
$v = (-0.1e1 / "-.2"); print "not " if $v ne q{5}; print 'ok 3819 - (-0.1e1 / "-.2") --> ('.$v.")
";
$v = (-0.1e1 / "-.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 3820 - (-0.1e1 / "-.3") --> ('.$v.")
";
$v = (-0.1e1 / "0.1"); print "not " if $v ne q{-10}; print 'ok 3821 - (-0.1e1 / "0.1") --> ('.$v.")
";
$v = (-0.1e1 / "0.2"); print "not " if $v ne q{-5}; print 'ok 3822 - (-0.1e1 / "0.2") --> ('.$v.")
";
$v = (-0.1e1 / "0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 3823 - (-0.1e1 / "0.3") --> ('.$v.")
";
$v = (-0.1e1 / "-0.1"); print "not " if $v ne q{10}; print 'ok 3824 - (-0.1e1 / "-0.1") --> ('.$v.")
";
$v = (-0.1e1 / "-0.2"); print "not " if $v ne q{5}; print 'ok 3825 - (-0.1e1 / "-0.2") --> ('.$v.")
";
$v = (-0.1e1 / "-0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 3826 - (-0.1e1 / "-0.3") --> ('.$v.")
";
$v = (-0.1e1 / "0.1e1"); print "not " if $v ne q{-1}; print 'ok 3827 - (-0.1e1 / "0.1e1") --> ('.$v.")
";
$v = (-0.1e1 / "0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 3828 - (-0.1e1 / "0.2e1") --> ('.$v.")
";
$v = (-0.1e1 / "0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 3829 - (-0.1e1 / "0.3e1") --> ('.$v.")
";
$v = (-0.1e1 / "-0.1e1"); print "not " if $v ne q{1}; print 'ok 3830 - (-0.1e1 / "-0.1e1") --> ('.$v.")
";
$v = (-0.1e1 / "-0.2e1"); print "not " if $v ne q{0.5}; print 'ok 3831 - (-0.1e1 / "-0.2e1") --> ('.$v.")
";
$v = (-0.1e1 / "-0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 3832 - (-0.1e1 / "-0.3e1") --> ('.$v.")
";
$v = (-0.1e1 / "10"); print "not " if $v ne q{-0.1}; print 'ok 3833 - (-0.1e1 / "10") --> ('.$v.")
";
$v = (-0.1e1 / "20"); print "not " if $v ne q{-0.05}; print 'ok 3834 - (-0.1e1 / "20") --> ('.$v.")
";
$v = (-0.1e1 / "30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3835 - (-0.1e1 / "30") --> ('.$v.")
";
$v = (-0.1e1 / "-10"); print "not " if $v ne q{0.1}; print 'ok 3836 - (-0.1e1 / "-10") --> ('.$v.")
";
$v = (-0.1e1 / "-20"); print "not " if $v ne q{0.05}; print 'ok 3837 - (-0.1e1 / "-20") --> ('.$v.")
";
$v = (-0.1e1 / "-30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 3838 - (-0.1e1 / "-30") --> ('.$v.")
";
$v = (-0.1e1 / .1); print "not " if $v ne q{-10}; print 'ok 3839 - (-0.1e1 / .1) --> ('.$v.")
";
$v = (-0.1e1 / .2); print "not " if $v ne q{-5}; print 'ok 3840 - (-0.1e1 / .2) --> ('.$v.")
";
$v = (-0.1e1 / .3); print "not " if $v ne q{-3.33333333333333}; print 'ok 3841 - (-0.1e1 / .3) --> ('.$v.")
";
$v = (-0.1e1 / -.1); print "not " if $v ne q{10}; print 'ok 3842 - (-0.1e1 / -.1) --> ('.$v.")
";
$v = (-0.1e1 / -.2); print "not " if $v ne q{5}; print 'ok 3843 - (-0.1e1 / -.2) --> ('.$v.")
";
$v = (-0.1e1 / -.3); print "not " if $v ne q{3.33333333333333}; print 'ok 3844 - (-0.1e1 / -.3) --> ('.$v.")
";
$v = (-0.1e1 / 0.1); print "not " if $v ne q{-10}; print 'ok 3845 - (-0.1e1 / 0.1) --> ('.$v.")
";
$v = (-0.1e1 / 0.2); print "not " if $v ne q{-5}; print 'ok 3846 - (-0.1e1 / 0.2) --> ('.$v.")
";
$v = (-0.1e1 / 0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 3847 - (-0.1e1 / 0.3) --> ('.$v.")
";
$v = (-0.1e1 / -0.1); print "not " if $v ne q{10}; print 'ok 3848 - (-0.1e1 / -0.1) --> ('.$v.")
";
$v = (-0.1e1 / -0.2); print "not " if $v ne q{5}; print 'ok 3849 - (-0.1e1 / -0.2) --> ('.$v.")
";
$v = (-0.1e1 / -0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 3850 - (-0.1e1 / -0.3) --> ('.$v.")
";
$v = (-0.1e1 / 0.1e1); print "not " if $v ne q{-1}; print 'ok 3851 - (-0.1e1 / 0.1e1) --> ('.$v.")
";
$v = (-0.1e1 / 0.2e1); print "not " if $v ne q{-0.5}; print 'ok 3852 - (-0.1e1 / 0.2e1) --> ('.$v.")
";
$v = (-0.1e1 / 0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 3853 - (-0.1e1 / 0.3e1) --> ('.$v.")
";
$v = (-0.1e1 / -0.1e1); print "not " if $v ne q{1}; print 'ok 3854 - (-0.1e1 / -0.1e1) --> ('.$v.")
";
$v = (-0.1e1 / -0.2e1); print "not " if $v ne q{0.5}; print 'ok 3855 - (-0.1e1 / -0.2e1) --> ('.$v.")
";
$v = (-0.1e1 / -0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 3856 - (-0.1e1 / -0.3e1) --> ('.$v.")
";
$v = (-0.1e1 / 10); print "not " if $v ne q{-0.1}; print 'ok 3857 - (-0.1e1 / 10) --> ('.$v.")
";
$v = (-0.1e1 / 20); print "not " if $v ne q{-0.05}; print 'ok 3858 - (-0.1e1 / 20) --> ('.$v.")
";
$v = (-0.1e1 / 30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 3859 - (-0.1e1 / 30) --> ('.$v.")
";
$v = (-0.1e1 / -10); print "not " if $v ne q{0.1}; print 'ok 3860 - (-0.1e1 / -10) --> ('.$v.")
";
$v = (-0.1e1 / -20); print "not " if $v ne q{0.05}; print 'ok 3861 - (-0.1e1 / -20) --> ('.$v.")
";
$v = (-0.1e1 / -30); print "not " if $v ne q{0.0333333333333333}; print 'ok 3862 - (-0.1e1 / -30) --> ('.$v.")
";
$v = (-0.1e1 / @ab); print "not " if $v ne q{-1}; print 'ok 3863 - (-0.1e1 / @ab) --> ('.$v.")
";
$v = (-0.1e1 / @ac); print "not " if $v ne q{-0.333333333333333}; print 'ok 3864 - (-0.1e1 / @ac) --> ('.$v.")
";
$v = (-0.2e1 / "1"); print "not " if $v ne q{-2}; print 'ok 3865 - (-0.2e1 / "1") --> ('.$v.")
";
$v = (-0.2e1 / "2"); print "not " if $v ne q{-1}; print 'ok 3866 - (-0.2e1 / "2") --> ('.$v.")
";
$v = (-0.2e1 / "3"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3867 - (-0.2e1 / "3") --> ('.$v.")
";
$v = (-0.2e1 / "-1"); print "not " if $v ne q{2}; print 'ok 3868 - (-0.2e1 / "-1") --> ('.$v.")
";
$v = (-0.2e1 / "-2"); print "not " if $v ne q{1}; print 'ok 3869 - (-0.2e1 / "-2") --> ('.$v.")
";
$v = (-0.2e1 / "-3"); print "not " if $v ne q{0.666666666666667}; print 'ok 3870 - (-0.2e1 / "-3") --> ('.$v.")
";
$v = (-0.2e1 / ".1"); print "not " if $v ne q{-20}; print 'ok 3871 - (-0.2e1 / ".1") --> ('.$v.")
";
$v = (-0.2e1 / ".2"); print "not " if $v ne q{-10}; print 'ok 3872 - (-0.2e1 / ".2") --> ('.$v.")
";
$v = (-0.2e1 / ".3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 3873 - (-0.2e1 / ".3") --> ('.$v.")
";
$v = (-0.2e1 / "-.1"); print "not " if $v ne q{20}; print 'ok 3874 - (-0.2e1 / "-.1") --> ('.$v.")
";
$v = (-0.2e1 / "-.2"); print "not " if $v ne q{10}; print 'ok 3875 - (-0.2e1 / "-.2") --> ('.$v.")
";
$v = (-0.2e1 / "-.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 3876 - (-0.2e1 / "-.3") --> ('.$v.")
";
$v = (-0.2e1 / "0.1"); print "not " if $v ne q{-20}; print 'ok 3877 - (-0.2e1 / "0.1") --> ('.$v.")
";
$v = (-0.2e1 / "0.2"); print "not " if $v ne q{-10}; print 'ok 3878 - (-0.2e1 / "0.2") --> ('.$v.")
";
$v = (-0.2e1 / "0.3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 3879 - (-0.2e1 / "0.3") --> ('.$v.")
";
$v = (-0.2e1 / "-0.1"); print "not " if $v ne q{20}; print 'ok 3880 - (-0.2e1 / "-0.1") --> ('.$v.")
";
$v = (-0.2e1 / "-0.2"); print "not " if $v ne q{10}; print 'ok 3881 - (-0.2e1 / "-0.2") --> ('.$v.")
";
$v = (-0.2e1 / "-0.3"); print "not " if $v ne q{6.66666666666667}; print 'ok 3882 - (-0.2e1 / "-0.3") --> ('.$v.")
";
$v = (-0.2e1 / "0.1e1"); print "not " if $v ne q{-2}; print 'ok 3883 - (-0.2e1 / "0.1e1") --> ('.$v.")
";
$v = (-0.2e1 / "0.2e1"); print "not " if $v ne q{-1}; print 'ok 3884 - (-0.2e1 / "0.2e1") --> ('.$v.")
";
$v = (-0.2e1 / "0.3e1"); print "not " if $v ne q{-0.666666666666667}; print 'ok 3885 - (-0.2e1 / "0.3e1") --> ('.$v.")
";
$v = (-0.2e1 / "-0.1e1"); print "not " if $v ne q{2}; print 'ok 3886 - (-0.2e1 / "-0.1e1") --> ('.$v.")
";
$v = (-0.2e1 / "-0.2e1"); print "not " if $v ne q{1}; print 'ok 3887 - (-0.2e1 / "-0.2e1") --> ('.$v.")
";
$v = (-0.2e1 / "-0.3e1"); print "not " if $v ne q{0.666666666666667}; print 'ok 3888 - (-0.2e1 / "-0.3e1") --> ('.$v.")
";
$v = (-0.2e1 / "10"); print "not " if $v ne q{-0.2}; print 'ok 3889 - (-0.2e1 / "10") --> ('.$v.")
";
$v = (-0.2e1 / "20"); print "not " if $v ne q{-0.1}; print 'ok 3890 - (-0.2e1 / "20") --> ('.$v.")
";
$v = (-0.2e1 / "30"); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3891 - (-0.2e1 / "30") --> ('.$v.")
";
$v = (-0.2e1 / "-10"); print "not " if $v ne q{0.2}; print 'ok 3892 - (-0.2e1 / "-10") --> ('.$v.")
";
$v = (-0.2e1 / "-20"); print "not " if $v ne q{0.1}; print 'ok 3893 - (-0.2e1 / "-20") --> ('.$v.")
";
$v = (-0.2e1 / "-30"); print "not " if $v ne q{0.0666666666666667}; print 'ok 3894 - (-0.2e1 / "-30") --> ('.$v.")
";
$v = (-0.2e1 / .1); print "not " if $v ne q{-20}; print 'ok 3895 - (-0.2e1 / .1) --> ('.$v.")
";
$v = (-0.2e1 / .2); print "not " if $v ne q{-10}; print 'ok 3896 - (-0.2e1 / .2) --> ('.$v.")
";
$v = (-0.2e1 / .3); print "not " if $v ne q{-6.66666666666667}; print 'ok 3897 - (-0.2e1 / .3) --> ('.$v.")
";
$v = (-0.2e1 / -.1); print "not " if $v ne q{20}; print 'ok 3898 - (-0.2e1 / -.1) --> ('.$v.")
";
$v = (-0.2e1 / -.2); print "not " if $v ne q{10}; print 'ok 3899 - (-0.2e1 / -.2) --> ('.$v.")
";
$v = (-0.2e1 / -.3); print "not " if $v ne q{6.66666666666667}; print 'ok 3900 - (-0.2e1 / -.3) --> ('.$v.")
";
$v = (-0.2e1 / 0.1); print "not " if $v ne q{-20}; print 'ok 3901 - (-0.2e1 / 0.1) --> ('.$v.")
";
$v = (-0.2e1 / 0.2); print "not " if $v ne q{-10}; print 'ok 3902 - (-0.2e1 / 0.2) --> ('.$v.")
";
$v = (-0.2e1 / 0.3); print "not " if $v ne q{-6.66666666666667}; print 'ok 3903 - (-0.2e1 / 0.3) --> ('.$v.")
";
$v = (-0.2e1 / -0.1); print "not " if $v ne q{20}; print 'ok 3904 - (-0.2e1 / -0.1) --> ('.$v.")
";
$v = (-0.2e1 / -0.2); print "not " if $v ne q{10}; print 'ok 3905 - (-0.2e1 / -0.2) --> ('.$v.")
";
$v = (-0.2e1 / -0.3); print "not " if $v ne q{6.66666666666667}; print 'ok 3906 - (-0.2e1 / -0.3) --> ('.$v.")
";
$v = (-0.2e1 / 0.1e1); print "not " if $v ne q{-2}; print 'ok 3907 - (-0.2e1 / 0.1e1) --> ('.$v.")
";
$v = (-0.2e1 / 0.2e1); print "not " if $v ne q{-1}; print 'ok 3908 - (-0.2e1 / 0.2e1) --> ('.$v.")
";
$v = (-0.2e1 / 0.3e1); print "not " if $v ne q{-0.666666666666667}; print 'ok 3909 - (-0.2e1 / 0.3e1) --> ('.$v.")
";
$v = (-0.2e1 / -0.1e1); print "not " if $v ne q{2}; print 'ok 3910 - (-0.2e1 / -0.1e1) --> ('.$v.")
";
$v = (-0.2e1 / -0.2e1); print "not " if $v ne q{1}; print 'ok 3911 - (-0.2e1 / -0.2e1) --> ('.$v.")
";
$v = (-0.2e1 / -0.3e1); print "not " if $v ne q{0.666666666666667}; print 'ok 3912 - (-0.2e1 / -0.3e1) --> ('.$v.")
";
$v = (-0.2e1 / 10); print "not " if $v ne q{-0.2}; print 'ok 3913 - (-0.2e1 / 10) --> ('.$v.")
";
$v = (-0.2e1 / 20); print "not " if $v ne q{-0.1}; print 'ok 3914 - (-0.2e1 / 20) --> ('.$v.")
";
$v = (-0.2e1 / 30); print "not " if $v ne q{-0.0666666666666667}; print 'ok 3915 - (-0.2e1 / 30) --> ('.$v.")
";
$v = (-0.2e1 / -10); print "not " if $v ne q{0.2}; print 'ok 3916 - (-0.2e1 / -10) --> ('.$v.")
";
$v = (-0.2e1 / -20); print "not " if $v ne q{0.1}; print 'ok 3917 - (-0.2e1 / -20) --> ('.$v.")
";
$v = (-0.2e1 / -30); print "not " if $v ne q{0.0666666666666667}; print 'ok 3918 - (-0.2e1 / -30) --> ('.$v.")
";
$v = (-0.2e1 / @ab); print "not " if $v ne q{-2}; print 'ok 3919 - (-0.2e1 / @ab) --> ('.$v.")
";
$v = (-0.2e1 / @ac); print "not " if $v ne q{-0.666666666666667}; print 'ok 3920 - (-0.2e1 / @ac) --> ('.$v.")
";
$v = (-0.3e1 / "1"); print "not " if $v ne q{-3}; print 'ok 3921 - (-0.3e1 / "1") --> ('.$v.")
";
$v = (-0.3e1 / "2"); print "not " if $v ne q{-1.5}; print 'ok 3922 - (-0.3e1 / "2") --> ('.$v.")
";
$v = (-0.3e1 / "3"); print "not " if $v ne q{-1}; print 'ok 3923 - (-0.3e1 / "3") --> ('.$v.")
";
$v = (-0.3e1 / "-1"); print "not " if $v ne q{3}; print 'ok 3924 - (-0.3e1 / "-1") --> ('.$v.")
";
$v = (-0.3e1 / "-2"); print "not " if $v ne q{1.5}; print 'ok 3925 - (-0.3e1 / "-2") --> ('.$v.")
";
$v = (-0.3e1 / "-3"); print "not " if $v ne q{1}; print 'ok 3926 - (-0.3e1 / "-3") --> ('.$v.")
";
$v = (-0.3e1 / ".1"); print "not " if $v ne q{-30}; print 'ok 3927 - (-0.3e1 / ".1") --> ('.$v.")
";
$v = (-0.3e1 / ".2"); print "not " if $v ne q{-15}; print 'ok 3928 - (-0.3e1 / ".2") --> ('.$v.")
";
$v = (-0.3e1 / ".3"); print "not " if $v ne q{-10}; print 'ok 3929 - (-0.3e1 / ".3") --> ('.$v.")
";
$v = (-0.3e1 / "-.1"); print "not " if $v ne q{30}; print 'ok 3930 - (-0.3e1 / "-.1") --> ('.$v.")
";
$v = (-0.3e1 / "-.2"); print "not " if $v ne q{15}; print 'ok 3931 - (-0.3e1 / "-.2") --> ('.$v.")
";
$v = (-0.3e1 / "-.3"); print "not " if $v ne q{10}; print 'ok 3932 - (-0.3e1 / "-.3") --> ('.$v.")
";
$v = (-0.3e1 / "0.1"); print "not " if $v ne q{-30}; print 'ok 3933 - (-0.3e1 / "0.1") --> ('.$v.")
";
$v = (-0.3e1 / "0.2"); print "not " if $v ne q{-15}; print 'ok 3934 - (-0.3e1 / "0.2") --> ('.$v.")
";
$v = (-0.3e1 / "0.3"); print "not " if $v ne q{-10}; print 'ok 3935 - (-0.3e1 / "0.3") --> ('.$v.")
";
$v = (-0.3e1 / "-0.1"); print "not " if $v ne q{30}; print 'ok 3936 - (-0.3e1 / "-0.1") --> ('.$v.")
";
$v = (-0.3e1 / "-0.2"); print "not " if $v ne q{15}; print 'ok 3937 - (-0.3e1 / "-0.2") --> ('.$v.")
";
$v = (-0.3e1 / "-0.3"); print "not " if $v ne q{10}; print 'ok 3938 - (-0.3e1 / "-0.3") --> ('.$v.")
";
$v = (-0.3e1 / "0.1e1"); print "not " if $v ne q{-3}; print 'ok 3939 - (-0.3e1 / "0.1e1") --> ('.$v.")
";
$v = (-0.3e1 / "0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 3940 - (-0.3e1 / "0.2e1") --> ('.$v.")
";
$v = (-0.3e1 / "0.3e1"); print "not " if $v ne q{-1}; print 'ok 3941 - (-0.3e1 / "0.3e1") --> ('.$v.")
";
$v = (-0.3e1 / "-0.1e1"); print "not " if $v ne q{3}; print 'ok 3942 - (-0.3e1 / "-0.1e1") --> ('.$v.")
";
$v = (-0.3e1 / "-0.2e1"); print "not " if $v ne q{1.5}; print 'ok 3943 - (-0.3e1 / "-0.2e1") --> ('.$v.")
";
$v = (-0.3e1 / "-0.3e1"); print "not " if $v ne q{1}; print 'ok 3944 - (-0.3e1 / "-0.3e1") --> ('.$v.")
";
$v = (-0.3e1 / "10"); print "not " if $v ne q{-0.3}; print 'ok 3945 - (-0.3e1 / "10") --> ('.$v.")
";
$v = (-0.3e1 / "20"); print "not " if $v ne q{-0.15}; print 'ok 3946 - (-0.3e1 / "20") --> ('.$v.")
";
$v = (-0.3e1 / "30"); print "not " if $v ne q{-0.1}; print 'ok 3947 - (-0.3e1 / "30") --> ('.$v.")
";
$v = (-0.3e1 / "-10"); print "not " if $v ne q{0.3}; print 'ok 3948 - (-0.3e1 / "-10") --> ('.$v.")
";
$v = (-0.3e1 / "-20"); print "not " if $v ne q{0.15}; print 'ok 3949 - (-0.3e1 / "-20") --> ('.$v.")
";
$v = (-0.3e1 / "-30"); print "not " if $v ne q{0.1}; print 'ok 3950 - (-0.3e1 / "-30") --> ('.$v.")
";
$v = (-0.3e1 / .1); print "not " if $v ne q{-30}; print 'ok 3951 - (-0.3e1 / .1) --> ('.$v.")
";
$v = (-0.3e1 / .2); print "not " if $v ne q{-15}; print 'ok 3952 - (-0.3e1 / .2) --> ('.$v.")
";
$v = (-0.3e1 / .3); print "not " if $v ne q{-10}; print 'ok 3953 - (-0.3e1 / .3) --> ('.$v.")
";
$v = (-0.3e1 / -.1); print "not " if $v ne q{30}; print 'ok 3954 - (-0.3e1 / -.1) --> ('.$v.")
";
$v = (-0.3e1 / -.2); print "not " if $v ne q{15}; print 'ok 3955 - (-0.3e1 / -.2) --> ('.$v.")
";
$v = (-0.3e1 / -.3); print "not " if $v ne q{10}; print 'ok 3956 - (-0.3e1 / -.3) --> ('.$v.")
";
$v = (-0.3e1 / 0.1); print "not " if $v ne q{-30}; print 'ok 3957 - (-0.3e1 / 0.1) --> ('.$v.")
";
$v = (-0.3e1 / 0.2); print "not " if $v ne q{-15}; print 'ok 3958 - (-0.3e1 / 0.2) --> ('.$v.")
";
$v = (-0.3e1 / 0.3); print "not " if $v ne q{-10}; print 'ok 3959 - (-0.3e1 / 0.3) --> ('.$v.")
";
$v = (-0.3e1 / -0.1); print "not " if $v ne q{30}; print 'ok 3960 - (-0.3e1 / -0.1) --> ('.$v.")
";
$v = (-0.3e1 / -0.2); print "not " if $v ne q{15}; print 'ok 3961 - (-0.3e1 / -0.2) --> ('.$v.")
";
$v = (-0.3e1 / -0.3); print "not " if $v ne q{10}; print 'ok 3962 - (-0.3e1 / -0.3) --> ('.$v.")
";
$v = (-0.3e1 / 0.1e1); print "not " if $v ne q{-3}; print 'ok 3963 - (-0.3e1 / 0.1e1) --> ('.$v.")
";
$v = (-0.3e1 / 0.2e1); print "not " if $v ne q{-1.5}; print 'ok 3964 - (-0.3e1 / 0.2e1) --> ('.$v.")
";
$v = (-0.3e1 / 0.3e1); print "not " if $v ne q{-1}; print 'ok 3965 - (-0.3e1 / 0.3e1) --> ('.$v.")
";
$v = (-0.3e1 / -0.1e1); print "not " if $v ne q{3}; print 'ok 3966 - (-0.3e1 / -0.1e1) --> ('.$v.")
";
$v = (-0.3e1 / -0.2e1); print "not " if $v ne q{1.5}; print 'ok 3967 - (-0.3e1 / -0.2e1) --> ('.$v.")
";
$v = (-0.3e1 / -0.3e1); print "not " if $v ne q{1}; print 'ok 3968 - (-0.3e1 / -0.3e1) --> ('.$v.")
";
$v = (-0.3e1 / 10); print "not " if $v ne q{-0.3}; print 'ok 3969 - (-0.3e1 / 10) --> ('.$v.")
";
$v = (-0.3e1 / 20); print "not " if $v ne q{-0.15}; print 'ok 3970 - (-0.3e1 / 20) --> ('.$v.")
";
$v = (-0.3e1 / 30); print "not " if $v ne q{-0.1}; print 'ok 3971 - (-0.3e1 / 30) --> ('.$v.")
";
$v = (-0.3e1 / -10); print "not " if $v ne q{0.3}; print 'ok 3972 - (-0.3e1 / -10) --> ('.$v.")
";
$v = (-0.3e1 / -20); print "not " if $v ne q{0.15}; print 'ok 3973 - (-0.3e1 / -20) --> ('.$v.")
";
$v = (-0.3e1 / -30); print "not " if $v ne q{0.1}; print 'ok 3974 - (-0.3e1 / -30) --> ('.$v.")
";
$v = (-0.3e1 / @ab); print "not " if $v ne q{-3}; print 'ok 3975 - (-0.3e1 / @ab) --> ('.$v.")
";
$v = (-0.3e1 / @ac); print "not " if $v ne q{-1}; print 'ok 3976 - (-0.3e1 / @ac) --> ('.$v.")
";
$v = (00 / "1"); print "not " if $v ne q{0}; print 'ok 3977 - (00 / "1") --> ('.$v.")
";
$v = (00 / "2"); print "not " if $v ne q{0}; print 'ok 3978 - (00 / "2") --> ('.$v.")
";
$v = (00 / "3"); print "not " if $v ne q{0}; print 'ok 3979 - (00 / "3") --> ('.$v.")
";
$v = (00 / "-1"); print "not " if $v ne q{0}; print 'ok 3980 - (00 / "-1") --> ('.$v.")
";
$v = (00 / "-2"); print "not " if $v ne q{0}; print 'ok 3981 - (00 / "-2") --> ('.$v.")
";
$v = (00 / "-3"); print "not " if $v ne q{0}; print 'ok 3982 - (00 / "-3") --> ('.$v.")
";
$v = (00 / ".1"); print "not " if $v ne q{0}; print 'ok 3983 - (00 / ".1") --> ('.$v.")
";
$v = (00 / ".2"); print "not " if $v ne q{0}; print 'ok 3984 - (00 / ".2") --> ('.$v.")
";
$v = (00 / ".3"); print "not " if $v ne q{0}; print 'ok 3985 - (00 / ".3") --> ('.$v.")
";
$v = (00 / "-.1"); print "not " if $v ne q{0}; print 'ok 3986 - (00 / "-.1") --> ('.$v.")
";
$v = (00 / "-.2"); print "not " if $v ne q{0}; print 'ok 3987 - (00 / "-.2") --> ('.$v.")
";
$v = (00 / "-.3"); print "not " if $v ne q{0}; print 'ok 3988 - (00 / "-.3") --> ('.$v.")
";
$v = (00 / "0.1"); print "not " if $v ne q{0}; print 'ok 3989 - (00 / "0.1") --> ('.$v.")
";
$v = (00 / "0.2"); print "not " if $v ne q{0}; print 'ok 3990 - (00 / "0.2") --> ('.$v.")
";
$v = (00 / "0.3"); print "not " if $v ne q{0}; print 'ok 3991 - (00 / "0.3") --> ('.$v.")
";
$v = (00 / "-0.1"); print "not " if $v ne q{0}; print 'ok 3992 - (00 / "-0.1") --> ('.$v.")
";
$v = (00 / "-0.2"); print "not " if $v ne q{0}; print 'ok 3993 - (00 / "-0.2") --> ('.$v.")
";
$v = (00 / "-0.3"); print "not " if $v ne q{0}; print 'ok 3994 - (00 / "-0.3") --> ('.$v.")
";
$v = (00 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 3995 - (00 / "0.1e1") --> ('.$v.")
";
$v = (00 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 3996 - (00 / "0.2e1") --> ('.$v.")
";
$v = (00 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 3997 - (00 / "0.3e1") --> ('.$v.")
";
$v = (00 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 3998 - (00 / "-0.1e1") --> ('.$v.")
";
$v = (00 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 3999 - (00 / "-0.2e1") --> ('.$v.")
";
$v = (00 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 4000 - (00 / "-0.3e1") --> ('.$v.")
";
$v = (00 / "10"); print "not " if $v ne q{0}; print 'ok 4001 - (00 / "10") --> ('.$v.")
";
$v = (00 / "20"); print "not " if $v ne q{0}; print 'ok 4002 - (00 / "20") --> ('.$v.")
";
$v = (00 / "30"); print "not " if $v ne q{0}; print 'ok 4003 - (00 / "30") --> ('.$v.")
";
$v = (00 / "-10"); print "not " if $v ne q{0}; print 'ok 4004 - (00 / "-10") --> ('.$v.")
";
$v = (00 / "-20"); print "not " if $v ne q{0}; print 'ok 4005 - (00 / "-20") --> ('.$v.")
";
$v = (00 / "-30"); print "not " if $v ne q{0}; print 'ok 4006 - (00 / "-30") --> ('.$v.")
";
$v = (00 / .1); print "not " if $v ne q{0}; print 'ok 4007 - (00 / .1) --> ('.$v.")
";
$v = (00 / .2); print "not " if $v ne q{0}; print 'ok 4008 - (00 / .2) --> ('.$v.")
";
$v = (00 / .3); print "not " if $v ne q{0}; print 'ok 4009 - (00 / .3) --> ('.$v.")
";
$v = (00 / -.1); print "not " if $v ne q{0}; print 'ok 4010 - (00 / -.1) --> ('.$v.")
";
$v = (00 / -.2); print "not " if $v ne q{0}; print 'ok 4011 - (00 / -.2) --> ('.$v.")
";
$v = (00 / -.3); print "not " if $v ne q{0}; print 'ok 4012 - (00 / -.3) --> ('.$v.")
";
$v = (00 / 0.1); print "not " if $v ne q{0}; print 'ok 4013 - (00 / 0.1) --> ('.$v.")
";
$v = (00 / 0.2); print "not " if $v ne q{0}; print 'ok 4014 - (00 / 0.2) --> ('.$v.")
";
$v = (00 / 0.3); print "not " if $v ne q{0}; print 'ok 4015 - (00 / 0.3) --> ('.$v.")
";
$v = (00 / -0.1); print "not " if $v ne q{0}; print 'ok 4016 - (00 / -0.1) --> ('.$v.")
";
$v = (00 / -0.2); print "not " if $v ne q{0}; print 'ok 4017 - (00 / -0.2) --> ('.$v.")
";
$v = (00 / -0.3); print "not " if $v ne q{0}; print 'ok 4018 - (00 / -0.3) --> ('.$v.")
";
$v = (00 / 0.1e1); print "not " if $v ne q{0}; print 'ok 4019 - (00 / 0.1e1) --> ('.$v.")
";
$v = (00 / 0.2e1); print "not " if $v ne q{0}; print 'ok 4020 - (00 / 0.2e1) --> ('.$v.")
";
$v = (00 / 0.3e1); print "not " if $v ne q{0}; print 'ok 4021 - (00 / 0.3e1) --> ('.$v.")
";
$v = (00 / -0.1e1); print "not " if $v ne q{0}; print 'ok 4022 - (00 / -0.1e1) --> ('.$v.")
";
$v = (00 / -0.2e1); print "not " if $v ne q{0}; print 'ok 4023 - (00 / -0.2e1) --> ('.$v.")
";
$v = (00 / -0.3e1); print "not " if $v ne q{0}; print 'ok 4024 - (00 / -0.3e1) --> ('.$v.")
";
$v = (00 / 10); print "not " if $v ne q{0}; print 'ok 4025 - (00 / 10) --> ('.$v.")
";
$v = (00 / 20); print "not " if $v ne q{0}; print 'ok 4026 - (00 / 20) --> ('.$v.")
";
$v = (00 / 30); print "not " if $v ne q{0}; print 'ok 4027 - (00 / 30) --> ('.$v.")
";
$v = (00 / -10); print "not " if $v ne q{0}; print 'ok 4028 - (00 / -10) --> ('.$v.")
";
$v = (00 / -20); print "not " if $v ne q{0}; print 'ok 4029 - (00 / -20) --> ('.$v.")
";
$v = (00 / -30); print "not " if $v ne q{0}; print 'ok 4030 - (00 / -30) --> ('.$v.")
";
$v = (00 / @ab); print "not " if $v ne q{0}; print 'ok 4031 - (00 / @ab) --> ('.$v.")
";
$v = (00 / @ac); print "not " if $v ne q{0}; print 'ok 4032 - (00 / @ac) --> ('.$v.")
";
$v = (10 / "1"); print "not " if $v ne q{10}; print 'ok 4033 - (10 / "1") --> ('.$v.")
";
$v = (10 / "2"); print "not " if $v ne q{5}; print 'ok 4034 - (10 / "2") --> ('.$v.")
";
$v = (10 / "3"); print "not " if $v ne q{3.33333333333333}; print 'ok 4035 - (10 / "3") --> ('.$v.")
";
$v = (10 / "-1"); print "not " if $v ne q{-10}; print 'ok 4036 - (10 / "-1") --> ('.$v.")
";
$v = (10 / "-2"); print "not " if $v ne q{-5}; print 'ok 4037 - (10 / "-2") --> ('.$v.")
";
$v = (10 / "-3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4038 - (10 / "-3") --> ('.$v.")
";
$v = (10 / ".1"); print "not " if $v ne q{100}; print 'ok 4039 - (10 / ".1") --> ('.$v.")
";
$v = (10 / ".2"); print "not " if $v ne q{50}; print 'ok 4040 - (10 / ".2") --> ('.$v.")
";
$v = (10 / ".3"); print "not " if $v ne q{33.3333333333333}; print 'ok 4041 - (10 / ".3") --> ('.$v.")
";
$v = (10 / "-.1"); print "not " if $v ne q{-100}; print 'ok 4042 - (10 / "-.1") --> ('.$v.")
";
$v = (10 / "-.2"); print "not " if $v ne q{-50}; print 'ok 4043 - (10 / "-.2") --> ('.$v.")
";
$v = (10 / "-.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 4044 - (10 / "-.3") --> ('.$v.")
";
$v = (10 / "0.1"); print "not " if $v ne q{100}; print 'ok 4045 - (10 / "0.1") --> ('.$v.")
";
$v = (10 / "0.2"); print "not " if $v ne q{50}; print 'ok 4046 - (10 / "0.2") --> ('.$v.")
";
$v = (10 / "0.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 4047 - (10 / "0.3") --> ('.$v.")
";
$v = (10 / "-0.1"); print "not " if $v ne q{-100}; print 'ok 4048 - (10 / "-0.1") --> ('.$v.")
";
$v = (10 / "-0.2"); print "not " if $v ne q{-50}; print 'ok 4049 - (10 / "-0.2") --> ('.$v.")
";
$v = (10 / "-0.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 4050 - (10 / "-0.3") --> ('.$v.")
";
$v = (10 / "0.1e1"); print "not " if $v ne q{10}; print 'ok 4051 - (10 / "0.1e1") --> ('.$v.")
";
$v = (10 / "0.2e1"); print "not " if $v ne q{5}; print 'ok 4052 - (10 / "0.2e1") --> ('.$v.")
";
$v = (10 / "0.3e1"); print "not " if $v ne q{3.33333333333333}; print 'ok 4053 - (10 / "0.3e1") --> ('.$v.")
";
$v = (10 / "-0.1e1"); print "not " if $v ne q{-10}; print 'ok 4054 - (10 / "-0.1e1") --> ('.$v.")
";
$v = (10 / "-0.2e1"); print "not " if $v ne q{-5}; print 'ok 4055 - (10 / "-0.2e1") --> ('.$v.")
";
$v = (10 / "-0.3e1"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4056 - (10 / "-0.3e1") --> ('.$v.")
";
$v = (10 / "10"); print "not " if $v ne q{1}; print 'ok 4057 - (10 / "10") --> ('.$v.")
";
$v = (10 / "20"); print "not " if $v ne q{0.5}; print 'ok 4058 - (10 / "20") --> ('.$v.")
";
$v = (10 / "30"); print "not " if $v ne q{0.333333333333333}; print 'ok 4059 - (10 / "30") --> ('.$v.")
";
$v = (10 / "-10"); print "not " if $v ne q{-1}; print 'ok 4060 - (10 / "-10") --> ('.$v.")
";
$v = (10 / "-20"); print "not " if $v ne q{-0.5}; print 'ok 4061 - (10 / "-20") --> ('.$v.")
";
$v = (10 / "-30"); print "not " if $v ne q{-0.333333333333333}; print 'ok 4062 - (10 / "-30") --> ('.$v.")
";
$v = (10 / .1); print "not " if $v ne q{100}; print 'ok 4063 - (10 / .1) --> ('.$v.")
";
$v = (10 / .2); print "not " if $v ne q{50}; print 'ok 4064 - (10 / .2) --> ('.$v.")
";
$v = (10 / .3); print "not " if $v ne q{33.3333333333333}; print 'ok 4065 - (10 / .3) --> ('.$v.")
";
$v = (10 / -.1); print "not " if $v ne q{-100}; print 'ok 4066 - (10 / -.1) --> ('.$v.")
";
$v = (10 / -.2); print "not " if $v ne q{-50}; print 'ok 4067 - (10 / -.2) --> ('.$v.")
";
$v = (10 / -.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 4068 - (10 / -.3) --> ('.$v.")
";
$v = (10 / 0.1); print "not " if $v ne q{100}; print 'ok 4069 - (10 / 0.1) --> ('.$v.")
";
$v = (10 / 0.2); print "not " if $v ne q{50}; print 'ok 4070 - (10 / 0.2) --> ('.$v.")
";
$v = (10 / 0.3); print "not " if $v ne q{33.3333333333333}; print 'ok 4071 - (10 / 0.3) --> ('.$v.")
";
$v = (10 / -0.1); print "not " if $v ne q{-100}; print 'ok 4072 - (10 / -0.1) --> ('.$v.")
";
$v = (10 / -0.2); print "not " if $v ne q{-50}; print 'ok 4073 - (10 / -0.2) --> ('.$v.")
";
$v = (10 / -0.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 4074 - (10 / -0.3) --> ('.$v.")
";
$v = (10 / 0.1e1); print "not " if $v ne q{10}; print 'ok 4075 - (10 / 0.1e1) --> ('.$v.")
";
$v = (10 / 0.2e1); print "not " if $v ne q{5}; print 'ok 4076 - (10 / 0.2e1) --> ('.$v.")
";
$v = (10 / 0.3e1); print "not " if $v ne q{3.33333333333333}; print 'ok 4077 - (10 / 0.3e1) --> ('.$v.")
";
$v = (10 / -0.1e1); print "not " if $v ne q{-10}; print 'ok 4078 - (10 / -0.1e1) --> ('.$v.")
";
$v = (10 / -0.2e1); print "not " if $v ne q{-5}; print 'ok 4079 - (10 / -0.2e1) --> ('.$v.")
";
$v = (10 / -0.3e1); print "not " if $v ne q{-3.33333333333333}; print 'ok 4080 - (10 / -0.3e1) --> ('.$v.")
";
$v = (10 / 10); print "not " if $v ne q{1}; print 'ok 4081 - (10 / 10) --> ('.$v.")
";
$v = (10 / 20); print "not " if $v ne q{0.5}; print 'ok 4082 - (10 / 20) --> ('.$v.")
";
$v = (10 / 30); print "not " if $v ne q{0.333333333333333}; print 'ok 4083 - (10 / 30) --> ('.$v.")
";
$v = (10 / -10); print "not " if $v ne q{-1}; print 'ok 4084 - (10 / -10) --> ('.$v.")
";
$v = (10 / -20); print "not " if $v ne q{-0.5}; print 'ok 4085 - (10 / -20) --> ('.$v.")
";
$v = (10 / -30); print "not " if $v ne q{-0.333333333333333}; print 'ok 4086 - (10 / -30) --> ('.$v.")
";
$v = (10 / @ab); print "not " if $v ne q{10}; print 'ok 4087 - (10 / @ab) --> ('.$v.")
";
$v = (10 / @ac); print "not " if $v ne q{3.33333333333333}; print 'ok 4088 - (10 / @ac) --> ('.$v.")
";
$v = (20 / "1"); print "not " if $v ne q{20}; print 'ok 4089 - (20 / "1") --> ('.$v.")
";
$v = (20 / "2"); print "not " if $v ne q{10}; print 'ok 4090 - (20 / "2") --> ('.$v.")
";
$v = (20 / "3"); print "not " if $v ne q{6.66666666666667}; print 'ok 4091 - (20 / "3") --> ('.$v.")
";
$v = (20 / "-1"); print "not " if $v ne q{-20}; print 'ok 4092 - (20 / "-1") --> ('.$v.")
";
$v = (20 / "-2"); print "not " if $v ne q{-10}; print 'ok 4093 - (20 / "-2") --> ('.$v.")
";
$v = (20 / "-3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 4094 - (20 / "-3") --> ('.$v.")
";
$v = (20 / ".1"); print "not " if $v ne q{200}; print 'ok 4095 - (20 / ".1") --> ('.$v.")
";
$v = (20 / ".2"); print "not " if $v ne q{100}; print 'ok 4096 - (20 / ".2") --> ('.$v.")
";
$v = (20 / ".3"); print "not " if $v ne q{66.6666666666667}; print 'ok 4097 - (20 / ".3") --> ('.$v.")
";
$v = (20 / "-.1"); print "not " if $v ne q{-200}; print 'ok 4098 - (20 / "-.1") --> ('.$v.")
";
$v = (20 / "-.2"); print "not " if $v ne q{-100}; print 'ok 4099 - (20 / "-.2") --> ('.$v.")
";
$v = (20 / "-.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 4100 - (20 / "-.3") --> ('.$v.")
";
$v = (20 / "0.1"); print "not " if $v ne q{200}; print 'ok 4101 - (20 / "0.1") --> ('.$v.")
";
$v = (20 / "0.2"); print "not " if $v ne q{100}; print 'ok 4102 - (20 / "0.2") --> ('.$v.")
";
$v = (20 / "0.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 4103 - (20 / "0.3") --> ('.$v.")
";
$v = (20 / "-0.1"); print "not " if $v ne q{-200}; print 'ok 4104 - (20 / "-0.1") --> ('.$v.")
";
$v = (20 / "-0.2"); print "not " if $v ne q{-100}; print 'ok 4105 - (20 / "-0.2") --> ('.$v.")
";
$v = (20 / "-0.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 4106 - (20 / "-0.3") --> ('.$v.")
";
$v = (20 / "0.1e1"); print "not " if $v ne q{20}; print 'ok 4107 - (20 / "0.1e1") --> ('.$v.")
";
$v = (20 / "0.2e1"); print "not " if $v ne q{10}; print 'ok 4108 - (20 / "0.2e1") --> ('.$v.")
";
$v = (20 / "0.3e1"); print "not " if $v ne q{6.66666666666667}; print 'ok 4109 - (20 / "0.3e1") --> ('.$v.")
";
$v = (20 / "-0.1e1"); print "not " if $v ne q{-20}; print 'ok 4110 - (20 / "-0.1e1") --> ('.$v.")
";
$v = (20 / "-0.2e1"); print "not " if $v ne q{-10}; print 'ok 4111 - (20 / "-0.2e1") --> ('.$v.")
";
$v = (20 / "-0.3e1"); print "not " if $v ne q{-6.66666666666667}; print 'ok 4112 - (20 / "-0.3e1") --> ('.$v.")
";
$v = (20 / "10"); print "not " if $v ne q{2}; print 'ok 4113 - (20 / "10") --> ('.$v.")
";
$v = (20 / "20"); print "not " if $v ne q{1}; print 'ok 4114 - (20 / "20") --> ('.$v.")
";
$v = (20 / "30"); print "not " if $v ne q{0.666666666666667}; print 'ok 4115 - (20 / "30") --> ('.$v.")
";
$v = (20 / "-10"); print "not " if $v ne q{-2}; print 'ok 4116 - (20 / "-10") --> ('.$v.")
";
$v = (20 / "-20"); print "not " if $v ne q{-1}; print 'ok 4117 - (20 / "-20") --> ('.$v.")
";
$v = (20 / "-30"); print "not " if $v ne q{-0.666666666666667}; print 'ok 4118 - (20 / "-30") --> ('.$v.")
";
$v = (20 / .1); print "not " if $v ne q{200}; print 'ok 4119 - (20 / .1) --> ('.$v.")
";
$v = (20 / .2); print "not " if $v ne q{100}; print 'ok 4120 - (20 / .2) --> ('.$v.")
";
$v = (20 / .3); print "not " if $v ne q{66.6666666666667}; print 'ok 4121 - (20 / .3) --> ('.$v.")
";
$v = (20 / -.1); print "not " if $v ne q{-200}; print 'ok 4122 - (20 / -.1) --> ('.$v.")
";
$v = (20 / -.2); print "not " if $v ne q{-100}; print 'ok 4123 - (20 / -.2) --> ('.$v.")
";
$v = (20 / -.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 4124 - (20 / -.3) --> ('.$v.")
";
$v = (20 / 0.1); print "not " if $v ne q{200}; print 'ok 4125 - (20 / 0.1) --> ('.$v.")
";
$v = (20 / 0.2); print "not " if $v ne q{100}; print 'ok 4126 - (20 / 0.2) --> ('.$v.")
";
$v = (20 / 0.3); print "not " if $v ne q{66.6666666666667}; print 'ok 4127 - (20 / 0.3) --> ('.$v.")
";
$v = (20 / -0.1); print "not " if $v ne q{-200}; print 'ok 4128 - (20 / -0.1) --> ('.$v.")
";
$v = (20 / -0.2); print "not " if $v ne q{-100}; print 'ok 4129 - (20 / -0.2) --> ('.$v.")
";
$v = (20 / -0.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 4130 - (20 / -0.3) --> ('.$v.")
";
$v = (20 / 0.1e1); print "not " if $v ne q{20}; print 'ok 4131 - (20 / 0.1e1) --> ('.$v.")
";
$v = (20 / 0.2e1); print "not " if $v ne q{10}; print 'ok 4132 - (20 / 0.2e1) --> ('.$v.")
";
$v = (20 / 0.3e1); print "not " if $v ne q{6.66666666666667}; print 'ok 4133 - (20 / 0.3e1) --> ('.$v.")
";
$v = (20 / -0.1e1); print "not " if $v ne q{-20}; print 'ok 4134 - (20 / -0.1e1) --> ('.$v.")
";
$v = (20 / -0.2e1); print "not " if $v ne q{-10}; print 'ok 4135 - (20 / -0.2e1) --> ('.$v.")
";
$v = (20 / -0.3e1); print "not " if $v ne q{-6.66666666666667}; print 'ok 4136 - (20 / -0.3e1) --> ('.$v.")
";
$v = (20 / 10); print "not " if $v ne q{2}; print 'ok 4137 - (20 / 10) --> ('.$v.")
";
$v = (20 / 20); print "not " if $v ne q{1}; print 'ok 4138 - (20 / 20) --> ('.$v.")
";
$v = (20 / 30); print "not " if $v ne q{0.666666666666667}; print 'ok 4139 - (20 / 30) --> ('.$v.")
";
$v = (20 / -10); print "not " if $v ne q{-2}; print 'ok 4140 - (20 / -10) --> ('.$v.")
";
$v = (20 / -20); print "not " if $v ne q{-1}; print 'ok 4141 - (20 / -20) --> ('.$v.")
";
$v = (20 / -30); print "not " if $v ne q{-0.666666666666667}; print 'ok 4142 - (20 / -30) --> ('.$v.")
";
$v = (20 / @ab); print "not " if $v ne q{20}; print 'ok 4143 - (20 / @ab) --> ('.$v.")
";
$v = (20 / @ac); print "not " if $v ne q{6.66666666666667}; print 'ok 4144 - (20 / @ac) --> ('.$v.")
";
$v = (30 / "1"); print "not " if $v ne q{30}; print 'ok 4145 - (30 / "1") --> ('.$v.")
";
$v = (30 / "2"); print "not " if $v ne q{15}; print 'ok 4146 - (30 / "2") --> ('.$v.")
";
$v = (30 / "3"); print "not " if $v ne q{10}; print 'ok 4147 - (30 / "3") --> ('.$v.")
";
$v = (30 / "-1"); print "not " if $v ne q{-30}; print 'ok 4148 - (30 / "-1") --> ('.$v.")
";
$v = (30 / "-2"); print "not " if $v ne q{-15}; print 'ok 4149 - (30 / "-2") --> ('.$v.")
";
$v = (30 / "-3"); print "not " if $v ne q{-10}; print 'ok 4150 - (30 / "-3") --> ('.$v.")
";
$v = (30 / ".1"); print "not " if $v ne q{300}; print 'ok 4151 - (30 / ".1") --> ('.$v.")
";
$v = (30 / ".2"); print "not " if $v ne q{150}; print 'ok 4152 - (30 / ".2") --> ('.$v.")
";
$v = (30 / ".3"); print "not " if $v ne q{100}; print 'ok 4153 - (30 / ".3") --> ('.$v.")
";
$v = (30 / "-.1"); print "not " if $v ne q{-300}; print 'ok 4154 - (30 / "-.1") --> ('.$v.")
";
$v = (30 / "-.2"); print "not " if $v ne q{-150}; print 'ok 4155 - (30 / "-.2") --> ('.$v.")
";
$v = (30 / "-.3"); print "not " if $v ne q{-100}; print 'ok 4156 - (30 / "-.3") --> ('.$v.")
";
$v = (30 / "0.1"); print "not " if $v ne q{300}; print 'ok 4157 - (30 / "0.1") --> ('.$v.")
";
$v = (30 / "0.2"); print "not " if $v ne q{150}; print 'ok 4158 - (30 / "0.2") --> ('.$v.")
";
$v = (30 / "0.3"); print "not " if $v ne q{100}; print 'ok 4159 - (30 / "0.3") --> ('.$v.")
";
$v = (30 / "-0.1"); print "not " if $v ne q{-300}; print 'ok 4160 - (30 / "-0.1") --> ('.$v.")
";
$v = (30 / "-0.2"); print "not " if $v ne q{-150}; print 'ok 4161 - (30 / "-0.2") --> ('.$v.")
";
$v = (30 / "-0.3"); print "not " if $v ne q{-100}; print 'ok 4162 - (30 / "-0.3") --> ('.$v.")
";
$v = (30 / "0.1e1"); print "not " if $v ne q{30}; print 'ok 4163 - (30 / "0.1e1") --> ('.$v.")
";
$v = (30 / "0.2e1"); print "not " if $v ne q{15}; print 'ok 4164 - (30 / "0.2e1") --> ('.$v.")
";
$v = (30 / "0.3e1"); print "not " if $v ne q{10}; print 'ok 4165 - (30 / "0.3e1") --> ('.$v.")
";
$v = (30 / "-0.1e1"); print "not " if $v ne q{-30}; print 'ok 4166 - (30 / "-0.1e1") --> ('.$v.")
";
$v = (30 / "-0.2e1"); print "not " if $v ne q{-15}; print 'ok 4167 - (30 / "-0.2e1") --> ('.$v.")
";
$v = (30 / "-0.3e1"); print "not " if $v ne q{-10}; print 'ok 4168 - (30 / "-0.3e1") --> ('.$v.")
";
$v = (30 / "10"); print "not " if $v ne q{3}; print 'ok 4169 - (30 / "10") --> ('.$v.")
";
$v = (30 / "20"); print "not " if $v ne q{1.5}; print 'ok 4170 - (30 / "20") --> ('.$v.")
";
$v = (30 / "30"); print "not " if $v ne q{1}; print 'ok 4171 - (30 / "30") --> ('.$v.")
";
$v = (30 / "-10"); print "not " if $v ne q{-3}; print 'ok 4172 - (30 / "-10") --> ('.$v.")
";
$v = (30 / "-20"); print "not " if $v ne q{-1.5}; print 'ok 4173 - (30 / "-20") --> ('.$v.")
";
$v = (30 / "-30"); print "not " if $v ne q{-1}; print 'ok 4174 - (30 / "-30") --> ('.$v.")
";
$v = (30 / .1); print "not " if $v ne q{300}; print 'ok 4175 - (30 / .1) --> ('.$v.")
";
$v = (30 / .2); print "not " if $v ne q{150}; print 'ok 4176 - (30 / .2) --> ('.$v.")
";
$v = (30 / .3); print "not " if $v ne q{100}; print 'ok 4177 - (30 / .3) --> ('.$v.")
";
$v = (30 / -.1); print "not " if $v ne q{-300}; print 'ok 4178 - (30 / -.1) --> ('.$v.")
";
$v = (30 / -.2); print "not " if $v ne q{-150}; print 'ok 4179 - (30 / -.2) --> ('.$v.")
";
$v = (30 / -.3); print "not " if $v ne q{-100}; print 'ok 4180 - (30 / -.3) --> ('.$v.")
";
$v = (30 / 0.1); print "not " if $v ne q{300}; print 'ok 4181 - (30 / 0.1) --> ('.$v.")
";
$v = (30 / 0.2); print "not " if $v ne q{150}; print 'ok 4182 - (30 / 0.2) --> ('.$v.")
";
$v = (30 / 0.3); print "not " if $v ne q{100}; print 'ok 4183 - (30 / 0.3) --> ('.$v.")
";
$v = (30 / -0.1); print "not " if $v ne q{-300}; print 'ok 4184 - (30 / -0.1) --> ('.$v.")
";
$v = (30 / -0.2); print "not " if $v ne q{-150}; print 'ok 4185 - (30 / -0.2) --> ('.$v.")
";
$v = (30 / -0.3); print "not " if $v ne q{-100}; print 'ok 4186 - (30 / -0.3) --> ('.$v.")
";
$v = (30 / 0.1e1); print "not " if $v ne q{30}; print 'ok 4187 - (30 / 0.1e1) --> ('.$v.")
";
$v = (30 / 0.2e1); print "not " if $v ne q{15}; print 'ok 4188 - (30 / 0.2e1) --> ('.$v.")
";
$v = (30 / 0.3e1); print "not " if $v ne q{10}; print 'ok 4189 - (30 / 0.3e1) --> ('.$v.")
";
$v = (30 / -0.1e1); print "not " if $v ne q{-30}; print 'ok 4190 - (30 / -0.1e1) --> ('.$v.")
";
$v = (30 / -0.2e1); print "not " if $v ne q{-15}; print 'ok 4191 - (30 / -0.2e1) --> ('.$v.")
";
$v = (30 / -0.3e1); print "not " if $v ne q{-10}; print 'ok 4192 - (30 / -0.3e1) --> ('.$v.")
";
$v = (30 / 10); print "not " if $v ne q{3}; print 'ok 4193 - (30 / 10) --> ('.$v.")
";
$v = (30 / 20); print "not " if $v ne q{1.5}; print 'ok 4194 - (30 / 20) --> ('.$v.")
";
$v = (30 / 30); print "not " if $v ne q{1}; print 'ok 4195 - (30 / 30) --> ('.$v.")
";
$v = (30 / -10); print "not " if $v ne q{-3}; print 'ok 4196 - (30 / -10) --> ('.$v.")
";
$v = (30 / -20); print "not " if $v ne q{-1.5}; print 'ok 4197 - (30 / -20) --> ('.$v.")
";
$v = (30 / -30); print "not " if $v ne q{-1}; print 'ok 4198 - (30 / -30) --> ('.$v.")
";
$v = (30 / @ab); print "not " if $v ne q{30}; print 'ok 4199 - (30 / @ab) --> ('.$v.")
";
$v = (30 / @ac); print "not " if $v ne q{10}; print 'ok 4200 - (30 / @ac) --> ('.$v.")
";
$v = (-00 / "1"); print "not " if $v ne q{0}; print 'ok 4201 - (-00 / "1") --> ('.$v.")
";
$v = (-00 / "2"); print "not " if $v ne q{0}; print 'ok 4202 - (-00 / "2") --> ('.$v.")
";
$v = (-00 / "3"); print "not " if $v ne q{0}; print 'ok 4203 - (-00 / "3") --> ('.$v.")
";
$v = (-00 / "-1"); print "not " if $v ne q{0}; print 'ok 4204 - (-00 / "-1") --> ('.$v.")
";
$v = (-00 / "-2"); print "not " if $v ne q{0}; print 'ok 4205 - (-00 / "-2") --> ('.$v.")
";
$v = (-00 / "-3"); print "not " if $v ne q{0}; print 'ok 4206 - (-00 / "-3") --> ('.$v.")
";
$v = (-00 / ".1"); print "not " if $v ne q{0}; print 'ok 4207 - (-00 / ".1") --> ('.$v.")
";
$v = (-00 / ".2"); print "not " if $v ne q{0}; print 'ok 4208 - (-00 / ".2") --> ('.$v.")
";
$v = (-00 / ".3"); print "not " if $v ne q{0}; print 'ok 4209 - (-00 / ".3") --> ('.$v.")
";
$v = (-00 / "-.1"); print "not " if $v ne q{0}; print 'ok 4210 - (-00 / "-.1") --> ('.$v.")
";
$v = (-00 / "-.2"); print "not " if $v ne q{0}; print 'ok 4211 - (-00 / "-.2") --> ('.$v.")
";
$v = (-00 / "-.3"); print "not " if $v ne q{0}; print 'ok 4212 - (-00 / "-.3") --> ('.$v.")
";
$v = (-00 / "0.1"); print "not " if $v ne q{0}; print 'ok 4213 - (-00 / "0.1") --> ('.$v.")
";
$v = (-00 / "0.2"); print "not " if $v ne q{0}; print 'ok 4214 - (-00 / "0.2") --> ('.$v.")
";
$v = (-00 / "0.3"); print "not " if $v ne q{0}; print 'ok 4215 - (-00 / "0.3") --> ('.$v.")
";
$v = (-00 / "-0.1"); print "not " if $v ne q{0}; print 'ok 4216 - (-00 / "-0.1") --> ('.$v.")
";
$v = (-00 / "-0.2"); print "not " if $v ne q{0}; print 'ok 4217 - (-00 / "-0.2") --> ('.$v.")
";
$v = (-00 / "-0.3"); print "not " if $v ne q{0}; print 'ok 4218 - (-00 / "-0.3") --> ('.$v.")
";
$v = (-00 / "0.1e1"); print "not " if $v ne q{0}; print 'ok 4219 - (-00 / "0.1e1") --> ('.$v.")
";
$v = (-00 / "0.2e1"); print "not " if $v ne q{0}; print 'ok 4220 - (-00 / "0.2e1") --> ('.$v.")
";
$v = (-00 / "0.3e1"); print "not " if $v ne q{0}; print 'ok 4221 - (-00 / "0.3e1") --> ('.$v.")
";
$v = (-00 / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 4222 - (-00 / "-0.1e1") --> ('.$v.")
";
$v = (-00 / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 4223 - (-00 / "-0.2e1") --> ('.$v.")
";
$v = (-00 / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 4224 - (-00 / "-0.3e1") --> ('.$v.")
";
$v = (-00 / "10"); print "not " if $v ne q{0}; print 'ok 4225 - (-00 / "10") --> ('.$v.")
";
$v = (-00 / "20"); print "not " if $v ne q{0}; print 'ok 4226 - (-00 / "20") --> ('.$v.")
";
$v = (-00 / "30"); print "not " if $v ne q{0}; print 'ok 4227 - (-00 / "30") --> ('.$v.")
";
$v = (-00 / "-10"); print "not " if $v ne q{0}; print 'ok 4228 - (-00 / "-10") --> ('.$v.")
";
$v = (-00 / "-20"); print "not " if $v ne q{0}; print 'ok 4229 - (-00 / "-20") --> ('.$v.")
";
$v = (-00 / "-30"); print "not " if $v ne q{0}; print 'ok 4230 - (-00 / "-30") --> ('.$v.")
";
$v = (-00 / .1); print "not " if $v ne q{0}; print 'ok 4231 - (-00 / .1) --> ('.$v.")
";
$v = (-00 / .2); print "not " if $v ne q{0}; print 'ok 4232 - (-00 / .2) --> ('.$v.")
";
$v = (-00 / .3); print "not " if $v ne q{0}; print 'ok 4233 - (-00 / .3) --> ('.$v.")
";
$v = (-00 / -.1); print "not " if $v ne q{0}; print 'ok 4234 - (-00 / -.1) --> ('.$v.")
";
$v = (-00 / -.2); print "not " if $v ne q{0}; print 'ok 4235 - (-00 / -.2) --> ('.$v.")
";
$v = (-00 / -.3); print "not " if $v ne q{0}; print 'ok 4236 - (-00 / -.3) --> ('.$v.")
";
$v = (-00 / 0.1); print "not " if $v ne q{0}; print 'ok 4237 - (-00 / 0.1) --> ('.$v.")
";
$v = (-00 / 0.2); print "not " if $v ne q{0}; print 'ok 4238 - (-00 / 0.2) --> ('.$v.")
";
$v = (-00 / 0.3); print "not " if $v ne q{0}; print 'ok 4239 - (-00 / 0.3) --> ('.$v.")
";
$v = (-00 / -0.1); print "not " if $v ne q{0}; print 'ok 4240 - (-00 / -0.1) --> ('.$v.")
";
$v = (-00 / -0.2); print "not " if $v ne q{0}; print 'ok 4241 - (-00 / -0.2) --> ('.$v.")
";
$v = (-00 / -0.3); print "not " if $v ne q{0}; print 'ok 4242 - (-00 / -0.3) --> ('.$v.")
";
$v = (-00 / 0.1e1); print "not " if $v ne q{0}; print 'ok 4243 - (-00 / 0.1e1) --> ('.$v.")
";
$v = (-00 / 0.2e1); print "not " if $v ne q{0}; print 'ok 4244 - (-00 / 0.2e1) --> ('.$v.")
";
$v = (-00 / 0.3e1); print "not " if $v ne q{0}; print 'ok 4245 - (-00 / 0.3e1) --> ('.$v.")
";
$v = (-00 / -0.1e1); print "not " if $v ne q{0}; print 'ok 4246 - (-00 / -0.1e1) --> ('.$v.")
";
$v = (-00 / -0.2e1); print "not " if $v ne q{0}; print 'ok 4247 - (-00 / -0.2e1) --> ('.$v.")
";
$v = (-00 / -0.3e1); print "not " if $v ne q{0}; print 'ok 4248 - (-00 / -0.3e1) --> ('.$v.")
";
$v = (-00 / 10); print "not " if $v ne q{0}; print 'ok 4249 - (-00 / 10) --> ('.$v.")
";
$v = (-00 / 20); print "not " if $v ne q{0}; print 'ok 4250 - (-00 / 20) --> ('.$v.")
";
$v = (-00 / 30); print "not " if $v ne q{0}; print 'ok 4251 - (-00 / 30) --> ('.$v.")
";
$v = (-00 / -10); print "not " if $v ne q{0}; print 'ok 4252 - (-00 / -10) --> ('.$v.")
";
$v = (-00 / -20); print "not " if $v ne q{0}; print 'ok 4253 - (-00 / -20) --> ('.$v.")
";
$v = (-00 / -30); print "not " if $v ne q{0}; print 'ok 4254 - (-00 / -30) --> ('.$v.")
";
$v = (-00 / @ab); print "not " if $v ne q{0}; print 'ok 4255 - (-00 / @ab) --> ('.$v.")
";
$v = (-00 / @ac); print "not " if $v ne q{0}; print 'ok 4256 - (-00 / @ac) --> ('.$v.")
";
$v = (-10 / "1"); print "not " if $v ne q{-10}; print 'ok 4257 - (-10 / "1") --> ('.$v.")
";
$v = (-10 / "2"); print "not " if $v ne q{-5}; print 'ok 4258 - (-10 / "2") --> ('.$v.")
";
$v = (-10 / "3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4259 - (-10 / "3") --> ('.$v.")
";
$v = (-10 / "-1"); print "not " if $v ne q{10}; print 'ok 4260 - (-10 / "-1") --> ('.$v.")
";
$v = (-10 / "-2"); print "not " if $v ne q{5}; print 'ok 4261 - (-10 / "-2") --> ('.$v.")
";
$v = (-10 / "-3"); print "not " if $v ne q{3.33333333333333}; print 'ok 4262 - (-10 / "-3") --> ('.$v.")
";
$v = (-10 / ".1"); print "not " if $v ne q{-100}; print 'ok 4263 - (-10 / ".1") --> ('.$v.")
";
$v = (-10 / ".2"); print "not " if $v ne q{-50}; print 'ok 4264 - (-10 / ".2") --> ('.$v.")
";
$v = (-10 / ".3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 4265 - (-10 / ".3") --> ('.$v.")
";
$v = (-10 / "-.1"); print "not " if $v ne q{100}; print 'ok 4266 - (-10 / "-.1") --> ('.$v.")
";
$v = (-10 / "-.2"); print "not " if $v ne q{50}; print 'ok 4267 - (-10 / "-.2") --> ('.$v.")
";
$v = (-10 / "-.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 4268 - (-10 / "-.3") --> ('.$v.")
";
$v = (-10 / "0.1"); print "not " if $v ne q{-100}; print 'ok 4269 - (-10 / "0.1") --> ('.$v.")
";
$v = (-10 / "0.2"); print "not " if $v ne q{-50}; print 'ok 4270 - (-10 / "0.2") --> ('.$v.")
";
$v = (-10 / "0.3"); print "not " if $v ne q{-33.3333333333333}; print 'ok 4271 - (-10 / "0.3") --> ('.$v.")
";
$v = (-10 / "-0.1"); print "not " if $v ne q{100}; print 'ok 4272 - (-10 / "-0.1") --> ('.$v.")
";
$v = (-10 / "-0.2"); print "not " if $v ne q{50}; print 'ok 4273 - (-10 / "-0.2") --> ('.$v.")
";
$v = (-10 / "-0.3"); print "not " if $v ne q{33.3333333333333}; print 'ok 4274 - (-10 / "-0.3") --> ('.$v.")
";
$v = (-10 / "0.1e1"); print "not " if $v ne q{-10}; print 'ok 4275 - (-10 / "0.1e1") --> ('.$v.")
";
$v = (-10 / "0.2e1"); print "not " if $v ne q{-5}; print 'ok 4276 - (-10 / "0.2e1") --> ('.$v.")
";
$v = (-10 / "0.3e1"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4277 - (-10 / "0.3e1") --> ('.$v.")
";
$v = (-10 / "-0.1e1"); print "not " if $v ne q{10}; print 'ok 4278 - (-10 / "-0.1e1") --> ('.$v.")
";
$v = (-10 / "-0.2e1"); print "not " if $v ne q{5}; print 'ok 4279 - (-10 / "-0.2e1") --> ('.$v.")
";
$v = (-10 / "-0.3e1"); print "not " if $v ne q{3.33333333333333}; print 'ok 4280 - (-10 / "-0.3e1") --> ('.$v.")
";
$v = (-10 / "10"); print "not " if $v ne q{-1}; print 'ok 4281 - (-10 / "10") --> ('.$v.")
";
$v = (-10 / "20"); print "not " if $v ne q{-0.5}; print 'ok 4282 - (-10 / "20") --> ('.$v.")
";
$v = (-10 / "30"); print "not " if $v ne q{-0.333333333333333}; print 'ok 4283 - (-10 / "30") --> ('.$v.")
";
$v = (-10 / "-10"); print "not " if $v ne q{1}; print 'ok 4284 - (-10 / "-10") --> ('.$v.")
";
$v = (-10 / "-20"); print "not " if $v ne q{0.5}; print 'ok 4285 - (-10 / "-20") --> ('.$v.")
";
$v = (-10 / "-30"); print "not " if $v ne q{0.333333333333333}; print 'ok 4286 - (-10 / "-30") --> ('.$v.")
";
$v = (-10 / .1); print "not " if $v ne q{-100}; print 'ok 4287 - (-10 / .1) --> ('.$v.")
";
$v = (-10 / .2); print "not " if $v ne q{-50}; print 'ok 4288 - (-10 / .2) --> ('.$v.")
";
$v = (-10 / .3); print "not " if $v ne q{-33.3333333333333}; print 'ok 4289 - (-10 / .3) --> ('.$v.")
";
$v = (-10 / -.1); print "not " if $v ne q{100}; print 'ok 4290 - (-10 / -.1) --> ('.$v.")
";
$v = (-10 / -.2); print "not " if $v ne q{50}; print 'ok 4291 - (-10 / -.2) --> ('.$v.")
";
$v = (-10 / -.3); print "not " if $v ne q{33.3333333333333}; print 'ok 4292 - (-10 / -.3) --> ('.$v.")
";
$v = (-10 / 0.1); print "not " if $v ne q{-100}; print 'ok 4293 - (-10 / 0.1) --> ('.$v.")
";
$v = (-10 / 0.2); print "not " if $v ne q{-50}; print 'ok 4294 - (-10 / 0.2) --> ('.$v.")
";
$v = (-10 / 0.3); print "not " if $v ne q{-33.3333333333333}; print 'ok 4295 - (-10 / 0.3) --> ('.$v.")
";
$v = (-10 / -0.1); print "not " if $v ne q{100}; print 'ok 4296 - (-10 / -0.1) --> ('.$v.")
";
$v = (-10 / -0.2); print "not " if $v ne q{50}; print 'ok 4297 - (-10 / -0.2) --> ('.$v.")
";
$v = (-10 / -0.3); print "not " if $v ne q{33.3333333333333}; print 'ok 4298 - (-10 / -0.3) --> ('.$v.")
";
$v = (-10 / 0.1e1); print "not " if $v ne q{-10}; print 'ok 4299 - (-10 / 0.1e1) --> ('.$v.")
";
$v = (-10 / 0.2e1); print "not " if $v ne q{-5}; print 'ok 4300 - (-10 / 0.2e1) --> ('.$v.")
";
$v = (-10 / 0.3e1); print "not " if $v ne q{-3.33333333333333}; print 'ok 4301 - (-10 / 0.3e1) --> ('.$v.")
";
$v = (-10 / -0.1e1); print "not " if $v ne q{10}; print 'ok 4302 - (-10 / -0.1e1) --> ('.$v.")
";
$v = (-10 / -0.2e1); print "not " if $v ne q{5}; print 'ok 4303 - (-10 / -0.2e1) --> ('.$v.")
";
$v = (-10 / -0.3e1); print "not " if $v ne q{3.33333333333333}; print 'ok 4304 - (-10 / -0.3e1) --> ('.$v.")
";
$v = (-10 / 10); print "not " if $v ne q{-1}; print 'ok 4305 - (-10 / 10) --> ('.$v.")
";
$v = (-10 / 20); print "not " if $v ne q{-0.5}; print 'ok 4306 - (-10 / 20) --> ('.$v.")
";
$v = (-10 / 30); print "not " if $v ne q{-0.333333333333333}; print 'ok 4307 - (-10 / 30) --> ('.$v.")
";
$v = (-10 / -10); print "not " if $v ne q{1}; print 'ok 4308 - (-10 / -10) --> ('.$v.")
";
$v = (-10 / -20); print "not " if $v ne q{0.5}; print 'ok 4309 - (-10 / -20) --> ('.$v.")
";
$v = (-10 / -30); print "not " if $v ne q{0.333333333333333}; print 'ok 4310 - (-10 / -30) --> ('.$v.")
";
$v = (-10 / @ab); print "not " if $v ne q{-10}; print 'ok 4311 - (-10 / @ab) --> ('.$v.")
";
$v = (-10 / @ac); print "not " if $v ne q{-3.33333333333333}; print 'ok 4312 - (-10 / @ac) --> ('.$v.")
";
$v = (-20 / "1"); print "not " if $v ne q{-20}; print 'ok 4313 - (-20 / "1") --> ('.$v.")
";
$v = (-20 / "2"); print "not " if $v ne q{-10}; print 'ok 4314 - (-20 / "2") --> ('.$v.")
";
$v = (-20 / "3"); print "not " if $v ne q{-6.66666666666667}; print 'ok 4315 - (-20 / "3") --> ('.$v.")
";
$v = (-20 / "-1"); print "not " if $v ne q{20}; print 'ok 4316 - (-20 / "-1") --> ('.$v.")
";
$v = (-20 / "-2"); print "not " if $v ne q{10}; print 'ok 4317 - (-20 / "-2") --> ('.$v.")
";
$v = (-20 / "-3"); print "not " if $v ne q{6.66666666666667}; print 'ok 4318 - (-20 / "-3") --> ('.$v.")
";
$v = (-20 / ".1"); print "not " if $v ne q{-200}; print 'ok 4319 - (-20 / ".1") --> ('.$v.")
";
$v = (-20 / ".2"); print "not " if $v ne q{-100}; print 'ok 4320 - (-20 / ".2") --> ('.$v.")
";
$v = (-20 / ".3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 4321 - (-20 / ".3") --> ('.$v.")
";
$v = (-20 / "-.1"); print "not " if $v ne q{200}; print 'ok 4322 - (-20 / "-.1") --> ('.$v.")
";
$v = (-20 / "-.2"); print "not " if $v ne q{100}; print 'ok 4323 - (-20 / "-.2") --> ('.$v.")
";
$v = (-20 / "-.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 4324 - (-20 / "-.3") --> ('.$v.")
";
$v = (-20 / "0.1"); print "not " if $v ne q{-200}; print 'ok 4325 - (-20 / "0.1") --> ('.$v.")
";
$v = (-20 / "0.2"); print "not " if $v ne q{-100}; print 'ok 4326 - (-20 / "0.2") --> ('.$v.")
";
$v = (-20 / "0.3"); print "not " if $v ne q{-66.6666666666667}; print 'ok 4327 - (-20 / "0.3") --> ('.$v.")
";
$v = (-20 / "-0.1"); print "not " if $v ne q{200}; print 'ok 4328 - (-20 / "-0.1") --> ('.$v.")
";
$v = (-20 / "-0.2"); print "not " if $v ne q{100}; print 'ok 4329 - (-20 / "-0.2") --> ('.$v.")
";
$v = (-20 / "-0.3"); print "not " if $v ne q{66.6666666666667}; print 'ok 4330 - (-20 / "-0.3") --> ('.$v.")
";
$v = (-20 / "0.1e1"); print "not " if $v ne q{-20}; print 'ok 4331 - (-20 / "0.1e1") --> ('.$v.")
";
$v = (-20 / "0.2e1"); print "not " if $v ne q{-10}; print 'ok 4332 - (-20 / "0.2e1") --> ('.$v.")
";
$v = (-20 / "0.3e1"); print "not " if $v ne q{-6.66666666666667}; print 'ok 4333 - (-20 / "0.3e1") --> ('.$v.")
";
$v = (-20 / "-0.1e1"); print "not " if $v ne q{20}; print 'ok 4334 - (-20 / "-0.1e1") --> ('.$v.")
";
$v = (-20 / "-0.2e1"); print "not " if $v ne q{10}; print 'ok 4335 - (-20 / "-0.2e1") --> ('.$v.")
";
$v = (-20 / "-0.3e1"); print "not " if $v ne q{6.66666666666667}; print 'ok 4336 - (-20 / "-0.3e1") --> ('.$v.")
";
$v = (-20 / "10"); print "not " if $v ne q{-2}; print 'ok 4337 - (-20 / "10") --> ('.$v.")
";
$v = (-20 / "20"); print "not " if $v ne q{-1}; print 'ok 4338 - (-20 / "20") --> ('.$v.")
";
$v = (-20 / "30"); print "not " if $v ne q{-0.666666666666667}; print 'ok 4339 - (-20 / "30") --> ('.$v.")
";
$v = (-20 / "-10"); print "not " if $v ne q{2}; print 'ok 4340 - (-20 / "-10") --> ('.$v.")
";
$v = (-20 / "-20"); print "not " if $v ne q{1}; print 'ok 4341 - (-20 / "-20") --> ('.$v.")
";
$v = (-20 / "-30"); print "not " if $v ne q{0.666666666666667}; print 'ok 4342 - (-20 / "-30") --> ('.$v.")
";
$v = (-20 / .1); print "not " if $v ne q{-200}; print 'ok 4343 - (-20 / .1) --> ('.$v.")
";
$v = (-20 / .2); print "not " if $v ne q{-100}; print 'ok 4344 - (-20 / .2) --> ('.$v.")
";
$v = (-20 / .3); print "not " if $v ne q{-66.6666666666667}; print 'ok 4345 - (-20 / .3) --> ('.$v.")
";
$v = (-20 / -.1); print "not " if $v ne q{200}; print 'ok 4346 - (-20 / -.1) --> ('.$v.")
";
$v = (-20 / -.2); print "not " if $v ne q{100}; print 'ok 4347 - (-20 / -.2) --> ('.$v.")
";
$v = (-20 / -.3); print "not " if $v ne q{66.6666666666667}; print 'ok 4348 - (-20 / -.3) --> ('.$v.")
";
$v = (-20 / 0.1); print "not " if $v ne q{-200}; print 'ok 4349 - (-20 / 0.1) --> ('.$v.")
";
$v = (-20 / 0.2); print "not " if $v ne q{-100}; print 'ok 4350 - (-20 / 0.2) --> ('.$v.")
";
$v = (-20 / 0.3); print "not " if $v ne q{-66.6666666666667}; print 'ok 4351 - (-20 / 0.3) --> ('.$v.")
";
$v = (-20 / -0.1); print "not " if $v ne q{200}; print 'ok 4352 - (-20 / -0.1) --> ('.$v.")
";
$v = (-20 / -0.2); print "not " if $v ne q{100}; print 'ok 4353 - (-20 / -0.2) --> ('.$v.")
";
$v = (-20 / -0.3); print "not " if $v ne q{66.6666666666667}; print 'ok 4354 - (-20 / -0.3) --> ('.$v.")
";
$v = (-20 / 0.1e1); print "not " if $v ne q{-20}; print 'ok 4355 - (-20 / 0.1e1) --> ('.$v.")
";
$v = (-20 / 0.2e1); print "not " if $v ne q{-10}; print 'ok 4356 - (-20 / 0.2e1) --> ('.$v.")
";
$v = (-20 / 0.3e1); print "not " if $v ne q{-6.66666666666667}; print 'ok 4357 - (-20 / 0.3e1) --> ('.$v.")
";
$v = (-20 / -0.1e1); print "not " if $v ne q{20}; print 'ok 4358 - (-20 / -0.1e1) --> ('.$v.")
";
$v = (-20 / -0.2e1); print "not " if $v ne q{10}; print 'ok 4359 - (-20 / -0.2e1) --> ('.$v.")
";
$v = (-20 / -0.3e1); print "not " if $v ne q{6.66666666666667}; print 'ok 4360 - (-20 / -0.3e1) --> ('.$v.")
";
$v = (-20 / 10); print "not " if $v ne q{-2}; print 'ok 4361 - (-20 / 10) --> ('.$v.")
";
$v = (-20 / 20); print "not " if $v ne q{-1}; print 'ok 4362 - (-20 / 20) --> ('.$v.")
";
$v = (-20 / 30); print "not " if $v ne q{-0.666666666666667}; print 'ok 4363 - (-20 / 30) --> ('.$v.")
";
$v = (-20 / -10); print "not " if $v ne q{2}; print 'ok 4364 - (-20 / -10) --> ('.$v.")
";
$v = (-20 / -20); print "not " if $v ne q{1}; print 'ok 4365 - (-20 / -20) --> ('.$v.")
";
$v = (-20 / -30); print "not " if $v ne q{0.666666666666667}; print 'ok 4366 - (-20 / -30) --> ('.$v.")
";
$v = (-20 / @ab); print "not " if $v ne q{-20}; print 'ok 4367 - (-20 / @ab) --> ('.$v.")
";
$v = (-20 / @ac); print "not " if $v ne q{-6.66666666666667}; print 'ok 4368 - (-20 / @ac) --> ('.$v.")
";
$v = (-30 / "1"); print "not " if $v ne q{-30}; print 'ok 4369 - (-30 / "1") --> ('.$v.")
";
$v = (-30 / "2"); print "not " if $v ne q{-15}; print 'ok 4370 - (-30 / "2") --> ('.$v.")
";
$v = (-30 / "3"); print "not " if $v ne q{-10}; print 'ok 4371 - (-30 / "3") --> ('.$v.")
";
$v = (-30 / "-1"); print "not " if $v ne q{30}; print 'ok 4372 - (-30 / "-1") --> ('.$v.")
";
$v = (-30 / "-2"); print "not " if $v ne q{15}; print 'ok 4373 - (-30 / "-2") --> ('.$v.")
";
$v = (-30 / "-3"); print "not " if $v ne q{10}; print 'ok 4374 - (-30 / "-3") --> ('.$v.")
";
$v = (-30 / ".1"); print "not " if $v ne q{-300}; print 'ok 4375 - (-30 / ".1") --> ('.$v.")
";
$v = (-30 / ".2"); print "not " if $v ne q{-150}; print 'ok 4376 - (-30 / ".2") --> ('.$v.")
";
$v = (-30 / ".3"); print "not " if $v ne q{-100}; print 'ok 4377 - (-30 / ".3") --> ('.$v.")
";
$v = (-30 / "-.1"); print "not " if $v ne q{300}; print 'ok 4378 - (-30 / "-.1") --> ('.$v.")
";
$v = (-30 / "-.2"); print "not " if $v ne q{150}; print 'ok 4379 - (-30 / "-.2") --> ('.$v.")
";
$v = (-30 / "-.3"); print "not " if $v ne q{100}; print 'ok 4380 - (-30 / "-.3") --> ('.$v.")
";
$v = (-30 / "0.1"); print "not " if $v ne q{-300}; print 'ok 4381 - (-30 / "0.1") --> ('.$v.")
";
$v = (-30 / "0.2"); print "not " if $v ne q{-150}; print 'ok 4382 - (-30 / "0.2") --> ('.$v.")
";
$v = (-30 / "0.3"); print "not " if $v ne q{-100}; print 'ok 4383 - (-30 / "0.3") --> ('.$v.")
";
$v = (-30 / "-0.1"); print "not " if $v ne q{300}; print 'ok 4384 - (-30 / "-0.1") --> ('.$v.")
";
$v = (-30 / "-0.2"); print "not " if $v ne q{150}; print 'ok 4385 - (-30 / "-0.2") --> ('.$v.")
";
$v = (-30 / "-0.3"); print "not " if $v ne q{100}; print 'ok 4386 - (-30 / "-0.3") --> ('.$v.")
";
$v = (-30 / "0.1e1"); print "not " if $v ne q{-30}; print 'ok 4387 - (-30 / "0.1e1") --> ('.$v.")
";
$v = (-30 / "0.2e1"); print "not " if $v ne q{-15}; print 'ok 4388 - (-30 / "0.2e1") --> ('.$v.")
";
$v = (-30 / "0.3e1"); print "not " if $v ne q{-10}; print 'ok 4389 - (-30 / "0.3e1") --> ('.$v.")
";
$v = (-30 / "-0.1e1"); print "not " if $v ne q{30}; print 'ok 4390 - (-30 / "-0.1e1") --> ('.$v.")
";
$v = (-30 / "-0.2e1"); print "not " if $v ne q{15}; print 'ok 4391 - (-30 / "-0.2e1") --> ('.$v.")
";
$v = (-30 / "-0.3e1"); print "not " if $v ne q{10}; print 'ok 4392 - (-30 / "-0.3e1") --> ('.$v.")
";
$v = (-30 / "10"); print "not " if $v ne q{-3}; print 'ok 4393 - (-30 / "10") --> ('.$v.")
";
$v = (-30 / "20"); print "not " if $v ne q{-1.5}; print 'ok 4394 - (-30 / "20") --> ('.$v.")
";
$v = (-30 / "30"); print "not " if $v ne q{-1}; print 'ok 4395 - (-30 / "30") --> ('.$v.")
";
$v = (-30 / "-10"); print "not " if $v ne q{3}; print 'ok 4396 - (-30 / "-10") --> ('.$v.")
";
$v = (-30 / "-20"); print "not " if $v ne q{1.5}; print 'ok 4397 - (-30 / "-20") --> ('.$v.")
";
$v = (-30 / "-30"); print "not " if $v ne q{1}; print 'ok 4398 - (-30 / "-30") --> ('.$v.")
";
$v = (-30 / .1); print "not " if $v ne q{-300}; print 'ok 4399 - (-30 / .1) --> ('.$v.")
";
$v = (-30 / .2); print "not " if $v ne q{-150}; print 'ok 4400 - (-30 / .2) --> ('.$v.")
";
$v = (-30 / .3); print "not " if $v ne q{-100}; print 'ok 4401 - (-30 / .3) --> ('.$v.")
";
$v = (-30 / -.1); print "not " if $v ne q{300}; print 'ok 4402 - (-30 / -.1) --> ('.$v.")
";
$v = (-30 / -.2); print "not " if $v ne q{150}; print 'ok 4403 - (-30 / -.2) --> ('.$v.")
";
$v = (-30 / -.3); print "not " if $v ne q{100}; print 'ok 4404 - (-30 / -.3) --> ('.$v.")
";
$v = (-30 / 0.1); print "not " if $v ne q{-300}; print 'ok 4405 - (-30 / 0.1) --> ('.$v.")
";
$v = (-30 / 0.2); print "not " if $v ne q{-150}; print 'ok 4406 - (-30 / 0.2) --> ('.$v.")
";
$v = (-30 / 0.3); print "not " if $v ne q{-100}; print 'ok 4407 - (-30 / 0.3) --> ('.$v.")
";
$v = (-30 / -0.1); print "not " if $v ne q{300}; print 'ok 4408 - (-30 / -0.1) --> ('.$v.")
";
$v = (-30 / -0.2); print "not " if $v ne q{150}; print 'ok 4409 - (-30 / -0.2) --> ('.$v.")
";
$v = (-30 / -0.3); print "not " if $v ne q{100}; print 'ok 4410 - (-30 / -0.3) --> ('.$v.")
";
$v = (-30 / 0.1e1); print "not " if $v ne q{-30}; print 'ok 4411 - (-30 / 0.1e1) --> ('.$v.")
";
$v = (-30 / 0.2e1); print "not " if $v ne q{-15}; print 'ok 4412 - (-30 / 0.2e1) --> ('.$v.")
";
$v = (-30 / 0.3e1); print "not " if $v ne q{-10}; print 'ok 4413 - (-30 / 0.3e1) --> ('.$v.")
";
$v = (-30 / -0.1e1); print "not " if $v ne q{30}; print 'ok 4414 - (-30 / -0.1e1) --> ('.$v.")
";
$v = (-30 / -0.2e1); print "not " if $v ne q{15}; print 'ok 4415 - (-30 / -0.2e1) --> ('.$v.")
";
$v = (-30 / -0.3e1); print "not " if $v ne q{10}; print 'ok 4416 - (-30 / -0.3e1) --> ('.$v.")
";
$v = (-30 / 10); print "not " if $v ne q{-3}; print 'ok 4417 - (-30 / 10) --> ('.$v.")
";
$v = (-30 / 20); print "not " if $v ne q{-1.5}; print 'ok 4418 - (-30 / 20) --> ('.$v.")
";
$v = (-30 / 30); print "not " if $v ne q{-1}; print 'ok 4419 - (-30 / 30) --> ('.$v.")
";
$v = (-30 / -10); print "not " if $v ne q{3}; print 'ok 4420 - (-30 / -10) --> ('.$v.")
";
$v = (-30 / -20); print "not " if $v ne q{1.5}; print 'ok 4421 - (-30 / -20) --> ('.$v.")
";
$v = (-30 / -30); print "not " if $v ne q{1}; print 'ok 4422 - (-30 / -30) --> ('.$v.")
";
$v = (-30 / @ab); print "not " if $v ne q{-30}; print 'ok 4423 - (-30 / @ab) --> ('.$v.")
";
$v = (-30 / @ac); print "not " if $v ne q{-10}; print 'ok 4424 - (-30 / @ac) --> ('.$v.")
";
$v = (@aa / "1"); print "not " if $v ne q{0}; print 'ok 4425 - (@aa / "1") --> ('.$v.")
";
$v = (@aa / "2"); print "not " if $v ne q{0}; print 'ok 4426 - (@aa / "2") --> ('.$v.")
";
$v = (@aa / "3"); print "not " if $v ne q{0}; print 'ok 4427 - (@aa / "3") --> ('.$v.")
";
$v = (@aa / "-1"); print "not " if $v ne q{0}; print 'ok 4428 - (@aa / "-1") --> ('.$v.")
";
$v = (@aa / "-2"); print "not " if $v ne q{0}; print 'ok 4429 - (@aa / "-2") --> ('.$v.")
";
$v = (@aa / "-3"); print "not " if $v ne q{0}; print 'ok 4430 - (@aa / "-3") --> ('.$v.")
";
$v = (@aa / ".1"); print "not " if $v ne q{0}; print 'ok 4431 - (@aa / ".1") --> ('.$v.")
";
$v = (@aa / ".2"); print "not " if $v ne q{0}; print 'ok 4432 - (@aa / ".2") --> ('.$v.")
";
$v = (@aa / ".3"); print "not " if $v ne q{0}; print 'ok 4433 - (@aa / ".3") --> ('.$v.")
";
$v = (@aa / "-.1"); print "not " if $v ne q{0}; print 'ok 4434 - (@aa / "-.1") --> ('.$v.")
";
$v = (@aa / "-.2"); print "not " if $v ne q{0}; print 'ok 4435 - (@aa / "-.2") --> ('.$v.")
";
$v = (@aa / "-.3"); print "not " if $v ne q{0}; print 'ok 4436 - (@aa / "-.3") --> ('.$v.")
";
$v = (@aa / "0.1"); print "not " if $v ne q{0}; print 'ok 4437 - (@aa / "0.1") --> ('.$v.")
";
$v = (@aa / "0.2"); print "not " if $v ne q{0}; print 'ok 4438 - (@aa / "0.2") --> ('.$v.")
";
$v = (@aa / "0.3"); print "not " if $v ne q{0}; print 'ok 4439 - (@aa / "0.3") --> ('.$v.")
";
$v = (@aa / "-0.1"); print "not " if $v ne q{0}; print 'ok 4440 - (@aa / "-0.1") --> ('.$v.")
";
$v = (@aa / "-0.2"); print "not " if $v ne q{0}; print 'ok 4441 - (@aa / "-0.2") --> ('.$v.")
";
$v = (@aa / "-0.3"); print "not " if $v ne q{0}; print 'ok 4442 - (@aa / "-0.3") --> ('.$v.")
";
$v = (@aa / "0.1e1"); print "not " if $v ne q{0}; print 'ok 4443 - (@aa / "0.1e1") --> ('.$v.")
";
$v = (@aa / "0.2e1"); print "not " if $v ne q{0}; print 'ok 4444 - (@aa / "0.2e1") --> ('.$v.")
";
$v = (@aa / "0.3e1"); print "not " if $v ne q{0}; print 'ok 4445 - (@aa / "0.3e1") --> ('.$v.")
";
$v = (@aa / "-0.1e1"); print "not " if $v ne q{0}; print 'ok 4446 - (@aa / "-0.1e1") --> ('.$v.")
";
$v = (@aa / "-0.2e1"); print "not " if $v ne q{0}; print 'ok 4447 - (@aa / "-0.2e1") --> ('.$v.")
";
$v = (@aa / "-0.3e1"); print "not " if $v ne q{0}; print 'ok 4448 - (@aa / "-0.3e1") --> ('.$v.")
";
$v = (@aa / "10"); print "not " if $v ne q{0}; print 'ok 4449 - (@aa / "10") --> ('.$v.")
";
$v = (@aa / "20"); print "not " if $v ne q{0}; print 'ok 4450 - (@aa / "20") --> ('.$v.")
";
$v = (@aa / "30"); print "not " if $v ne q{0}; print 'ok 4451 - (@aa / "30") --> ('.$v.")
";
$v = (@aa / "-10"); print "not " if $v ne q{0}; print 'ok 4452 - (@aa / "-10") --> ('.$v.")
";
$v = (@aa / "-20"); print "not " if $v ne q{0}; print 'ok 4453 - (@aa / "-20") --> ('.$v.")
";
$v = (@aa / "-30"); print "not " if $v ne q{0}; print 'ok 4454 - (@aa / "-30") --> ('.$v.")
";
$v = (@aa / .1); print "not " if $v ne q{0}; print 'ok 4455 - (@aa / .1) --> ('.$v.")
";
$v = (@aa / .2); print "not " if $v ne q{0}; print 'ok 4456 - (@aa / .2) --> ('.$v.")
";
$v = (@aa / .3); print "not " if $v ne q{0}; print 'ok 4457 - (@aa / .3) --> ('.$v.")
";
$v = (@aa / -.1); print "not " if $v ne q{0}; print 'ok 4458 - (@aa / -.1) --> ('.$v.")
";
$v = (@aa / -.2); print "not " if $v ne q{0}; print 'ok 4459 - (@aa / -.2) --> ('.$v.")
";
$v = (@aa / -.3); print "not " if $v ne q{0}; print 'ok 4460 - (@aa / -.3) --> ('.$v.")
";
$v = (@aa / 0.1); print "not " if $v ne q{0}; print 'ok 4461 - (@aa / 0.1) --> ('.$v.")
";
$v = (@aa / 0.2); print "not " if $v ne q{0}; print 'ok 4462 - (@aa / 0.2) --> ('.$v.")
";
$v = (@aa / 0.3); print "not " if $v ne q{0}; print 'ok 4463 - (@aa / 0.3) --> ('.$v.")
";
$v = (@aa / -0.1); print "not " if $v ne q{0}; print 'ok 4464 - (@aa / -0.1) --> ('.$v.")
";
$v = (@aa / -0.2); print "not " if $v ne q{0}; print 'ok 4465 - (@aa / -0.2) --> ('.$v.")
";
$v = (@aa / -0.3); print "not " if $v ne q{0}; print 'ok 4466 - (@aa / -0.3) --> ('.$v.")
";
$v = (@aa / 0.1e1); print "not " if $v ne q{0}; print 'ok 4467 - (@aa / 0.1e1) --> ('.$v.")
";
$v = (@aa / 0.2e1); print "not " if $v ne q{0}; print 'ok 4468 - (@aa / 0.2e1) --> ('.$v.")
";
$v = (@aa / 0.3e1); print "not " if $v ne q{0}; print 'ok 4469 - (@aa / 0.3e1) --> ('.$v.")
";
$v = (@aa / -0.1e1); print "not " if $v ne q{0}; print 'ok 4470 - (@aa / -0.1e1) --> ('.$v.")
";
$v = (@aa / -0.2e1); print "not " if $v ne q{0}; print 'ok 4471 - (@aa / -0.2e1) --> ('.$v.")
";
$v = (@aa / -0.3e1); print "not " if $v ne q{0}; print 'ok 4472 - (@aa / -0.3e1) --> ('.$v.")
";
$v = (@aa / 10); print "not " if $v ne q{0}; print 'ok 4473 - (@aa / 10) --> ('.$v.")
";
$v = (@aa / 20); print "not " if $v ne q{0}; print 'ok 4474 - (@aa / 20) --> ('.$v.")
";
$v = (@aa / 30); print "not " if $v ne q{0}; print 'ok 4475 - (@aa / 30) --> ('.$v.")
";
$v = (@aa / -10); print "not " if $v ne q{0}; print 'ok 4476 - (@aa / -10) --> ('.$v.")
";
$v = (@aa / -20); print "not " if $v ne q{0}; print 'ok 4477 - (@aa / -20) --> ('.$v.")
";
$v = (@aa / -30); print "not " if $v ne q{0}; print 'ok 4478 - (@aa / -30) --> ('.$v.")
";
$v = (@aa / @ab); print "not " if $v ne q{0}; print 'ok 4479 - (@aa / @ab) --> ('.$v.")
";
$v = (@aa / @ac); print "not " if $v ne q{0}; print 'ok 4480 - (@aa / @ac) --> ('.$v.")
";
$v = (@ab / "1"); print "not " if $v ne q{1}; print 'ok 4481 - (@ab / "1") --> ('.$v.")
";
$v = (@ab / "2"); print "not " if $v ne q{0.5}; print 'ok 4482 - (@ab / "2") --> ('.$v.")
";
$v = (@ab / "3"); print "not " if $v ne q{0.333333333333333}; print 'ok 4483 - (@ab / "3") --> ('.$v.")
";
$v = (@ab / "-1"); print "not " if $v ne q{-1}; print 'ok 4484 - (@ab / "-1") --> ('.$v.")
";
$v = (@ab / "-2"); print "not " if $v ne q{-0.5}; print 'ok 4485 - (@ab / "-2") --> ('.$v.")
";
$v = (@ab / "-3"); print "not " if $v ne q{-0.333333333333333}; print 'ok 4486 - (@ab / "-3") --> ('.$v.")
";
$v = (@ab / ".1"); print "not " if $v ne q{10}; print 'ok 4487 - (@ab / ".1") --> ('.$v.")
";
$v = (@ab / ".2"); print "not " if $v ne q{5}; print 'ok 4488 - (@ab / ".2") --> ('.$v.")
";
$v = (@ab / ".3"); print "not " if $v ne q{3.33333333333333}; print 'ok 4489 - (@ab / ".3") --> ('.$v.")
";
$v = (@ab / "-.1"); print "not " if $v ne q{-10}; print 'ok 4490 - (@ab / "-.1") --> ('.$v.")
";
$v = (@ab / "-.2"); print "not " if $v ne q{-5}; print 'ok 4491 - (@ab / "-.2") --> ('.$v.")
";
$v = (@ab / "-.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4492 - (@ab / "-.3") --> ('.$v.")
";
$v = (@ab / "0.1"); print "not " if $v ne q{10}; print 'ok 4493 - (@ab / "0.1") --> ('.$v.")
";
$v = (@ab / "0.2"); print "not " if $v ne q{5}; print 'ok 4494 - (@ab / "0.2") --> ('.$v.")
";
$v = (@ab / "0.3"); print "not " if $v ne q{3.33333333333333}; print 'ok 4495 - (@ab / "0.3") --> ('.$v.")
";
$v = (@ab / "-0.1"); print "not " if $v ne q{-10}; print 'ok 4496 - (@ab / "-0.1") --> ('.$v.")
";
$v = (@ab / "-0.2"); print "not " if $v ne q{-5}; print 'ok 4497 - (@ab / "-0.2") --> ('.$v.")
";
$v = (@ab / "-0.3"); print "not " if $v ne q{-3.33333333333333}; print 'ok 4498 - (@ab / "-0.3") --> ('.$v.")
";
$v = (@ab / "0.1e1"); print "not " if $v ne q{1}; print 'ok 4499 - (@ab / "0.1e1") --> ('.$v.")
";
$v = (@ab / "0.2e1"); print "not " if $v ne q{0.5}; print 'ok 4500 - (@ab / "0.2e1") --> ('.$v.")
";
$v = (@ab / "0.3e1"); print "not " if $v ne q{0.333333333333333}; print 'ok 4501 - (@ab / "0.3e1") --> ('.$v.")
";
$v = (@ab / "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 4502 - (@ab / "-0.1e1") --> ('.$v.")
";
$v = (@ab / "-0.2e1"); print "not " if $v ne q{-0.5}; print 'ok 4503 - (@ab / "-0.2e1") --> ('.$v.")
";
$v = (@ab / "-0.3e1"); print "not " if $v ne q{-0.333333333333333}; print 'ok 4504 - (@ab / "-0.3e1") --> ('.$v.")
";
$v = (@ab / "10"); print "not " if $v ne q{0.1}; print 'ok 4505 - (@ab / "10") --> ('.$v.")
";
$v = (@ab / "20"); print "not " if $v ne q{0.05}; print 'ok 4506 - (@ab / "20") --> ('.$v.")
";
$v = (@ab / "30"); print "not " if $v ne q{0.0333333333333333}; print 'ok 4507 - (@ab / "30") --> ('.$v.")
";
$v = (@ab / "-10"); print "not " if $v ne q{-0.1}; print 'ok 4508 - (@ab / "-10") --> ('.$v.")
";
$v = (@ab / "-20"); print "not " if $v ne q{-0.05}; print 'ok 4509 - (@ab / "-20") --> ('.$v.")
";
$v = (@ab / "-30"); print "not " if $v ne q{-0.0333333333333333}; print 'ok 4510 - (@ab / "-30") --> ('.$v.")
";
$v = (@ab / .1); print "not " if $v ne q{10}; print 'ok 4511 - (@ab / .1) --> ('.$v.")
";
$v = (@ab / .2); print "not " if $v ne q{5}; print 'ok 4512 - (@ab / .2) --> ('.$v.")
";
$v = (@ab / .3); print "not " if $v ne q{3.33333333333333}; print 'ok 4513 - (@ab / .3) --> ('.$v.")
";
$v = (@ab / -.1); print "not " if $v ne q{-10}; print 'ok 4514 - (@ab / -.1) --> ('.$v.")
";
$v = (@ab / -.2); print "not " if $v ne q{-5}; print 'ok 4515 - (@ab / -.2) --> ('.$v.")
";
$v = (@ab / -.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 4516 - (@ab / -.3) --> ('.$v.")
";
$v = (@ab / 0.1); print "not " if $v ne q{10}; print 'ok 4517 - (@ab / 0.1) --> ('.$v.")
";
$v = (@ab / 0.2); print "not " if $v ne q{5}; print 'ok 4518 - (@ab / 0.2) --> ('.$v.")
";
$v = (@ab / 0.3); print "not " if $v ne q{3.33333333333333}; print 'ok 4519 - (@ab / 0.3) --> ('.$v.")
";
$v = (@ab / -0.1); print "not " if $v ne q{-10}; print 'ok 4520 - (@ab / -0.1) --> ('.$v.")
";
$v = (@ab / -0.2); print "not " if $v ne q{-5}; print 'ok 4521 - (@ab / -0.2) --> ('.$v.")
";
$v = (@ab / -0.3); print "not " if $v ne q{-3.33333333333333}; print 'ok 4522 - (@ab / -0.3) --> ('.$v.")
";
$v = (@ab / 0.1e1); print "not " if $v ne q{1}; print 'ok 4523 - (@ab / 0.1e1) --> ('.$v.")
";
$v = (@ab / 0.2e1); print "not " if $v ne q{0.5}; print 'ok 4524 - (@ab / 0.2e1) --> ('.$v.")
";
$v = (@ab / 0.3e1); print "not " if $v ne q{0.333333333333333}; print 'ok 4525 - (@ab / 0.3e1) --> ('.$v.")
";
$v = (@ab / -0.1e1); print "not " if $v ne q{-1}; print 'ok 4526 - (@ab / -0.1e1) --> ('.$v.")
";
$v = (@ab / -0.2e1); print "not " if $v ne q{-0.5}; print 'ok 4527 - (@ab / -0.2e1) --> ('.$v.")
";
$v = (@ab / -0.3e1); print "not " if $v ne q{-0.333333333333333}; print 'ok 4528 - (@ab / -0.3e1) --> ('.$v.")
";
$v = (@ab / 10); print "not " if $v ne q{0.1}; print 'ok 4529 - (@ab / 10) --> ('.$v.")
";
$v = (@ab / 20); print "not " if $v ne q{0.05}; print 'ok 4530 - (@ab / 20) --> ('.$v.")
";
$v = (@ab / 30); print "not " if $v ne q{0.0333333333333333}; print 'ok 4531 - (@ab / 30) --> ('.$v.")
";
$v = (@ab / -10); print "not " if $v ne q{-0.1}; print 'ok 4532 - (@ab / -10) --> ('.$v.")
";
$v = (@ab / -20); print "not " if $v ne q{-0.05}; print 'ok 4533 - (@ab / -20) --> ('.$v.")
";
$v = (@ab / -30); print "not " if $v ne q{-0.0333333333333333}; print 'ok 4534 - (@ab / -30) --> ('.$v.")
";
$v = (@ab / @ab); print "not " if $v ne q{1}; print 'ok 4535 - (@ab / @ab) --> ('.$v.")
";
$v = (@ab / @ac); print "not " if $v ne q{0.333333333333333}; print 'ok 4536 - (@ab / @ac) --> ('.$v.")
";
$v = (@ac / "1"); print "not " if $v ne q{3}; print 'ok 4537 - (@ac / "1") --> ('.$v.")
";
$v = (@ac / "2"); print "not " if $v ne q{1.5}; print 'ok 4538 - (@ac / "2") --> ('.$v.")
";
$v = (@ac / "3"); print "not " if $v ne q{1}; print 'ok 4539 - (@ac / "3") --> ('.$v.")
";
$v = (@ac / "-1"); print "not " if $v ne q{-3}; print 'ok 4540 - (@ac / "-1") --> ('.$v.")
";
$v = (@ac / "-2"); print "not " if $v ne q{-1.5}; print 'ok 4541 - (@ac / "-2") --> ('.$v.")
";
$v = (@ac / "-3"); print "not " if $v ne q{-1}; print 'ok 4542 - (@ac / "-3") --> ('.$v.")
";
$v = (@ac / ".1"); print "not " if $v ne q{30}; print 'ok 4543 - (@ac / ".1") --> ('.$v.")
";
$v = (@ac / ".2"); print "not " if $v ne q{15}; print 'ok 4544 - (@ac / ".2") --> ('.$v.")
";
$v = (@ac / ".3"); print "not " if $v ne q{10}; print 'ok 4545 - (@ac / ".3") --> ('.$v.")
";
$v = (@ac / "-.1"); print "not " if $v ne q{-30}; print 'ok 4546 - (@ac / "-.1") --> ('.$v.")
";
$v = (@ac / "-.2"); print "not " if $v ne q{-15}; print 'ok 4547 - (@ac / "-.2") --> ('.$v.")
";
$v = (@ac / "-.3"); print "not " if $v ne q{-10}; print 'ok 4548 - (@ac / "-.3") --> ('.$v.")
";
$v = (@ac / "0.1"); print "not " if $v ne q{30}; print 'ok 4549 - (@ac / "0.1") --> ('.$v.")
";
$v = (@ac / "0.2"); print "not " if $v ne q{15}; print 'ok 4550 - (@ac / "0.2") --> ('.$v.")
";
$v = (@ac / "0.3"); print "not " if $v ne q{10}; print 'ok 4551 - (@ac / "0.3") --> ('.$v.")
";
$v = (@ac / "-0.1"); print "not " if $v ne q{-30}; print 'ok 4552 - (@ac / "-0.1") --> ('.$v.")
";
$v = (@ac / "-0.2"); print "not " if $v ne q{-15}; print 'ok 4553 - (@ac / "-0.2") --> ('.$v.")
";
$v = (@ac / "-0.3"); print "not " if $v ne q{-10}; print 'ok 4554 - (@ac / "-0.3") --> ('.$v.")
";
$v = (@ac / "0.1e1"); print "not " if $v ne q{3}; print 'ok 4555 - (@ac / "0.1e1") --> ('.$v.")
";
$v = (@ac / "0.2e1"); print "not " if $v ne q{1.5}; print 'ok 4556 - (@ac / "0.2e1") --> ('.$v.")
";
$v = (@ac / "0.3e1"); print "not " if $v ne q{1}; print 'ok 4557 - (@ac / "0.3e1") --> ('.$v.")
";
$v = (@ac / "-0.1e1"); print "not " if $v ne q{-3}; print 'ok 4558 - (@ac / "-0.1e1") --> ('.$v.")
";
$v = (@ac / "-0.2e1"); print "not " if $v ne q{-1.5}; print 'ok 4559 - (@ac / "-0.2e1") --> ('.$v.")
";
$v = (@ac / "-0.3e1"); print "not " if $v ne q{-1}; print 'ok 4560 - (@ac / "-0.3e1") --> ('.$v.")
";
$v = (@ac / "10"); print "not " if $v ne q{0.3}; print 'ok 4561 - (@ac / "10") --> ('.$v.")
";
$v = (@ac / "20"); print "not " if $v ne q{0.15}; print 'ok 4562 - (@ac / "20") --> ('.$v.")
";
$v = (@ac / "30"); print "not " if $v ne q{0.1}; print 'ok 4563 - (@ac / "30") --> ('.$v.")
";
$v = (@ac / "-10"); print "not " if $v ne q{-0.3}; print 'ok 4564 - (@ac / "-10") --> ('.$v.")
";
$v = (@ac / "-20"); print "not " if $v ne q{-0.15}; print 'ok 4565 - (@ac / "-20") --> ('.$v.")
";
$v = (@ac / "-30"); print "not " if $v ne q{-0.1}; print 'ok 4566 - (@ac / "-30") --> ('.$v.")
";
$v = (@ac / .1); print "not " if $v ne q{30}; print 'ok 4567 - (@ac / .1) --> ('.$v.")
";
$v = (@ac / .2); print "not " if $v ne q{15}; print 'ok 4568 - (@ac / .2) --> ('.$v.")
";
$v = (@ac / .3); print "not " if $v ne q{10}; print 'ok 4569 - (@ac / .3) --> ('.$v.")
";
$v = (@ac / -.1); print "not " if $v ne q{-30}; print 'ok 4570 - (@ac / -.1) --> ('.$v.")
";
$v = (@ac / -.2); print "not " if $v ne q{-15}; print 'ok 4571 - (@ac / -.2) --> ('.$v.")
";
$v = (@ac / -.3); print "not " if $v ne q{-10}; print 'ok 4572 - (@ac / -.3) --> ('.$v.")
";
$v = (@ac / 0.1); print "not " if $v ne q{30}; print 'ok 4573 - (@ac / 0.1) --> ('.$v.")
";
$v = (@ac / 0.2); print "not " if $v ne q{15}; print 'ok 4574 - (@ac / 0.2) --> ('.$v.")
";
$v = (@ac / 0.3); print "not " if $v ne q{10}; print 'ok 4575 - (@ac / 0.3) --> ('.$v.")
";
$v = (@ac / -0.1); print "not " if $v ne q{-30}; print 'ok 4576 - (@ac / -0.1) --> ('.$v.")
";
$v = (@ac / -0.2); print "not " if $v ne q{-15}; print 'ok 4577 - (@ac / -0.2) --> ('.$v.")
";
$v = (@ac / -0.3); print "not " if $v ne q{-10}; print 'ok 4578 - (@ac / -0.3) --> ('.$v.")
";
$v = (@ac / 0.1e1); print "not " if $v ne q{3}; print 'ok 4579 - (@ac / 0.1e1) --> ('.$v.")
";
$v = (@ac / 0.2e1); print "not " if $v ne q{1.5}; print 'ok 4580 - (@ac / 0.2e1) --> ('.$v.")
";
$v = (@ac / 0.3e1); print "not " if $v ne q{1}; print 'ok 4581 - (@ac / 0.3e1) --> ('.$v.")
";
$v = (@ac / -0.1e1); print "not " if $v ne q{-3}; print 'ok 4582 - (@ac / -0.1e1) --> ('.$v.")
";
$v = (@ac / -0.2e1); print "not " if $v ne q{-1.5}; print 'ok 4583 - (@ac / -0.2e1) --> ('.$v.")
";
$v = (@ac / -0.3e1); print "not " if $v ne q{-1}; print 'ok 4584 - (@ac / -0.3e1) --> ('.$v.")
";
$v = (@ac / 10); print "not " if $v ne q{0.3}; print 'ok 4585 - (@ac / 10) --> ('.$v.")
";
$v = (@ac / 20); print "not " if $v ne q{0.15}; print 'ok 4586 - (@ac / 20) --> ('.$v.")
";
$v = (@ac / 30); print "not " if $v ne q{0.1}; print 'ok 4587 - (@ac / 30) --> ('.$v.")
";
$v = (@ac / -10); print "not " if $v ne q{-0.3}; print 'ok 4588 - (@ac / -10) --> ('.$v.")
";
$v = (@ac / -20); print "not " if $v ne q{-0.15}; print 'ok 4589 - (@ac / -20) --> ('.$v.")
";
$v = (@ac / -30); print "not " if $v ne q{-0.1}; print 'ok 4590 - (@ac / -30) --> ('.$v.")
";
$v = (@ac / @ab); print "not " if $v ne q{3}; print 'ok 4591 - (@ac / @ab) --> ('.$v.")
";
$v = (@ac / @ac); print "not " if $v ne q{1}; print 'ok 4592 - (@ac / @ac) --> ('.$v.")
";
$v = (" " + " "); print "not " if $v ne q{0}; print 'ok 4593 - (" " + " ") --> ('.$v.")
";
$v = (" " + ""); print "not " if $v ne q{0}; print 'ok 4594 - (" " + "") --> ('.$v.")
";
$v = (" " + "0"); print "not " if $v ne q{0}; print 'ok 4595 - (" " + "0") --> ('.$v.")
";
$v = (" " + "1"); print "not " if $v ne q{1}; print 'ok 4596 - (" " + "1") --> ('.$v.")
";
$v = (" " + "2"); print "not " if $v ne q{2}; print 'ok 4597 - (" " + "2") --> ('.$v.")
";
$v = (" " + "3"); print "not " if $v ne q{3}; print 'ok 4598 - (" " + "3") --> ('.$v.")
";
$v = (" " + "-0"); print "not " if $v ne q{0}; print 'ok 4599 - (" " + "-0") --> ('.$v.")
";
$v = (" " + "-1"); print "not " if $v ne q{-1}; print 'ok 4600 - (" " + "-1") --> ('.$v.")
";
$v = (" " + "-2"); print "not " if $v ne q{-2}; print 'ok 4601 - (" " + "-2") --> ('.$v.")
";
$v = (" " + "-3"); print "not " if $v ne q{-3}; print 'ok 4602 - (" " + "-3") --> ('.$v.")
";
$v = (" " + "."); print "not " if $v ne q{0}; print 'ok 4603 - (" " + ".") --> ('.$v.")
";
$v = (" " + ".0"); print "not " if $v ne q{0}; print 'ok 4604 - (" " + ".0") --> ('.$v.")
";
$v = (" " + ".1"); print "not " if $v ne q{0.1}; print 'ok 4605 - (" " + ".1") --> ('.$v.")
";
$v = (" " + ".2"); print "not " if $v ne q{0.2}; print 'ok 4606 - (" " + ".2") --> ('.$v.")
";
$v = (" " + ".3"); print "not " if $v ne q{0.3}; print 'ok 4607 - (" " + ".3") --> ('.$v.")
";
$v = (" " + "-.0"); print "not " if $v ne q{0}; print 'ok 4608 - (" " + "-.0") --> ('.$v.")
";
$v = (" " + "-.1"); print "not " if $v ne q{-0.1}; print 'ok 4609 - (" " + "-.1") --> ('.$v.")
";
$v = (" " + "-.2"); print "not " if $v ne q{-0.2}; print 'ok 4610 - (" " + "-.2") --> ('.$v.")
";
$v = (" " + "-.3"); print "not " if $v ne q{-0.3}; print 'ok 4611 - (" " + "-.3") --> ('.$v.")
";
$v = (" " + "0."); print "not " if $v ne q{0}; print 'ok 4612 - (" " + "0.") --> ('.$v.")
";
$v = (" " + "0.0"); print "not " if $v ne q{0}; print 'ok 4613 - (" " + "0.0") --> ('.$v.")
";
$v = (" " + "0.1"); print "not " if $v ne q{0.1}; print 'ok 4614 - (" " + "0.1") --> ('.$v.")
";
$v = (" " + "0.2"); print "not " if $v ne q{0.2}; print 'ok 4615 - (" " + "0.2") --> ('.$v.")
";
$v = (" " + "0.3"); print "not " if $v ne q{0.3}; print 'ok 4616 - (" " + "0.3") --> ('.$v.")
";
$v = (" " + "-0.0"); print "not " if $v ne q{0}; print 'ok 4617 - (" " + "-0.0") --> ('.$v.")
";
$v = (" " + "-0.1"); print "not " if $v ne q{-0.1}; print 'ok 4618 - (" " + "-0.1") --> ('.$v.")
";
$v = (" " + "-0.2"); print "not " if $v ne q{-0.2}; print 'ok 4619 - (" " + "-0.2") --> ('.$v.")
";
$v = (" " + "-0.3"); print "not " if $v ne q{-0.3}; print 'ok 4620 - (" " + "-0.3") --> ('.$v.")
";
$v = (" " + "0.e1"); print "not " if $v ne q{0}; print 'ok 4621 - (" " + "0.e1") --> ('.$v.")
";
$v = (" " + "0.0e1"); print "not " if $v ne q{0}; print 'ok 4622 - (" " + "0.0e1") --> ('.$v.")
";
$v = (" " + "0.1e1"); print "not " if $v ne q{1}; print 'ok 4623 - (" " + "0.1e1") --> ('.$v.")
";
$v = (" " + "0.2e1"); print "not " if $v ne q{2}; print 'ok 4624 - (" " + "0.2e1") --> ('.$v.")
";
$v = (" " + "0.3e1"); print "not " if $v ne q{3}; print 'ok 4625 - (" " + "0.3e1") --> ('.$v.")
";
$v = (" " + "-0.0e1"); print "not " if $v ne q{0}; print 'ok 4626 - (" " + "-0.0e1") --> ('.$v.")
";
$v = (" " + "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 4627 - (" " + "-0.1e1") --> ('.$v.")
";
$v = (" " + "-0.2e1"); print "not " if $v ne q{-2}; print 'ok 4628 - (" " + "-0.2e1") --> ('.$v.")
";
$v = (" " + "-0.3e1"); print "not " if $v ne q{-3}; print 'ok 4629 - (" " + "-0.3e1") --> ('.$v.")
";
$v = (" " + "00"); print "not " if $v ne q{0}; print 'ok 4630 - (" " + "00") --> ('.$v.")
";
$v = (" " + "10"); print "not " if $v ne q{10}; print 'ok 4631 - (" " + "10") --> ('.$v.")
";
$v = (" " + "20"); print "not " if $v ne q{20}; print 'ok 4632 - (" " + "20") --> ('.$v.")
";
$v = (" " + "30"); print "not " if $v ne q{30}; print 'ok 4633 - (" " + "30") --> ('.$v.")
";
$v = (" " + "-00"); print "not " if $v ne q{0}; print 'ok 4634 - (" " + "-00") --> ('.$v.")
";
$v = (" " + "-10"); print "not " if $v ne q{-10}; print 'ok 4635 - (" " + "-10") --> ('.$v.")
";
$v = (" " + "-20"); print "not " if $v ne q{-20}; print 'ok 4636 - (" " + "-20") --> ('.$v.")
";
$v = (" " + "-30"); print "not " if $v ne q{-30}; print 'ok 4637 - (" " + "-30") --> ('.$v.")
";
$v = (" " + .0); print "not " if $v ne q{0}; print 'ok 4638 - (" " + .0) --> ('.$v.")
";
$v = (" " + .1); print "not " if $v ne q{0.1}; print 'ok 4639 - (" " + .1) --> ('.$v.")
";
$v = (" " + .2); print "not " if $v ne q{0.2}; print 'ok 4640 - (" " + .2) --> ('.$v.")
";
$v = (" " + .3); print "not " if $v ne q{0.3}; print 'ok 4641 - (" " + .3) --> ('.$v.")
";
$v = (" " + -.0); print "not " if $v ne q{0}; print 'ok 4642 - (" " + -.0) --> ('.$v.")
";
$v = (" " + -.1); print "not " if $v ne q{-0.1}; print 'ok 4643 - (" " + -.1) --> ('.$v.")
";
$v = (" " + -.2); print "not " if $v ne q{-0.2}; print 'ok 4644 - (" " + -.2) --> ('.$v.")
";
$v = (" " + -.3); print "not " if $v ne q{-0.3}; print 'ok 4645 - (" " + -.3) --> ('.$v.")
";
$v = (" " + 0.); print "not " if $v ne q{0}; print 'ok 4646 - (" " + 0.) --> ('.$v.")
";
$v = (" " + 0.0); print "not " if $v ne q{0}; print 'ok 4647 - (" " + 0.0) --> ('.$v.")
";
$v = (" " + 0.1); print "not " if $v ne q{0.1}; print 'ok 4648 - (" " + 0.1) --> ('.$v.")
";
$v = (" " + 0.2); print "not " if $v ne q{0.2}; print 'ok 4649 - (" " + 0.2) --> ('.$v.")
";
$v = (" " + 0.3); print "not " if $v ne q{0.3}; print 'ok 4650 - (" " + 0.3) --> ('.$v.")
";
$v = (" " + -0.0); print "not " if $v ne q{0}; print 'ok 4651 - (" " + -0.0) --> ('.$v.")
";
$v = (" " + -0.1); print "not " if $v ne q{-0.1}; print 'ok 4652 - (" " + -0.1) --> ('.$v.")
";
$v = (" " + -0.2); print "not " if $v ne q{-0.2}; print 'ok 4653 - (" " + -0.2) --> ('.$v.")
";
$v = (" " + -0.3); print "not " if $v ne q{-0.3}; print 'ok 4654 - (" " + -0.3) --> ('.$v.")
";
$v = (" " + 0.e1); print "not " if $v ne q{0}; print 'ok 4655 - (" " + 0.e1) --> ('.$v.")
";
$v = (" " + 0.0e1); print "not " if $v ne q{0}; print 'ok 4656 - (" " + 0.0e1) --> ('.$v.")
";
$v = (" " + 0.1e1); print "not " if $v ne q{1}; print 'ok 4657 - (" " + 0.1e1) --> ('.$v.")
";
$v = (" " + 0.2e1); print "not " if $v ne q{2}; print 'ok 4658 - (" " + 0.2e1) --> ('.$v.")
";
$v = (" " + 0.3e1); print "not " if $v ne q{3}; print 'ok 4659 - (" " + 0.3e1) --> ('.$v.")
";
$v = (" " + -0.0e1); print "not " if $v ne q{0}; print 'ok 4660 - (" " + -0.0e1) --> ('.$v.")
";
$v = (" " + -0.1e1); print "not " if $v ne q{-1}; print 'ok 4661 - (" " + -0.1e1) --> ('.$v.")
";
$v = (" " + -0.2e1); print "not " if $v ne q{-2}; print 'ok 4662 - (" " + -0.2e1) --> ('.$v.")
";
$v = (" " + -0.3e1); print "not " if $v ne q{-3}; print 'ok 4663 - (" " + -0.3e1) --> ('.$v.")
";
$v = (" " + 00); print "not " if $v ne q{0}; print 'ok 4664 - (" " + 00) --> ('.$v.")
";
$v = (" " + 10); print "not " if $v ne q{10}; print 'ok 4665 - (" " + 10) --> ('.$v.")
";
$v = (" " + 20); print "not " if $v ne q{20}; print 'ok 4666 - (" " + 20) --> ('.$v.")
";
$v = (" " + 30); print "not " if $v ne q{30}; print 'ok 4667 - (" " + 30) --> ('.$v.")
";
$v = (" " + -00); print "not " if $v ne q{0}; print 'ok 4668 - (" " + -00) --> ('.$v.")
";
$v = (" " + -10); print "not " if $v ne q{-10}; print 'ok 4669 - (" " + -10) --> ('.$v.")
";
$v = (" " + -20); print "not " if $v ne q{-20}; print 'ok 4670 - (" " + -20) --> ('.$v.")
";
$v = (" " + -30); print "not " if $v ne q{-30}; print 'ok 4671 - (" " + -30) --> ('.$v.")
";
$v = (" " + @aa); print "not " if $v ne q{0}; print 'ok 4672 - (" " + @aa) --> ('.$v.")
";
$v = (" " + @ab); print "not " if $v ne q{1}; print 'ok 4673 - (" " + @ab) --> ('.$v.")
";
$v = (" " + @ac); print "not " if $v ne q{3}; print 'ok 4674 - (" " + @ac) --> ('.$v.")
";
$v = ("" + " "); print "not " if $v ne q{0}; print 'ok 4675 - ("" + " ") --> ('.$v.")
";
$v = ("" + ""); print "not " if $v ne q{0}; print 'ok 4676 - ("" + "") --> ('.$v.")
";
$v = ("" + "0"); print "not " if $v ne q{0}; print 'ok 4677 - ("" + "0") --> ('.$v.")
";
$v = ("" + "1"); print "not " if $v ne q{1}; print 'ok 4678 - ("" + "1") --> ('.$v.")
";
$v = ("" + "2"); print "not " if $v ne q{2}; print 'ok 4679 - ("" + "2") --> ('.$v.")
";
$v = ("" + "3"); print "not " if $v ne q{3}; print 'ok 4680 - ("" + "3") --> ('.$v.")
";
$v = ("" + "-0"); print "not " if $v ne q{0}; print 'ok 4681 - ("" + "-0") --> ('.$v.")
";
$v = ("" + "-1"); print "not " if $v ne q{-1}; print 'ok 4682 - ("" + "-1") --> ('.$v.")
";
$v = ("" + "-2"); print "not " if $v ne q{-2}; print 'ok 4683 - ("" + "-2") --> ('.$v.")
";
$v = ("" + "-3"); print "not " if $v ne q{-3}; print 'ok 4684 - ("" + "-3") --> ('.$v.")
";
$v = ("" + "."); print "not " if $v ne q{0}; print 'ok 4685 - ("" + ".") --> ('.$v.")
";
$v = ("" + ".0"); print "not " if $v ne q{0}; print 'ok 4686 - ("" + ".0") --> ('.$v.")
";
$v = ("" + ".1"); print "not " if $v ne q{0.1}; print 'ok 4687 - ("" + ".1") --> ('.$v.")
";
$v = ("" + ".2"); print "not " if $v ne q{0.2}; print 'ok 4688 - ("" + ".2") --> ('.$v.")
";
$v = ("" + ".3"); print "not " if $v ne q{0.3}; print 'ok 4689 - ("" + ".3") --> ('.$v.")
";
$v = ("" + "-.0"); print "not " if $v ne q{0}; print 'ok 4690 - ("" + "-.0") --> ('.$v.")
";
$v = ("" + "-.1"); print "not " if $v ne q{-0.1}; print 'ok 4691 - ("" + "-.1") --> ('.$v.")
";
$v = ("" + "-.2"); print "not " if $v ne q{-0.2}; print 'ok 4692 - ("" + "-.2") --> ('.$v.")
";
$v = ("" + "-.3"); print "not " if $v ne q{-0.3}; print 'ok 4693 - ("" + "-.3") --> ('.$v.")
";
$v = ("" + "0."); print "not " if $v ne q{0}; print 'ok 4694 - ("" + "0.") --> ('.$v.")
";
$v = ("" + "0.0"); print "not " if $v ne q{0}; print 'ok 4695 - ("" + "0.0") --> ('.$v.")
";
$v = ("" + "0.1"); print "not " if $v ne q{0.1}; print 'ok 4696 - ("" + "0.1") --> ('.$v.")
";
$v = ("" + "0.2"); print "not " if $v ne q{0.2}; print 'ok 4697 - ("" + "0.2") --> ('.$v.")
";
$v = ("" + "0.3"); print "not " if $v ne q{0.3}; print 'ok 4698 - ("" + "0.3") --> ('.$v.")
";
$v = ("" + "-0.0"); print "not " if $v ne q{0}; print 'ok 4699 - ("" + "-0.0") --> ('.$v.")
";
$v = ("" + "-0.1"); print "not " if $v ne q{-0.1}; print 'ok 4700 - ("" + "-0.1") --> ('.$v.")
";
$v = ("" + "-0.2"); print "not " if $v ne q{-0.2}; print 'ok 4701 - ("" + "-0.2") --> ('.$v.")
";
$v = ("" + "-0.3"); print "not " if $v ne q{-0.3}; print 'ok 4702 - ("" + "-0.3") --> ('.$v.")
";
$v = ("" + "0.e1"); print "not " if $v ne q{0}; print 'ok 4703 - ("" + "0.e1") --> ('.$v.")
";
$v = ("" + "0.0e1"); print "not " if $v ne q{0}; print 'ok 4704 - ("" + "0.0e1") --> ('.$v.")
";
$v = ("" + "0.1e1"); print "not " if $v ne q{1}; print 'ok 4705 - ("" + "0.1e1") --> ('.$v.")
";
$v = ("" + "0.2e1"); print "not " if $v ne q{2}; print 'ok 4706 - ("" + "0.2e1") --> ('.$v.")
";
$v = ("" + "0.3e1"); print "not " if $v ne q{3}; print 'ok 4707 - ("" + "0.3e1") --> ('.$v.")
";
$v = ("" + "-0.0e1"); print "not " if $v ne q{0}; print 'ok 4708 - ("" + "-0.0e1") --> ('.$v.")
";
$v = ("" + "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 4709 - ("" + "-0.1e1") --> ('.$v.")
";
$v = ("" + "-0.2e1"); print "not " if $v ne q{-2}; print 'ok 4710 - ("" + "-0.2e1") --> ('.$v.")
";
$v = ("" + "-0.3e1"); print "not " if $v ne q{-3}; print 'ok 4711 - ("" + "-0.3e1") --> ('.$v.")
";
$v = ("" + "00"); print "not " if $v ne q{0}; print 'ok 4712 - ("" + "00") --> ('.$v.")
";
$v = ("" + "10"); print "not " if $v ne q{10}; print 'ok 4713 - ("" + "10") --> ('.$v.")
";
$v = ("" + "20"); print "not " if $v ne q{20}; print 'ok 4714 - ("" + "20") --> ('.$v.")
";
$v = ("" + "30"); print "not " if $v ne q{30}; print 'ok 4715 - ("" + "30") --> ('.$v.")
";
$v = ("" + "-00"); print "not " if $v ne q{0}; print 'ok 4716 - ("" + "-00") --> ('.$v.")
";
$v = ("" + "-10"); print "not " if $v ne q{-10}; print 'ok 4717 - ("" + "-10") --> ('.$v.")
";
$v = ("" + "-20"); print "not " if $v ne q{-20}; print 'ok 4718 - ("" + "-20") --> ('.$v.")
";
$v = ("" + "-30"); print "not " if $v ne q{-30}; print 'ok 4719 - ("" + "-30") --> ('.$v.")
";
$v = ("" + .0); print "not " if $v ne q{0}; print 'ok 4720 - ("" + .0) --> ('.$v.")
";
$v = ("" + .1); print "not " if $v ne q{0.1}; print 'ok 4721 - ("" + .1) --> ('.$v.")
";
$v = ("" + .2); print "not " if $v ne q{0.2}; print 'ok 4722 - ("" + .2) --> ('.$v.")
";
$v = ("" + .3); print "not " if $v ne q{0.3}; print 'ok 4723 - ("" + .3) --> ('.$v.")
";
$v = ("" + -.0); print "not " if $v ne q{0}; print 'ok 4724 - ("" + -.0) --> ('.$v.")
";
$v = ("" + -.1); print "not " if $v ne q{-0.1}; print 'ok 4725 - ("" + -.1) --> ('.$v.")
";
$v = ("" + -.2); print "not " if $v ne q{-0.2}; print 'ok 4726 - ("" + -.2) --> ('.$v.")
";
$v = ("" + -.3); print "not " if $v ne q{-0.3}; print 'ok 4727 - ("" + -.3) --> ('.$v.")
";
$v = ("" + 0.); print "not " if $v ne q{0}; print 'ok 4728 - ("" + 0.) --> ('.$v.")
";
$v = ("" + 0.0); print "not " if $v ne q{0}; print 'ok 4729 - ("" + 0.0) --> ('.$v.")
";
$v = ("" + 0.1); print "not " if $v ne q{0.1}; print 'ok 4730 - ("" + 0.1) --> ('.$v.")
";
$v = ("" + 0.2); print "not " if $v ne q{0.2}; print 'ok 4731 - ("" + 0.2) --> ('.$v.")
";
$v = ("" + 0.3); print "not " if $v ne q{0.3}; print 'ok 4732 - ("" + 0.3) --> ('.$v.")
";
$v = ("" + -0.0); print "not " if $v ne q{0}; print 'ok 4733 - ("" + -0.0) --> ('.$v.")
";
$v = ("" + -0.1); print "not " if $v ne q{-0.1}; print 'ok 4734 - ("" + -0.1) --> ('.$v.")
";
$v = ("" + -0.2); print "not " if $v ne q{-0.2}; print 'ok 4735 - ("" + -0.2) --> ('.$v.")
";
$v = ("" + -0.3); print "not " if $v ne q{-0.3}; print 'ok 4736 - ("" + -0.3) --> ('.$v.")
";
$v = ("" + 0.e1); print "not " if $v ne q{0}; print 'ok 4737 - ("" + 0.e1) --> ('.$v.")
";
$v = ("" + 0.0e1); print "not " if $v ne q{0}; print 'ok 4738 - ("" + 0.0e1) --> ('.$v.")
";
$v = ("" + 0.1e1); print "not " if $v ne q{1}; print 'ok 4739 - ("" + 0.1e1) --> ('.$v.")
";
$v = ("" + 0.2e1); print "not " if $v ne q{2}; print 'ok 4740 - ("" + 0.2e1) --> ('.$v.")
";
$v = ("" + 0.3e1); print "not " if $v ne q{3}; print 'ok 4741 - ("" + 0.3e1) --> ('.$v.")
";
$v = ("" + -0.0e1); print "not " if $v ne q{0}; print 'ok 4742 - ("" + -0.0e1) --> ('.$v.")
";
$v = ("" + -0.1e1); print "not " if $v ne q{-1}; print 'ok 4743 - ("" + -0.1e1) --> ('.$v.")
";
$v = ("" + -0.2e1); print "not " if $v ne q{-2}; print 'ok 4744 - ("" + -0.2e1) --> ('.$v.")
";
$v = ("" + -0.3e1); print "not " if $v ne q{-3}; print 'ok 4745 - ("" + -0.3e1) --> ('.$v.")
";
$v = ("" + 00); print "not " if $v ne q{0}; print 'ok 4746 - ("" + 00) --> ('.$v.")
";
$v = ("" + 10); print "not " if $v ne q{10}; print 'ok 4747 - ("" + 10) --> ('.$v.")
";
$v = ("" + 20); print "not " if $v ne q{20}; print 'ok 4748 - ("" + 20) --> ('.$v.")
";
$v = ("" + 30); print "not " if $v ne q{30}; print 'ok 4749 - ("" + 30) --> ('.$v.")
";
$v = ("" + -00); print "not " if $v ne q{0}; print 'ok 4750 - ("" + -00) --> ('.$v.")
";
$v = ("" + -10); print "not " if $v ne q{-10}; print 'ok 4751 - ("" + -10) --> ('.$v.")
";
$v = ("" + -20); print "not " if $v ne q{-20}; print 'ok 4752 - ("" + -20) --> ('.$v.")
";
$v = ("" + -30); print "not " if $v ne q{-30}; print 'ok 4753 - ("" + -30) --> ('.$v.")
";
$v = ("" + @aa); print "not " if $v ne q{0}; print 'ok 4754 - ("" + @aa) --> ('.$v.")
";
$v = ("" + @ab); print "not " if $v ne q{1}; print 'ok 4755 - ("" + @ab) --> ('.$v.")
";
$v = ("" + @ac); print "not " if $v ne q{3}; print 'ok 4756 - ("" + @ac) --> ('.$v.")
";
$v = ("0" + " "); print "not " if $v ne q{0}; print 'ok 4757 - ("0" + " ") --> ('.$v.")
";
$v = ("0" + ""); print "not " if $v ne q{0}; print 'ok 4758 - ("0" + "") --> ('.$v.")
";
$v = ("0" + "0"); print "not " if $v ne q{0}; print 'ok 4759 - ("0" + "0") --> ('.$v.")
";
$v = ("0" + "1"); print "not " if $v ne q{1}; print 'ok 4760 - ("0" + "1") --> ('.$v.")
";
$v = ("0" + "2"); print "not " if $v ne q{2}; print 'ok 4761 - ("0" + "2") --> ('.$v.")
";
$v = ("0" + "3"); print "not " if $v ne q{3}; print 'ok 4762 - ("0" + "3") --> ('.$v.")
";
$v = ("0" + "-0"); print "not " if $v ne q{0}; print 'ok 4763 - ("0" + "-0") --> ('.$v.")
";
$v = ("0" + "-1"); print "not " if $v ne q{-1}; print 'ok 4764 - ("0" + "-1") --> ('.$v.")
";
$v = ("0" + "-2"); print "not " if $v ne q{-2}; print 'ok 4765 - ("0" + "-2") --> ('.$v.")
";
$v = ("0" + "-3"); print "not " if $v ne q{-3}; print 'ok 4766 - ("0" + "-3") --> ('.$v.")
";
$v = ("0" + "."); print "not " if $v ne q{0}; print 'ok 4767 - ("0" + ".") --> ('.$v.")
";
$v = ("0" + ".0"); print "not " if $v ne q{0}; print 'ok 4768 - ("0" + ".0") --> ('.$v.")
";
$v = ("0" + ".1"); print "not " if $v ne q{0.1}; print 'ok 4769 - ("0" + ".1") --> ('.$v.")
";
$v = ("0" + ".2"); print "not " if $v ne q{0.2}; print 'ok 4770 - ("0" + ".2") --> ('.$v.")
";
$v = ("0" + ".3"); print "not " if $v ne q{0.3}; print 'ok 4771 - ("0" + ".3") --> ('.$v.")
";
$v = ("0" + "-.0"); print "not " if $v ne q{0}; print 'ok 4772 - ("0" + "-.0") --> ('.$v.")
";
$v = ("0" + "-.1"); print "not " if $v ne q{-0.1}; print 'ok 4773 - ("0" + "-.1") --> ('.$v.")
";
$v = ("0" + "-.2"); print "not " if $v ne q{-0.2}; print 'ok 4774 - ("0" + "-.2") --> ('.$v.")
";
$v = ("0" + "-.3"); print "not " if $v ne q{-0.3}; print 'ok 4775 - ("0" + "-.3") --> ('.$v.")
";
$v = ("0" + "0."); print "not " if $v ne q{0}; print 'ok 4776 - ("0" + "0.") --> ('.$v.")
";
$v = ("0" + "0.0"); print "not " if $v ne q{0}; print 'ok 4777 - ("0" + "0.0") --> ('.$v.")
";
$v = ("0" + "0.1"); print "not " if $v ne q{0.1}; print 'ok 4778 - ("0" + "0.1") --> ('.$v.")
";
$v = ("0" + "0.2"); print "not " if $v ne q{0.2}; print 'ok 4779 - ("0" + "0.2") --> ('.$v.")
";
$v = ("0" + "0.3"); print "not " if $v ne q{0.3}; print 'ok 4780 - ("0" + "0.3") --> ('.$v.")
";
$v = ("0" + "-0.0"); print "not " if $v ne q{0}; print 'ok 4781 - ("0" + "-0.0") --> ('.$v.")
";
$v = ("0" + "-0.1"); print "not " if $v ne q{-0.1}; print 'ok 4782 - ("0" + "-0.1") --> ('.$v.")
";
$v = ("0" + "-0.2"); print "not " if $v ne q{-0.2}; print 'ok 4783 - ("0" + "-0.2") --> ('.$v.")
";
$v = ("0" + "-0.3"); print "not " if $v ne q{-0.3}; print 'ok 4784 - ("0" + "-0.3") --> ('.$v.")
";
$v = ("0" + "0.e1"); print "not " if $v ne q{0}; print 'ok 4785 - ("0" + "0.e1") --> ('.$v.")
";
$v = ("0" + "0.0e1"); print "not " if $v ne q{0}; print 'ok 4786 - ("0" + "0.0e1") --> ('.$v.")
";
$v = ("0" + "0.1e1"); print "not " if $v ne q{1}; print 'ok 4787 - ("0" + "0.1e1") --> ('.$v.")
";
$v = ("0" + "0.2e1"); print "not " if $v ne q{2}; print 'ok 4788 - ("0" + "0.2e1") --> ('.$v.")
";
$v = ("0" + "0.3e1"); print "not " if $v ne q{3}; print 'ok 4789 - ("0" + "0.3e1") --> ('.$v.")
";
$v = ("0" + "-0.0e1"); print "not " if $v ne q{0}; print 'ok 4790 - ("0" + "-0.0e1") --> ('.$v.")
";
$v = ("0" + "-0.1e1"); print "not " if $v ne q{-1}; print 'ok 4791 - ("0" + "-0.1e1") --> ('.$v.")
";
$v = ("0" + "-0.2e1"); print "not " if $v ne q{-2}; print 'ok 4792 - ("0" + "-0.2e1") --> ('.$v.")
";
$v = ("0" + "-0.3e1"); print "not " if $v ne q{-3}; print 'ok 4793 - ("0" + "-0.3e1") --> ('.$v.")
";
$v = ("0" + "00"); print "not " if $v ne q{0}; print 'ok 4794 - ("0" + "00") --> ('.$v.")
";
$v = ("0" + "10"); print "not " if $v ne q{10}; print 'ok 4795 - ("0" + "10") --> ('.$v.")
";
$v = ("0" + "20"); print "not " if $v ne q{20}; print 'ok 4796 - ("0" + "20") --> ('.$v.")
";
$v = ("0" + "30"); print "not " if $v ne q{30}; print 'ok 4797 - ("0" + "30") --> ('.$v.")
";
$v = ("0" + "-00"); print "not " if $v ne q{0}; print 'ok 4798 - ("0" + "-00") --> ('.$v.")
";
$v = ("0" + "-10"); print "not " if $v ne q{-10}; print 'ok 4799 - ("0" + "-10") --> ('.$v.")
";
$v = ("0" + "-20"); print "not " if $v ne q{-20}; print 'ok 4800 - ("0" + "-20") --> ('.$v.")
";
$v = ("0" + "-30"); print "not " if $v ne q{-30}; print 'ok 4801 - ("0" + "-30") --> ('.$v.")
";
$v = ("0" + .0); print "not " if $v ne q{0}; print 'ok 4802 - ("0" + .0) --> ('.$v.")
";
$v = ("0" + .1); print "not " if $v ne q{0.1}; print 'ok 4803 - ("0" + .1) --> ('.$v.")
";
$v = ("0" + .2); print "not " if $v ne q{0.2}; print 'ok 4804 - ("0" + .2) --> ('.$v.")
";
$v = ("0" + .3); print "not " if $v ne q{0.3}; print 'ok 4805 - ("0" + .3) --> ('.$v.")
";
$v = ("0" + -.0); print "not " if $v ne q{0}; print 'ok 4806 - ("0" + -.0) --> ('.$v.")
";
$v = ("0" + -.1); print "not " if $v ne q{-0.1}; print 'ok 4807 - ("0" + -.1) --> ('.$v.")
";
$v = ("0" + -.2); print "not " if $v ne q{-0.2}; print 'ok 4808 - ("0" + -.2) --> ('.$v.")
";
$v = ("0" + -.3); print "not " if $v ne q{-0.3}; print 'ok 4809 - ("0" + -.3) --> ('.$v.")
";
$v = ("0" + 0.); print "not " if $v ne q{0}; print 'ok 4810 - ("0" + 0.) --> ('.$v.")
";
$v = ("0" + 0.0); print "not " if $v ne q{0}; print 'ok 4811 - ("0" + 0.0) --> ('.$v.")
";
$v = ("0" + 0.1); print "not " if $v ne q{0.1}; print 'ok 4812 - ("0" + 0.1) --> ('.$v.")
";
$v = ("0" + 0.2); print "not " if $v ne q{0.2}; print 'ok 4813 - ("0" + 0.2) --> ('.$v.")
";
$v = ("0" + 0.3); print "not " if $v ne q{0.3}; print 'ok 4814 - ("0" + 0.3) --> ('.$v.")
";
$v = ("0" + -0.0); print "not " if $v ne q{0}; print 'ok 4815 - ("0" + -0.0) --> ('.$v.")
";
$v = ("0" + -0.1); print "not " if $v ne q{-0.1}; print 'ok 4816 - ("0" + -0.1) --> ('.$v.")
";
$v = ("0" + -0.2); print "not " if $v ne q{-0.2}; print 'ok 4817 - ("0" + -0.2) --> ('.$v.")
";
$v = ("0" + -0.3); print "not " if $v ne q{-0.3}; print 'ok 4818 - ("0" + -0.3) --> ('.$v.")
";
$v = ("0" + 0.e1); print "not " if $v ne q{0}; print 'ok 4819 - ("0" + 0.e1) --> ('.$v.")
";
$v = ("0" + 0.0e1); print "not " if $v ne q{0}; print 'ok 4820 - ("0" + 0.0e1) --> ('.$v.")
";
$v = ("0" + 0.1e1); print "not " if $v ne q{1}; print 'ok 4821 - ("0" + 0.1e1) --> ('.$v.")
";
$v = ("0" + 0.2e1); print "not " if $v ne q{2}; print 'ok 4822 - ("0" + 0.2e1) --> ('.$v.")
";
$v = ("0" + 0.3e1); print "not " if $v ne q{3}; print 'ok 4823 - ("0" + 0.3e1) --> ('.$v.")
";
$v = ("0" + -0.0e1); print "not " if $v ne q{0}; print 'ok 4824 - ("0" + -0.0e1) --> ('.$v.")
";
$v = ("0" + -0.1e1); print "not " if $v ne q{-1}; print 'ok 4825 - ("0" + -0.1e1) --> ('.$v.")
";
$v = ("0" + -0.2e1); print "not " if $v ne q{-2}; print 'ok 4826 - ("0" + -0.2e1) --> ('.$v.")
";
$v = ("0" + -0.3e1); print "not " if $v ne q{-3}; print 'ok 4827 - ("0" + -0.3e1) --> ('.$v.")
";
$v = ("0" + 00); print "not " if $v ne q{0}; print 'ok 4828 - ("0" + 00) --> ('.$v.")
";
$v = ("0" + 10); print "not " if $v ne q{10}; print 'ok 4829 - ("0" + 10) --> ('.$v.")
";
$v = ("0" + 20); print "not " if $v ne q{20}; print 'ok 4830 - ("0" + 20) --> ('.$v.")
";
$v = ("0" + 30); print "not " if $v ne q{30}; print 'ok 4831 - ("0" + 30) --> ('.$v.")
";
$v = ("0" + -00); print "not " if $v ne q{0}; print 'ok 4832 - ("0" + -00) --> ('.$v.")
";
$v = ("0" + -10); print "not " if $v ne q{-10}; print 'ok 4833 - ("0" + -10) --> ('.$v.")
";
$v = ("0" + -20); print "not " if $v ne q{-20}; print 'ok 4834 - ("0" + -20) --> ('.$v.")
";
$v = ("0" + -30); print "not " if $v ne q{-30}; print 'ok 4835 - ("0" + -30) --> ('.$v.")
";
$v = ("0" + @aa); print "not " if $v ne q{0}; print 'ok 4836 - ("0" + @aa) --> ('.$v.")
";
$v = ("0" + @ab); print "not " if $v ne q{1}; print 'ok 4837 - ("0" + @ab) --> ('.$v.")
";
$v = ("0" + @ac); print "not " if $v ne q{3}; print 'ok 4838 - ("0" + @ac) --> ('.$v.")
";
$v = ("1" + " "); print "not " if $v ne q{1}; print 'ok 4839 - ("1" + " ") --> ('.$v.")
";
$v = ("1" + ""); print "not " if $v ne q{1}; print 'ok 4840 - ("1" + "") --> ('.$v.")
";
$v = ("1" + "0"); print "not " if $v ne q{1}; print 'ok 4841 - ("1" + "0") --> ('.$v.")
";
$v = ("1" + "1"); print "not " if $v ne q{2}; print 'ok 4842 - ("1" + "1") --> ('.$v.")
";
$v = ("1" + "2"); print "not " if $v ne q{3}; print 'ok 4843 - ("1" + "2") --> ('.$v.")
";
$v = ("1" + "3"); print "not " if $v ne q{4}; print 'ok 4844 - ("1" + "3") --> ('.$v.")
";
$v = ("1" + "-0"); print "not " if $v ne q{1}; print 'ok 4845 - ("1" + "-0") --> ('.$v.")
";
$v = ("1" + "-1"); print "not " if $v ne q{0}; print 'ok 4846 - ("1" + "-1") --> ('.$v.")
";
$v = ("1" + "-2"); print "not " if $v ne q{-1}; print 'ok 4847 - ("1" + "-2") --> ('.$v.")
";
$v = ("1" + "-3"); print "not " if $v ne q{-2}; print 'ok 4848 - ("1" + "-3") --> ('.$v.")
";
$v = ("1" + "."); print "not " if $v ne q{1}; print 'ok 4849 - ("1" + ".") --> ('.$v.")
";
$v = ("1" + ".0"); print "not " if $v ne q{1}; print 'ok 4850 - ("1" + ".0") --> ('.$v.")
";
$v = ("1" + ".1"); print "not " if $v ne q{1.1}; print 'ok 4851 - ("1" + ".1") --> ('.$v.")
";
$v = ("1" + ".2"); print "not " if $v ne q{1.2}; print 'ok 4852 - ("1" + ".2") --> ('.$v.")
";
$v = ("1" + ".3"); print "not " if $v ne q{1.3}; print 'ok 4853 - ("1" + ".3") --> ('.$v.")
";
$v = ("1" + "-.0"); print "not " if $v ne q{1}; print 'ok 4854 - ("1" + "-.0") --> ('.$v.")
";
$v = ("1" + "-.1"); print "not " if $v ne q{0.9}; print 'ok 4855 - ("1" + "-.1") --> ('.$v.")
";
$v = ("1" + "-.2"); print "not " if $v ne q{0.8}; print 'ok 4856 - ("1" + "-.2") --> ('.$v.")
";
$v = ("1" + "-.3"); print "not " if $v ne q{0.7}; print 'ok 4857 - ("1" + "-.3") --> ('.$v.")
";
$v = ("1" + "0."); print "not " if $v ne q{1}; print 'ok 4858 - ("1" + "0.") --> ('.$v.")
";
$v = ("1" + "0.0"); print "not " if $v ne q{1}; print 'ok 4859 - ("1" + "0.0") --> ('.$v.")
";
$v = ("1" + "0.1"); print "not " if $v ne q{1.1}; print 'ok 4860 - ("1" + "0.1") --> ('.$v.")
";
$v = ("1" + "0.2"); print "not " if $v ne q{1.2}; print 'ok 4861 - ("1" + "0.2") --> ('.$v.")
";
$v = ("1" + "0.3"); print "not " if $v ne q{1.3}; print 'ok 4862 - ("1" + "0.3") --> ('.$v.")
";
$v = ("1" + "-0.0"); print "not " if $v ne q{1}; print 'ok 4863 - ("1" + "-0.0") --> ('.$v.")
";
$v = ("1" + "-0.1"); print "not " if $v ne q{0.9}; print 'ok 4864 - ("1" + "-0.1") --> ('.$v.")
";
$v = ("1" + "-0.2"); print "not " if $v ne q{0.8}; print 'ok 4865 - ("1" + "-0.2") --> ('.$v.")
";
$v = ("1" + "-0.3"); print "not " if $v ne q{0.7}; print 'ok 4866 - ("1" + "-0.3") --> ('.$v.")
";
$v = ("1" + "0.e1"); print "not " if $v ne q{1}; print 'ok 4867 - ("1" + "0.e1") --> ('.$v.")
";
$v = ("1" + "0.0e1"); print "not " if $v ne q{1}; print 'ok 4868 - ("1" + "0.0e1") --> ('.$v.")
";
$v = ("1" + "0.1e1"); print "not " if $v ne q{2}; print 'ok 4869 - ("1" + "0.1e1") --> ('.$v.")
";
$v = ("1" + "0.2e1"); print "not " if $v ne q{3}; print 'ok 4870 - ("1" + "0.2e1") --> ('.$v.")
";
$v = ("1" + "0.3e1"); print "not " if $v ne q{4}; print 'ok 4871 - ("1" + "0.3e1") --> ('.$v.")
";
$v = ("1" + "-0.0e1"); print "not " if $v ne q{1}; print 'ok 4872 - ("1" + "-0.0e1") --> ('.$v.")
";
$v = ("1" + "-0.1e1"); print "not " if $v ne q{0}; print 'ok 4873 - ("1" + "-0.1e1") --> ('.$v.")
";
$v = ("1" + "-0.2e1"); print "not " if $v ne q{-1}; print 'ok 4874 - ("1" + "-0.2e1") --> ('.$v.")
";
$v = ("1" + "-0.3e1"); print "not " if $v ne q{-2}; print 'ok 4875 - ("1" + "-0.3e1") --> ('.$v.")
";
$v = ("1" + "00"); print "not " if $v ne q{1}; print 'ok 4876 - ("1" + "00") --> ('.$v.")
";
$v = ("1" + "10"); print "not " if $v ne q{11}; print 'ok 4877 - ("1" + "10") --> ('.$v.")
";
$v = ("1" + "20"); print "not " if $v ne q{21}; print 'ok 4878 - ("1" + "20") --> ('.$v.")
";
$v = ("1" + "30"); print "not " if $v ne q{31}; print 'ok 4879 - ("1" + "30") --> ('.$v.")
";
$v = ("1" + "-00"); print "not " if $v ne q{1}; print 'ok 4880 - ("1" + "-00") --> ('.$v.")
";
$v = ("1" + "-10"); print "not " if $v ne q{-9}; print 'ok 4881 - ("1" + "-10") --> ('.$v.")
";
$v = ("1" + "-20"); print "not " if $v ne q{-19}; print 'ok 4882 - ("1" + "-20") --> ('.$v.")
";
$v = ("1" + "-30"); print "not " if $v ne q{-29}; print 'ok 4883 - ("1" + "-30") --> ('.$v.")
";
$v = ("1" + .0); print "not " if $v ne q{1}; print 'ok 4884 - ("1" + .0) --> ('.$v.")
";
$v = ("1" + .1); print "not " if $v ne q{1.1}; print 'ok 4885 - ("1" + .1) --> ('.$v.")
";
$v = ("1" + .2); print "not " if $v ne q{1.2}; print 'ok 4886 - ("1" + .2) --> ('.$v.")
";
$v = ("1" + .3); print "not " if $v ne q{1.3}; print 'ok 4887 - ("1" + .3) --> ('.$v.")
";
$v = ("1" + -.0); print "not " if $v ne q{1}; print 'ok 4888 - ("1" + -.0) --> ('.$v.")
";
$v = ("1" + -.1); print "not " if $v ne q{0.9}; print 'ok 4889 - ("1" + -.1) --> ('.$v.")
";
$v = ("1" + -.2); print "not " if $v ne q{0.8}; print 'ok 4890 - ("1" + -.2) --> ('.$v.")
";
$v = ("1" + -.3); print "not " if $v ne q{0.7}; print 'ok 4891 - ("1" + -.3) --> ('.$v.")
";
$v = ("1" + 0.); print "not " if $v ne q{1}; print 'ok 4892 - ("1" + 0.) --> ('.$v.")
";
$v = ("1" + 0.0); print "not " if $v ne q{1}; print 'ok 4893 - ("1" + 0.0) --> ('.$v.")
";
$v = ("1" + 0.1); print "not " if $v ne q{1.1}; print 'ok 4894 - ("1" + 0.1) --> ('.$v.")
";
$v = ("1" + 0.2); print "not " if $v ne q{1.2}; print 'ok 4895 - ("1" + 0.2) --> ('.$v.")
";
$v = ("1" + 0.3); print "not " if $v ne q{1.3}; print 'ok 4896 - ("1" + 0.3) --> ('.$v.")
";
$v = ("1" + -0.0); print "not " if $v ne q{1}; print 'ok 4897 - ("1" + -0.0) --> ('.$v.")
";
$v = ("1" + -0.1); print "not " if $v ne q{0.9}; print 'ok 4898 - ("1" + -0.1) --> ('.$v.")
";
$v = ("1" + -0.2); print "not " if $v ne q{0.8}; print 'ok 4899 - ("1" + -0.2) --> ('.$v.")
";
$v = ("1" + -0.3); print "not " if $v ne q{0.7}; print 'ok 4900 - ("1" + -0.3) --> ('.$v.")
";
$v = ("1" + 0.e1); print "not " if $v ne q{1}; print 'ok 4901 - ("1" + 0.e1) --> ('.$v.")
";
$v = ("1" + 0.0e1); print "not " if $v ne q{1}; print 'ok 4902 - ("1" + 0.0e1) --> ('.$v.")
";
$v = ("1" + 0.1e1); print "not " if $v ne q{2}; print 'ok 4903 - ("1" + 0.1e1) --> ('.$v.")
";
$v = ("1" + 0.2e1); print "not " if $v ne q{3}; print 'ok 4904 - ("1" + 0.2e1) --> ('.$v.")
";
$v = ("1" + 0.3e1); print "not " if $v ne q{4}; print 'ok 4905 - ("1" + 0.3e1) --> ('.$v.")
";
$v = ("1" + -0.0e1); print "not " if $v ne q{1}; print 'ok 4906 - ("1" + -0.0e1) --> ('.$v.")
";
$v = ("1" + -0.1e1); print "not " if $v ne q{0}; print 'ok 4907 - ("1" + -0.1e1) --> ('.$v.")
";
$v = ("1" + -0.2e1); print "not " if $v ne q{-1}; print 'ok 4908 - ("1" + -0.2e1) --> ('.$v.")
";
$v = ("1" + -0.3e1); print "not " if $v ne q{-2}; print 'ok 4909 - ("1" + -0.3e1) --> ('.$v.")
";
$v = ("1" + 00); print "not " if $v ne q{1}; print 'ok 4910 - ("1" + 00) --> ('.$v.")
";
$v = ("1" + 10); print "not " if $v ne q{11}; print 'ok 4911 - ("1" + 10) --> ('.$v.")
";
$v = ("1" + 20); print "not " if $v ne q{21}; print 'ok 4912 - ("1" + 20) --> ('.$v.")
";
$v = ("1" + 30); print "not " if $v ne q{31}; print 'ok 4913 - ("1" + 30) --> ('.$v.")
";
$v = ("1" + -00); print "not " if $v ne q{1}; print 'ok 4914 - ("1" + -00) --> ('.$v.")
";
$v = ("1" + -10); print "not " if $v ne q{-9}; print 'ok 4915 - ("1" + -10) --> ('.$v.")
";
$v = ("1" + -20); print "not " if $v ne q{-19}; print 'ok 4916 - ("1" + -20) --> ('.$v.")
";
$v = ("1" + -30); print "not " if $v ne q{-29}; print 'ok 4917 - ("1" + -30) --> ('.$v.")
";
$v = ("1" + @aa); print "not " if $v ne q{1}; print 'ok 4918 - ("1" + @aa) --> ('.$v.")
";
$v = ("1" + @ab); print "not " if $v ne q{2}; print 'ok 4919 - ("1" + @ab) --> ('.$v.")
";
$v = ("1" + @ac); print "not " if $v ne q{4}; print 'ok 4920 - ("1" + @ac) --> ('.$v.")
";
$v = ("2" + " "); print "not " if $v ne q{2}; print 'ok 4921 - ("2" + " ") --> ('.$v.")
";
$v = ("2" + ""); print "not " if $v ne q{2}; print 'ok 4922 - ("2" + "") --> ('.$v.")
";
$v = ("2" + "0"); print "not " if $v ne q{2}; print 'ok 4923 - ("2" + "0") --> ('.$v.")
";
$v = ("2" + "1"); print "not " if $v ne q{3}; print 'ok 4924 - ("2" + "1") --> ('.$v.")
";
$v = ("2" + "2"); print "not " if $v ne q{4}; print 'ok 4925 - ("2" + "2") --> ('.$v.")
";
$v = ("2" + "3"); print "not " if $v ne q{5}; print 'ok 4926 - ("2" + "3") --> ('.$v.")
";
$v = ("2" + "-0"); print "not " if $v ne q{2}; print 'ok 4927 - ("2" + "-0") --> ('.$v.")
";
$v = ("2" + "-1"); print "not " if $v ne q{1}; print 'ok 4928 - ("2" + "-1") --> ('.$v.")
";
$v = ("2" + "-2"); print "not " if $v ne q{0}; print 'ok 4929 - ("2" + "-2") --> ('.$v.")
";
$v = ("2" + "-3"); print "not " if $v ne q{-1}; print 'ok 4930 - ("2" + "-3") --> ('.$v.")
";
$v = ("2" + "."); print "not " if $v ne q{2}; print 'ok 4931 - ("2" + ".") --> ('.$v.")
";
$v = ("2" + ".0"); print "not " if $v ne q{2}; print 'ok 4932 - ("2" + ".0") --> ('.$v.")
";
$v = ("2" + ".1"); print "not " if $v ne q{2.1}; print 'ok 4933 - ("2" + ".1") --> ('.$v.")
";
$v = ("2" + ".2"); print "not " if $v ne q{2.2}; print 'ok 4934 - ("2" + ".2") --> ('.$v.")
";
$v = ("2" + ".3"); print "not " if $v ne q{2.3}; print 'ok 4935 - ("2" + ".3") --> ('.$v.")
";
$v = ("2" + "-.0"); print "not " if $v ne q{2}; print 'ok 4936 - ("2" + "-.0") --> ('.$v.")
";
$v = ("2" + "-.1"); print "not " if $v ne q{1.9}; print 'ok 4937 - ("2" + "-.1") --> ('.$v.")
";
$v = ("2" + "-.2"); print "not " if $v ne q{1.8}; print 'ok 4938 - ("2" + "-.2") --> ('.$v.")
";
$v = ("2" + "-.3"); print "not " if $v ne q{1.7}; print 'ok 4939 - ("2" + "-.3") --> ('.$v.")
";
$v = ("2" + "0."); print "not " if $v ne q{2}; print 'ok 4940 - ("2" + "0.") --> ('.$v.")
";
$v = ("2" + "0.0"); print "not " if $v ne q{2}; print 'ok 4941 - ("2" + "0.0") --> ('.$v.")
";
$v = ("2" + "0.1"); print "not " if $v ne q{2.1}; print 'ok 4942 - ("2" + "0.1") --> ('.$v.")
";
$v = ("2" + "0.2"); print "not " if $v ne q{2.2}; print 'ok 4943 - ("2" + "0.2") --> ('.$v.")
";
$v = ("2" + "0.3"); print "not " if $v ne q{2.3}; print 'ok 4944 - ("2" + "0.3") --> ('.$v.")
";
$v = ("2" + "-0.0"); print "not " if $v ne q{2}; print 'ok 4945 - ("2" + "-0.0") --> ('.$v.")
";
$v = ("2" + "-0.1"); print "not " if $v ne q{1.9}; print 'ok 4946 - ("2" + "-0.1") --> ('.$v.")
";
$v = ("2" + "-0.2"); print "not " if $v ne q{1.8}; print 'ok 4947 - ("2" + "-0.2") --> ('.$v.")
";
$v = ("2" + "-0.3"); print "not " if $v ne q{1.7}; print 'ok 4948 - ("2" + "-0.3") --> ('.$v.")
";
$v = ("2" + "0.e1"); print "not " if $v ne q{2}; print 'ok 4949 - ("2" + "0.e1") --> ('.$v.")
";
$v = ("2" + "0.0e1"); print "not " if $v ne q{2}; print 'ok 4950 - ("2" + "0.0e1") --> ('.$v.")
";
$v = ("2" + "0.1e1"); print "not " if $v ne q{3}; print 'ok 4951 - ("2" + "0.1e1") --> ('.$v.")
";
$v = ("2" + "0.2e1"); print "not " if $v ne q{4}; print 'ok 4952 - ("2" + "0.2e1") --> ('.$v.")
";
$v = ("2" + "0.3e1"); print "not " if $v ne q{5}; print 'ok 4953 - ("2" + "0.3e1") --> ('.$v.")
";
$v = ("2" + "-0.0e1"); print "not " if $v ne q{2}; print 'ok 4954 - ("2" + "-0.0e1") --> ('.$v.")
";
$v = ("2" + "-0.1e1"); print "not " if $v ne q{1}; print 'ok 4955 - ("2" + "-0.1e1") --> ('.$v.")
";
$v = ("2" + "-0.2e1"); print "not " if $v ne q{0}; print 'ok 4956 - ("2" + "-0.2e1") --> ('.$v.")
";
$v = ("2" + "-0.3e1"); print "not " if $v ne q{-1}; print 'ok 4957 - ("2" + "-0.3e1") --> ('.$v.")
";
$v = ("2" + "00"); print "not " if $v ne q{2}; print 'ok 4958 - ("2" + "00") --> ('.$v.")
";
$v = ("2" + "10"); print "not " if $v ne q{12}; print 'ok 4959 - ("2" + "10") --> ('.$v.")
";
$v = ("2" + "20"); print "not " if $v ne q{22}; print 'ok 4960 - ("2" + "20") --> ('.$v.")
";
$v = ("2" + "30"); print "not " if $v ne q{32}; print 'ok 4961 - ("2" + "30") --> ('.$v.")
";
$v = ("2" + "-00"); print "not " if $v ne q{2}; print 'ok 4962 - ("2" + "-00") --> ('.$v.")
";
$v = ("2" + "-10"); print "not " if $v ne q{-8}; print 'ok 4963 - ("2" + "-10") --> ('.$v.")
";
$v = ("2" + "-20"); print "not " if $v ne q{-18}; print 'ok 4964 - ("2" + "-20") --> ('.$v.")
";
$v = ("2" + "-30"); print "not " if $v ne q{-28}; print 'ok 4965 - ("2" + "-30") --> ('.$v.")
";
$v = ("2" + .0); print "not " if $v ne q{2}; print 'ok 4966 - ("2" + .0) --> ('.$v.")
";
$v = ("2" + .1); print "not " if $v ne q{2.1}; print 'ok 4967 - ("2" + .1) --> ('.$v.")
";
$v = ("2" + .2); print "not " if $v ne q{2.2}; print 'ok 4968 - ("2" + .2) --> ('.$v.")
";
$v = ("2" + .3); print "not " if $v ne q{2.3}; print 'ok 4969 - ("2" + .3) --> ('.$v.")
";
$v = ("2" + -.0); print "not " if $v ne q{2}; print 'ok 4970 - ("2" + -.0) --> ('.$v.")
";
$v = ("2" + -.1); print "not " if $v ne q{1.9}; print 'ok 4971 - ("2" + -.1) --> ('.$v.")
";
$v = ("2" + -.2); print "not " if $v ne q{1.8}; print 'ok 4972 - ("2" + -.2) --> ('.$v.")
";
$v = ("2" + -.3); print "not " if $v ne q{1.7}; print 'ok 4973 - ("2" + -.3) --> ('.$v.")
";
$v = ("2" + 0.); print "not " if $v ne q{2}; print 'ok 4974 - ("2" + 0.) --> ('.$v.")
";
$v = ("2" + 0.0); print "not " if $v ne q{2}; print 'ok 4975 - ("2" + 0.0) --> ('.$v.")
";
$v = ("2" + 0.1); print "not " if $v ne q{2.1}; print 'ok 4976 - ("2" + 0.1) --> ('.$v.")
";
$v = ("2" + 0.2); print "not " if $v ne q{2.2}; print 'ok 4977 - ("2" + 0.2) --> ('.$v.")
";
$v = ("2" + 0.3); print "not " if $v ne q{2.3}; print 'ok 4978 - ("2" + 0.3) --> ('.$v.")
";
$v = ("2" + -0.0); print "not " if $v ne q{2}; print 'ok 4979 - ("2" + -0.0) --> ('.$v.")
";
$v = ("2" + -0.1); print "not " if $v ne q{1.9}; print 'ok 4980 - ("2" + -0.1) --> ('.$v.")
";
$v = ("2" + -0.2); print "not " if $v ne q{1.8}; print 'ok 4981 - ("2" + -0.2) --> ('.$v.")
";
$v = ("2" + -0.3); print "not " if $v ne q{1.7}; print 'ok 4982 - ("2" + -0.3) --> ('.$v.")
";
$v = ("2" + 0.e1); print "not " if $v ne q{2}; print 'ok 4983 - ("2" + 0.e1) --> ('.$v.")
";
$v = ("2" + 0.0e1); print "not " if $v ne q{2}; print 'ok 4984 - ("2" + 0.0e1) --> ('.$v.")
";
$v = ("2" + 0.1e1); print "not " if $v ne q{3}; print 'ok 4985 - ("2" + 0.1e1) --> ('.$v.")
";
$v = ("2" + 0.2e1); print "not " if $v ne q{4}; print 'ok 4986 - ("2" + 0.2e1) --> ('.$v.")
";
$v = ("2" + 0.3e1); print "not " if $v ne q{5}; print 'ok 4987 - ("2" + 0.3e1) --> ('.$v.")
";
$v = ("2" + -0.0e1); print "not " if $v ne q{2}; print 'ok 4988 - ("2" + -0.0e1) --> ('.$v.")
";
$v = ("2" + -0.1e1); print "not " if $v ne q{1}; print 'ok 4989 - ("2" + -0.1e1) --> ('.$v.")
";
$v = ("2" + -0.2e1); print "not " if $v ne q{0}; print 'ok 4990 - ("2" + -0.2e1) --> ('.$v.")
";
$v = ("2" + -0.3e1); print "not " if $v ne q{-1}; print 'ok 4991 - ("2" + -0.3e1) --> ('.$v.")
";
$v = ("2" + 00); print "not " if $v ne q{2}; print 'ok 4992 - ("2" + 00) --> ('.$v.")
";
$v = ("2" + 10); print "not " if $v ne q{12}; print 'ok 4993 - ("2" + 10) --> ('.$v.")
";
$v = ("2" + 20); print "not " if $v ne q{22}; print 'ok 4994 - ("2" + 20) --> ('.$v.")
";
$v = ("2" + 30); print "not " if $v ne q{32}; print 'ok 4995 - ("2" + 30) --> ('.$v.")
";
$v = ("2" + -00); print "not " if $v ne q{2}; print 'ok 4996 - ("2" + -00) --> ('.$v.")
";
$v = ("2" + -10); print "not " if $v ne q{-8}; print 'ok 4997 - ("2" + -10) --> ('.$v.")
";
$v = ("2" + -20); print "not " if $v ne q{-18}; print 'ok 4998 - ("2" + -20) --> ('.$v.")
";
