some new and 1 fixed test for fractional number negative exponent ^

3 files changed, 87 insertions, 79 deletions

diff --git a/regress/usr.bin/dc/t25.in b/regress/usr.bin/dc/t25.in
index 77117cc68b1..9bef0617ea8 100644
--- a/regress/usr.bin/dc/t25.in
+++ b/regress/usr.bin/dc/t25.in
@@ -15,3 +15,7 @@ _.2 _2^p
 .2 _3^p
 _.2 3^p
 _.2 _3^p
+0k
+0.1 _1^p
+_0.2 _2^p
+_0.9 _9^p
diff --git a/regress/usr.bin/dc/t25.out b/regress/usr.bin/dc/t25.out
index dcb8e089d01..6aa5fad8cdd 100644
--- a/regress/usr.bin/dc/t25.out
+++ b/regress/usr.bin/dc/t25.out
@@ -14,3 +14,6 @@
 125.00000
 -.008
 -125.00000
+10
+25
+-2
diff --git a/regress/usr.bin/dc/t9.out b/regress/usr.bin/dc/t9.out
index 6b1e7a314f1..4113430bb96 100644
--- a/regress/usr.bin/dc/t9.out
+++ b/regress/usr.bin/dc/t9.out
@@ -606,101 +606,102 @@ A.19
 * 1073741824
  0000000125
 ====
-==== 48769821468242723227944060199278001754406569751046238666893491237191\
-27157844479044200165222440079397481692628792836411835175908092174600\
-1516259259543195854037051.4
+==== 12872039593705573507442086510373789814349856904751088405129415467253\
+38710457717839495395204029092143433239329627680013734252535742791579\
+88327895971923123585569787.0
 * 2
-11011110000000101010110111010110000111100011001010010110010110100101\
-11001110101010011111001111011011100000110111110011000011101100010010\
-11110100110011100000100010101000010011101010010110000010110111000111\
-00111011101100101000011110011101000110110010010101111111011000111100\
-00100001000110001011101101110111000001011111101011110110111111100010\
-01101111001101100101111010001101010010010001101101010101000110011111\
-01110101011111110000000001010110101001011011110000010010000011010110\
-1111111010110110101111101001011110011010111110000000111011.0110
+10010010011111011001010110111000001100110111110000111111001010010010\
+00101111111000010110111000101011000100000001010111011110010101111011\
+01111010101000111010100001111111101110001000101001011100100111010011\
+00110111000001110010101011110110111010101011100001010010010011000100\
+01000111111110011010000100001011101010000111011101001101110010001100\
+00000100110110001101001111000000010010011010110110010000010001000110\
+11000101010101100110001110000010010010010000101111110110000001100101\
+001100010100010000110011111101101011010010100101001111111011.0000
 * 3
-21010021002100220110221221121020022100112000121011010002020221011200\
-02011022212101121001001101020222002201120001121120201001101002110100\
-12020002002011222221202102021121002222210110200221201002201120200112\
-10220102100101112010010000122112020110201001101001202211101102212022\
-02210002101011100101101222221001210111202201020010012011200121012.101
+20021011000122121121211122212220022012002200101222110010120012211220\
+00111010120012011112212021001211102201020102111121220011100120212201\
+00202102122022111010020000101011010212211110102121222000020001222200\
+10022212121100121210022221220110022121200221212222002121202020122021\
+002022111002111000102211001100101100020021220112210212200012020102.0\
+00
 * 4
-31320002223131120132030221121122113032222133033123200313303003230102\
-33103032002022201032221120023130130323230220132131012302111333120330\
-02010120232313130011332233123332021233031211322031102101231111012133\
-131113330000111222112330010200311233322312233221132122332000323.12
+21021331211123200303133003330221020233320112320223010001113132111323\
+13222203222013332320202211302131030313001302223312322223201102103010\
+10133321220100232220131310313020300010312031033000102122312100101012\
+3011111212032002102100233312001211030110100303331223102211033323.00
 * 5
-41004312433123020414444033222314241023100101220321324214310134310010\
-33100011041000443340412021434131433011432040102143000140333432140123\
-03402443344304444110200344242024000041104213023334340041303432123414\
-14023313321210102113141201.20
+21023024333401030143011311330204003304323334244330323421004223433432\
+13023432404112140202123402440400310141232214000340231002220024210402\
+41432333244231142322334214333132103200333301241310414434240133241140\
+324233123401424100401213122.00
 * 6
-22405534502124321445345213114032222025535313045515352353130331343040\
-31401012204144115110054021412055253233415141515105232101230105422500\
-52542010130240334404231234101154500405252151354521431220304411243504\
-135.22
+10244104205013201040034544552024325233315453024544310050412324501133\
+25031134243153240012135314444023243114221414525005451010054545205211\
+33410541133243402300024413502002430220452203214344304141322421012355\
+0015.00
 * 7
-12134443526400112630431305154220156240131611502004034255655541250536\
-15460121365535566254302651314211132565564006135410025212200225236621\
-5065025420463163461025615363135536263010464154023646454.25
+33220502661432555250553241144232526166133532026363662051661030111240\
+44113431230303655001504636342253243550310261056165466056153314115401\
+1205021332116640023256630620316050053463043051033611635.00
 * 8
-67401255654170624545513472517475560337141661136463404250235226026707\
-16731207472154453766170204305667340576573376115715457215222155250637\
-352774002552267404406557726657513632760073.31
+22237312670146760771222137605561261002567453667524352077670424562351\
+46701625366725341222304217746410272416723344300233064740111533101043\
+3052546160222205766014514242063755322451773.00
 * 9
-23323232642784720831501713306683460642853470313368626460475210410733\
-16606215885236753288342085108152047263703451030184664210410527413852\
-683071140341887053452636105150535.35
+62340185477487862650803584035057560433505145767054381212447804316781\
+06725684332003341257433778602018803285540553287813277627788077666567\
+068432430384040340207815725605212.00
 * 10
-48769821468242723227944060199278001754406569751046238666893491237191\
-27157844479044200165222440079397481692628792836411835175908092174600\
-1516259259543195854037051.4
+12872039593705573507442086510373789814349856904751088405129415467253\
+38710457717839495395204029092143433239329627680013734252535742791579\
+88327895971923123585569787.0
 * 16
-3780AB75878CA596973AA7CF6E0DF30EC4BD33822A13A960B71CEECA1E746C95FD8F\
-08462EDDC17EBDBF89BCD97A35246D5467DD5FC015A96F04835BFADAFA5E6BE03B.6
+927D95B8337C3F2922FE16E2B1015DE57B7AA3A87FB88A5C9D337072AF6EAB8524C4\
+47F9A10BA8774DC8C04D8D3C049AD90446C5566382490BF6065314433F6B4A53FB.0
 * 17
- 05 06 04 04 11 15 12 04 15 01 03 12 16 07 15 07 15 08 02 14 06 05 0\
-7 08 14 07 13 04 12 16 02 10 04 02 08 11 05 12 04 10 05 16 04 07 14 \
-03 16 12 00 06 07 04 05 04 02 13 15 09 14 14 04 03 11 02 08 03 00 10\
- 07 11 06 02 05 10 12 06 14 05 03 00 08 09 15 09 02 16 04 16 01 04 0\
-8 04 16 07 11 09 05 01 12 10 02 09 11 12 04 12 04 13 11 16 01 11 05 \
-05 04 13 07 16 02 08 06 13 13 00 08 10 10 04 15 02 09.06
+ 14 02 14 06 00 07 01 15 11 14 07 04 11 15 07 00 15 15 06 09 15 14 0\
+7 04 01 05 13 14 12 09 07 00 14 02 04 11 05 07 00 14 14 11 06 14 12 \
+07 11 14 02 04 05 14 04 14 16 12 07 09 01 14 14 12 13 00 02 16 00 12\
+ 10 14 07 05 07 09 11 04 15 14 08 08 02 11 09 01 04 04 10 14 08 11 1\
+6 08 10 05 06 06 16 16 10 14 15 12 14 07 06 11 01 04 04 01 02 00 01 \
+09 07 04 13 02 01 07 14 11 10 14 15 04 01 01 14 02 08.00
 * 20
- 04 11 14 10 06 14 06 01 15 02 14 01 05 16 11 11 02 04 09 17 05 19 1\
-5 11 14 18 17 02 19 06 13 07 19 13 19 16 11 11 12 07 03 18 06 17 02 \
-10 05 08 05 00 10 10 13 11 01 17 08 03 11 01 07 06 09 04 16 10 11 08\
- 07 10 11 10 05 01 09 02 06 16 06 05 01 07 02 04 14 08 00 10 10 16 0\
-7 12 16 11 15 16 14 09 07 08 09 00 18 08 18 16 11 13 18 16 04 03 05 \
-14 15 06 01 15 04 07 14 12 12 11.08
+ 12 02 01 18 09 05 03 01 15 13 18 07 06 06 16 05 00 14 04 10 04 03 0\
+4 01 06 12 04 08 04 14 15 14 18 00 18 09 13 00 18 15 01 13 10 02 05 \
+02 10 07 13 10 14 15 19 12 14 13 19 07 10 14 13 11 16 18 11 10 16 07\
+ 06 08 07 02 19 14 07 00 17 19 17 04 15 12 12 12 11 09 07 18 00 16 0\
+4 00 19 15 08 00 01 17 02 05 14 01 00 04 10 08 10 00 14 08 01 07 10 \
+08 02 07 00 06 00 09 16 04 09 07.00
 * 99
- 10 88 86 53 66 18 59 79 37 59 02 11 19 54 01 67 94 70 65 09 77 12 4\
-9 56 08 50 91 68 33 31 90 34 47 33 37 51 61 11 80 81 82 70 76 20 11 \
-45 82 07 18 54 08 79 79 59 59 50 85 65 21 85 90 23 01 97 03 05 51 37\
- 25 74 90 21 64 02 30 08 71 93 79 25 68.39
+ 28 75 51 61 05 65 26 61 21 29 20 97 10 95 45 06 32 12 70 52 32 51 6\
+2 35 07 07 29 76 05 64 22 46 89 91 31 50 89 96 69 06 83 01 12 98 05 \
+28 72 83 34 94 29 38 71 62 45 71 06 82 06 49 41 65 82 59 41 03 53 51\
+ 10 49 57 33 96 54 38 85 62 89 14 36 92.00
 * 100
- 04 87 69 82 14 68 24 27 23 22 79 44 06 01 99 27 80 01 75 44 06 56 9\
-7 51 04 62 38 66 68 93 49 12 37 19 12 71 57 84 44 79 04 42 00 16 52 \
-22 44 00 79 39 74 81 69 26 28 79 28 36 41 18 35 17 59 08 09 21 74 60\
- 01 51 62 59 25 95 43 19 58 54 03 70 51.40
+ 12 87 20 39 59 37 05 57 35 07 44 20 86 51 03 73 78 98 14 34 98 56 9\
+0 47 51 08 84 05 12 94 15 46 72 53 38 71 04 57 71 78 39 49 53 95 20 \
+40 29 09 21 43 43 32 39 32 96 27 68 00 13 73 42 52 53 57 42 79 15 79\
+ 88 32 78 95 97 19 23 12 35 85 56 97 87.00
 * 101
- 002 020 021 016 018 086 045 002 095 029 093 084 068 025 099 003 027\
- 043 030 061 025 061 041 049 030 058 090 002 084 086 030 005 035 046\
- 087 086 064 013 015 092 069 018 081 024 081 053 087 024 036 002 085\
- 033 092 002 043 025 093 058 047 098 001 046 049 099 036 035 092 084\
- 015 013 027 065 050 058 008 018 044 099 066 013 016.040
+ 005 081 049 025 006 004 026 099 088 088 031 047 006 098 085 049 025\
+ 056 065 009 060 061 031 092 021 012 062 028 016 060 004 051 078 070\
+ 060 012 024 007 064 001 035 016 050 003 100 006 015 053 085 012 093\
+ 099 088 039 080 066 074 096 050 075 036 057 010 024 067 014 004 080\
+ 084 098 087 015 012 005 095 071 035 042 013 043 004.000
 * 1000
- 048 769 821 468 242 723 227 944 060 199 278 001 754 406 569 751 046\
- 238 666 893 491 237 191 271 578 444 790 442 001 652 224 400 793 974\
- 816 926 287 928 364 118 351 759 080 921 746 001 516 259 259 543 195\
- 854 037 051.400
+ 128 720 395 937 055 735 074 420 865 103 737 898 143 498 569 047 510\
+ 884 051 294 154 672 533 871 045 771 783 949 539 520 402 909 214 343\
+ 323 932 962 768 001 373 425 253 574 279 157 988 327 895 971 923 123\
+ 585 569 787.000
 * 10000
- 0004 8769 8214 6824 2723 2279 4406 0199 2780 0175 4406 5697 5104 62\
-38 6668 9349 1237 1912 7157 8444 7904 4200 1652 2244 0079 3974 8169 \
-2628 7928 3641 1835 1759 0809 2174 6001 5162 5925 9543 1958 5403 705\
-1.4000
+ 0012 8720 3959 3705 5735 0744 2086 5103 7378 9814 3498 5690 4751 08\
+84 0512 9415 4672 5338 7104 5771 7839 4953 9520 4029 0921 4343 3239 \
+3296 2768 0013 7342 5253 5742 7915 7988 3278 9597 1923 1235 8556 978\
+7.0000
 * 1073741824
- 0014549677 0898075813 0631623337 1022812383 0205198068 0864168467 0\
-710421959 0250388967 0296900598 0252200494 0930111407 0469277645 063\
-6015761 0760506333 0401605994 0384845877 0803957737 0510386235.04294\
-96729
+ 0038401622 0942898239 0172539781 0774574101 0932572650 0598245304 0\
+580331340 0923216630 0984487059 0071825825 0048897491 0478938328 088\
+8148587 0419710661 0362340498 0280977509 0206638333 0726291451.00000\
+00000
 ====