[project @ 1997-07-27 00:49:03 by sof]
authorsof <unknown>
Sun, 27 Jul 1997 00:49:12 +0000 (00:49 +0000)
committersof <unknown>
Sun, 27 Jul 1997 00:49:12 +0000 (00:49 +0000)
12 files changed:
ghc/tests/numeric/arith001.hs [new file with mode: 0644]
ghc/tests/numeric/arith002.hs [new file with mode: 0644]
ghc/tests/numeric/arith003.hs [new file with mode: 0644]
ghc/tests/numeric/arith004.hs [new file with mode: 0644]
ghc/tests/numeric/arith005.hs [new file with mode: 0644]
ghc/tests/numeric/arith006.hs [new file with mode: 0644]
ghc/tests/numeric/arith007.hs [new file with mode: 0644]
ghc/tests/numeric/arith008.hs [new file with mode: 0644]
ghc/tests/numeric/arith009.hs [new file with mode: 0644]
ghc/tests/numeric/arith010.hs [new file with mode: 0644]
ghc/tests/numeric/array001.hs [new file with mode: 0644]
ghc/tests/numeric/array002.hs [new file with mode: 0644]

diff --git a/ghc/tests/numeric/arith001.hs b/ghc/tests/numeric/arith001.hs
new file mode 100644 (file)
index 0000000..741c480
--- /dev/null
@@ -0,0 +1,5 @@
+42 % 1
+42, 1
+42.0, 1.0
+5910974510923776, -47
+5910974510923776, -47
diff --git a/ghc/tests/numeric/arith002.hs b/ghc/tests/numeric/arith002.hs
new file mode 100644 (file)
index 0000000..cb337a0
--- /dev/null
@@ -0,0 +1,4 @@
+[0 % 1, 0 % 1, 0 % 1, 2 % 1, 2 % 1, -2 % 1, -2 % 1, 22 % 7, 1 % 5000]
+[0, 0, 0, 2, 2, -2, -2, 22, 1, 1, 1, 1, 1, 1, 1, 1, 7, 5000]
+[0 % 1, 0 % 1, 0 % 1, 2 % 1, 2 % 1, -2 % 1, -2 % 1, 22 % 7, 1 % 5000]
+[0, 0, 0, 2, 2, -2, -2, 22, 1, 1, 1, 1, 1, 1, 1, 1, 7, 5000]
diff --git a/ghc/tests/numeric/arith003.hs b/ghc/tests/numeric/arith003.hs
new file mode 100644 (file)
index 0000000..24dd4fc
--- /dev/null
@@ -0,0 +1,2 @@
+[-2147483647, 2147483647, -4, 12, -2147483643, -2147483647, 2, 2, 2, 8, 8, 52861, 24, 24, 24, 0, 0, 207585147, 1, 4096, 4096]
+[-2147483647, 2147483647, -4, 12, -2147483643, -2147483647, 2, 2, 2, 8, 8, 52861, 24, 24, 24, 0, 0, 207585147, 1, 4096, 4096]
diff --git a/ghc/tests/numeric/arith004.hs b/ghc/tests/numeric/arith004.hs
new file mode 100644 (file)
index 0000000..e94f88d
--- /dev/null
@@ -0,0 +1,12 @@
+[0, 0, 2, 3, -4, -4, 3, 1234, -1235, -1235, 1234, 12, 61, -1235, 12345, -123457, -2, 12345]
+[0, 0, 2, 3, -4, -4, 3, 1234, -1235, -1235, 1234, 12, 61, -1235, 12345, -123457, -2, 12345, 24, 246745167]
+[0, 0, 1, 1, 1, -1, -1, 5678, 5678, -5678, -5678, 3456, 14567, 5678, 6789, 7890, -2345, -6789]
+[0, 0, 1, 1, 1, -1, -1, 5678, 5678, -5678, -5678, 3456, 14567, 5678, 6789, 7890, -2345, -6789, 345678900, 3703333360749468678900]
+[0, 0, 2, 3, -3, -3, 3, 1234, -1234, -1234, 1234, 12, 61, -1234, 12345, -123456, -1, 12345]
+[0, 0, 2, 3, -3, -3, 3, 1234, -1234, -1234, 1234, 12, 61, -1234, 12345, -123456, -1, 12345, 24, 246745167]
+[0, 0, 1, 1, -3, 3, -1, 5678, -4322, 4322, -5678, 3456, 14567, -4322, 6789, -2110, 7655, -6789]
+[0, 0, 1, 1, -3, 3, -1, 5678, -4322, 4322, -5678, 3456, 14567, -4322, 6789, -2110, 7655, -6789, 345678900, 3703333360749468678900]
+[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True]
+[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True]
+[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True]
+[True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True, True]
diff --git a/ghc/tests/numeric/arith005.hs b/ghc/tests/numeric/arith005.hs
new file mode 100644 (file)
index 0000000..521d36d
--- /dev/null
@@ -0,0 +1,20 @@
+[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4]
+[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4]
+[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4]
+[0, 0, 2, 3, 4, 5, -1, -2, -3, -4, 1000012, 124, 101, 103, 1, 0, 17000, 0, 1, 4]
+[0, 0, 1, 2, 3, 4, -1, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3]
+[0, 0, 1, 2, 3, 4, -1, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3]
+[0, 0, 1, 2, 3, 4, -2, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3]
+[0, 0, 1, 2, 3, 4, -2, -3, -4, -5, 1000012, 123, 100, 102, 0, -1, 17000, -1, 0, 3]
+[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 2, 3, 4, -1, -2, -3, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[0, 0, 1, 3, 4, 4, -1, -3, -4, -4, 1000012, 123, 100, 102, 0, 0, 17000, 0, 0, 3]
+[(0, 0.0), (0, 0.0), (1, 0.100000024), (2, 0.79999995), (3, 0.5), (4, 0.5), (-1, 0.0), (-2, -0.9999995), (-3, -0.5), (-4, -0.5), (1000012, 0.0), (123, 0.45600128), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159274)]
+[(0, 0.0), (0, 0.0), (1, 0.100000024), (2, 0.79999995), (3, 0.5), (4, 0.5), (-1, 0.0), (-2, -0.9999995), (-3, -0.5), (-4, -0.5), (1000012, 0.0), (123, 0.45600128), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159274)]
+[(0, 0.0), (0, 0.0), (1, 0.10000000000000009), (2, 0.7999999999999998), (3, 0.5), (4, 0.5), (-1, -1.000000082740371e-10), (-2, -0.9999994999999999), (-3, -0.50000000001), (-4, -0.49999999999), (1000012, 0.0), (123, 0.45600000000000307), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159265358979312)]
+[(0, 0.0), (0, 0.0), (1, 0.10000000000000009), (2, 0.7999999999999998), (3, 0.5), (4, 0.5), (-1, -1.000000082740371e-10), (-2, -0.9999994999999999), (-3, -0.50000000001), (-4, -0.49999999999), (1000012, 0.0), (123, 0.45600000000000307), (100, 0.25), (102, 0.5), (0, 1.2e-3), (0, -1.2e-7), (17000, 0.0), (0, -1.7e-4), (0, 1.5e-7), (3, 0.14159265358979312)]
diff --git a/ghc/tests/numeric/arith006.hs b/ghc/tests/numeric/arith006.hs
new file mode 100644 (file)
index 0000000..713c222
--- /dev/null
@@ -0,0 +1 @@
+42.0
diff --git a/ghc/tests/numeric/arith007.hs b/ghc/tests/numeric/arith007.hs
new file mode 100644 (file)
index 0000000..c9be8e5
--- /dev/null
@@ -0,0 +1 @@
+[2, 6, 10, 14, 18, 22222222222222222222222222222, 4444444444444444444444444444444444444, 6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666, -22222222222222222222222222222, -4444444444444444444444444444444444444, -6666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666]
diff --git a/ghc/tests/numeric/arith008.hs b/ghc/tests/numeric/arith008.hs
new file mode 100644 (file)
index 0000000..6a6007c
--- /dev/null
@@ -0,0 +1,1000 @@
+[0.41359794,
+0.6399324,
+0.92941284,
+0.8322308,
+0.6558542,
+0.27844667,
+0.48358274,
+0.21114683,
+0.7582127,
+0.12166107,
+0.981663,
+0.79931486,
+0.8722358,
+0.45195377,
+3.4911394e-2,
+0.7246227,
+0.24528801,
+0.6998143,
+0.9876834,
+0.42533565,
+0.59525573,
+0.38930762,
+0.119990826,
+0.9083969,
+0.26239872,
+2.744031e-2,
+0.7286656,
+0.92476606,
+0.8718927,
+0.1687454,
+0.13774204,
+0.28789735,
+0.9548291,
+0.41255307,
+0.8564267,
+8.4107876e-2,
+0.48756683,
+0.11202359,
+0.51587105,
+0.5511048,
+0.93413484,
+0.6428783,
+0.87145376,
+0.67891765,
+0.23348927,
+0.3780495,
+0.87735546,
+0.85223985,
+0.19405353,
+0.3535874,
+0.72997916,
+0.23668802,
+0.61755717,
+0.9253086,
+0.7007494,
+0.98090434,
+0.23180747,
+0.8951179,
+0.18330741,
+0.30362415,
+0.57720375,
+0.8465313,
+0.31598616,
+0.20875359,
+0.18506193,
+0.56406593,
+0.87965286,
+2.7450562e-2,
+0.14676762,
+0.74345183,
+0.92644644,
+1.5535355e-3,
+0.8126061,
+0.6636951,
+0.15379143,
+0.16009843,
+0.29956555,
+0.71643496,
+0.65267706,
+1.2942791e-2,
+0.15469885,
+0.70281076,
+0.49925303,
+0.9001132,
+0.55416614,
+0.2577113,
+0.28545964,
+0.26130748,
+0.91633797,
+0.2018559,
+0.88357884,
+0.6068319,
+0.41902173,
+0.80342615,
+0.5469477,
+0.5351703,
+0.36879182,
+0.85823405,
+0.18722737,
+0.20447707,
+0.5052972,
+0.41609886,
+0.13425875,
+0.8554218,
+0.37205708,
+9.450865e-2,
+0.97575045,
+0.8755969,
+0.7150241,
+0.6752708,
+0.6860019,
+0.21408677,
+0.30702153,
+0.3567884,
+0.6356261,
+0.84917825,
+0.13312805,
+0.1351955,
+0.2726475,
+0.77746105,
+0.39467335,
+0.42776418,
+0.15337801,
+0.1592257,
+0.28089368,
+0.6215863,
+0.15158892,
+0.62589145,
+0.9849372,
+0.47261155,
+0.13879633,
+0.53436935,
+0.8684354,
+0.49009013,
+0.8487663,
+0.415954,
+0.49733603,
+0.81666195,
+0.50797117,
+0.19971132,
+0.5820248,
+0.9983189,
+0.27208292,
+0.67335844,
+0.27931952,
+0.42391694,
+0.9081789,
+7.466531e-2,
+5.3013563e-2,
+0.2840109,
+0.4830655,
+0.1756686,
+0.62167895,
+0.89717495,
+0.19109178,
+0.78958845,
+1.543045e-2,
+5.0975323e-2,
+0.21466875,
+0.4129461,
+0.289948,
+0.7271167,
+0.99582183,
+6.0527444e-2,
+0.75902903,
+0.6639817,
+0.8994356,
+2.9090405e-2,
+0.3309772,
+0.8311074,
+0.27760005,
+1.6489744e-2,
+4.7184825e-2,
+6.268692e-2,
+0.37376666,
+0.9638035,
+0.80776775,
+0.690861,
+0.6061044,
+0.6701783,
+0.8412647,
+0.5805452,
+0.41863844,
+0.5514518,
+0.5801554,
+9.124398e-2,
+0.737221,
+0.24314034,
+0.74114823,
+0.32066846,
+1.3154507e-2,
+0.50678635,
+0.5137007,
+0.551865,
+0.69038117,
+0.61931777,
+0.70399594,
+0.9727828,
+0.20246375,
+0.85520244,
+5.0735712e-2,
+0.9930371,
+0.30815053,
+0.22076559,
+0.32370973,
+0.17521977,
+0.43994308,
+0.9906125,
+0.5326147,
+0.66132426,
+7.4525714e-2,
+1.51029825e-2,
+3.151095e-2,
+0.8795854,
+0.1700325,
+0.2575338,
+0.75477123,
+0.8775394,
+0.53388363,
+0.7104862,
+0.13311696,
+0.73177624,
+0.19375706,
+0.88381815,
+0.75322676,
+0.6076188,
+0.48591495,
+0.53411245,
+0.7115935,
+0.48955488,
+0.59558845,
+0.9807129,
+0.8284396,
+0.95038444,
+0.59036994,
+0.52881944,
+0.9948325,
+0.49523282,
+0.7008028,
+0.78729224,
+0.9902679,
+0.5339551,
+4.0822983e-2,
+0.37561977,
+0.5063989,
+0.28711128,
+0.32709387,
+0.8450576,
+0.64256006,
+0.906507,
+4.6909094e-2,
+0.637144,
+0.16923797,
+0.7377299,
+0.30585575,
+0.3570485,
+0.98593795,
+0.5611129,
+7.524538e-2,
+0.8517368,
+0.74607563,
+0.4913547,
+0.83715105,
+0.59740007,
+0.9108657,
+0.14394355,
+8.5148096e-2,
+0.582165,
+2.120018e-3,
+0.705053,
+0.97463274,
+0.58965266,
+0.6484089,
+0.79429245,
+0.7779026,
+0.3388164,
+0.35976696,
+9.1204405e-2,
+0.6134187,
+0.8495743,
+0.9256909,
+0.8651266,
+0.19850588,
+0.7568064,
+0.44688892,
+0.89375556,
+0.28960586,
+0.5118885,
+0.39481246,
+0.23119497,
+0.99098516,
+0.6882521,
+2.3570538e-2,
+0.46816385,
+0.43301296,
+5.7090998e-2,
+0.7131885,
+0.49999893,
+0.8016077,
+0.6981158,
+0.7528713,
+0.50114954,
+0.86821973,
+0.88443303,
+0.4772892,
+0.80758643,
+0.38138628,
+8.940506e-2,
+0.6924608,
+0.52786016,
+0.802331,
+0.98923236,
+0.17653704,
+0.68997073,
+0.1820991,
+0.64604473,
+0.38469362,
+0.8968754,
+0.15813422,
+0.868925,
+4.019952e-2,
+0.25560212,
+0.3128089,
+0.41993904,
+0.948833,
+0.826739,
+0.10151219,
+0.787004,
+0.9594268,
+0.14901423,
+0.1414566,
+0.24321175,
+9.9901915e-2,
+0.8921989,
+0.32741654,
+0.6458428,
+0.16487455,
+0.12096548,
+0.48751688,
+5.245471e-2,
+0.71360433,
+0.94619334,
+0.2514913,
+0.31235778,
+0.3618456,
+0.57202005,
+8.347988e-3,
+0.1945982,
+0.6956324,
+0.9895966,
+0.87327766,
+0.26017582,
+0.47406793,
+0.9971419,
+0.5826107,
+0.17589438,
+0.89086056,
+0.18030643,
+0.4091003,
+0.39576983,
+0.38442576,
+0.13684058,
+8.986688e-2,
+0.17313194,
+0.7679503,
+0.36211073,
+0.82255757,
+0.9100534,
+0.6802888,
+0.11309266,
+0.47404623,
+0.8113966,
+0.42064667,
+0.42901254,
+0.14277196,
+0.1055603,
+0.57029915,
+0.5498085,
+0.71666944,
+0.13909936,
+6.697273e-2,
+0.30388212,
+0.84999645,
+0.61905026,
+0.80875367,
+0.7628211,
+0.7617794,
+0.24128532,
+0.8171586,
+0.7165446,
+0.29046047,
+5.484104e-3,
+0.29707146,
+0.45159855,
+0.8470775,
+0.9105661,
+0.6157371,
+0.24743724,
+0.26728547,
+0.3399787,
+0.30999124,
+0.27707434,
+0.26195288,
+0.57788026,
+0.98340875,
+0.7114443,
+0.10142648,
+0.8840177,
+0.3299948,
+0.27686334,
+0.66194046,
+0.5837232,
+0.34851027,
+0.61612344,
+0.60064816,
+2.1667004e-2,
+0.51634264,
+0.5840348,
+0.54137635,
+0.93811476,
+0.88630515,
+0.35464,
+0.659227,
+0.74290437,
+0.6366904,
+0.12916958,
+0.19237244,
+4.462242e-3,
+8.1073284e-2,
+0.847996,
+0.8305576,
+9.401786e-2,
+0.17688239,
+0.36067092,
+0.56400156,
+0.4449073,
+0.80550474,
+0.94339013,
+0.2624426,
+0.43337846,
+0.79860497,
+0.9083978,
+7.7695847e-3,
+0.28432655,
+0.8844242,
+0.43196678,
+0.5022042,
+0.71939504,
+0.87787163,
+2.2063255e-2,
+0.5932679,
+0.88764143,
+0.6470535,
+2.7034998e-2,
+0.72032475,
+0.19539523,
+0.77757996,
+0.37001276,
+0.84153897,
+0.6239723,
+0.3756181,
+6.846321e-2,
+0.8378935,
+0.59974074,
+0.68847823,
+0.7352172,
+1.07290745e-2,
+0.5101199,
+0.85353947,
+0.14964247,
+0.5860499,
+0.17709386,
+0.89342284,
+0.17894697,
+0.5400078,
+0.4210199,
+0.23370409,
+0.5818304,
+0.68282104,
+5.1081896e-2,
+0.9042077,
+0.3783505,
+0.44932246,
+0.6200993,
+0.18954074,
+0.4474795,
+0.31125343,
+0.8426063,
+6.332576e-2,
+0.8104075,
+0.8648635,
+0.44148827,
+0.84095,
+0.79439354,
+0.5551748,
+0.687835,
+0.118896365,
+0.4412912,
+0.57976437,
+0.6679896,
+0.30952072,
+0.35373104,
+0.18037248,
+9.540319e-3,
+0.48488736,
+0.1673789,
+0.73954326,
+0.56652427,
+0.49777925,
+0.5246444,
+0.6702163,
+0.87621975,
+0.359416,
+0.832193,
+0.18441534,
+0.20517778,
+0.32071996,
+0.65496826,
+3.7642956e-2,
+0.5331861,
+0.29038882,
+0.35165787,
+0.655563,
+0.7891048,
+0.14961207,
+1.6696453e-3,
+0.47526348,
+0.82897127,
+4.0933132e-2,
+0.24862742,
+0.44936025,
+0.2355707,
+0.13713741,
+0.7814115,
+0.80927956,
+0.583858,
+0.7193563,
+0.19353557,
+0.36663485,
+0.107114315,
+0.72664094,
+0.121150136,
+0.6676494,
+0.3600223,
+0.90352046,
+0.9873058,
+0.8213589,
+0.4037695,
+0.42661357,
+0.8075288,
+0.49739814,
+0.708357,
+0.89534307,
+2.7906299e-2,
+0.5197699,
+0.5873811,
+0.37502038,
+0.25809133,
+0.41655612,
+0.35278225,
+0.16273963,
+0.66940236,
+0.97849786,
+0.28304625,
+0.6673634,
+0.19332111,
+0.7478994,
+0.59783196,
+7.6501966e-2,
+0.32878637,
+0.5024115,
+0.7220932,
+0.8336895,
+0.56268775,
+0.89503884,
+0.9931685,
+0.3670969,
+0.6999072,
+0.77585983,
+0.31907177,
+0.76584256,
+4.325044e-2,
+0.29987824,
+0.89478886,
+0.21245062,
+0.2749796,
+0.27403784,
+0.12384033,
+8.77223e-2,
+0.6968431,
+0.41428828,
+0.86889815,
+0.93862987,
+0.28137636,
+0.4471743,
+0.2681458,
+0.16012955,
+0.62948954,
+0.7444658,
+0.57012916,
+0.10132849,
+0.8278511,
+0.19847322,
+0.50814533,
+0.62132853,
+0.18225956,
+0.16162908,
+0.43761563,
+0.10031223,
+0.75076735,
+0.75551176,
+0.5453377,
+0.5066473,
+0.42767167,
+0.5992305,
+0.9446988,
+0.41565955,
+0.9331987,
+0.9897334,
+0.89694524,
+0.6788764,
+0.85561335,
+0.6666684,
+0.80166984,
+0.40720224,
+0.86944854,
+0.92634535,
+0.27878547,
+0.8053527,
+0.6522385,
+0.5152416,
+0.17939234,
+0.24954629,
+0.6818764,
+0.7267182,
+0.36313987,
+9.25622e-2,
+0.84685767,
+0.4344505,
+0.692098,
+0.34008884,
+5.9524536e-2,
+3.827691e-2,
+0.9333053,
+0.2090958,
+0.5924697,
+0.61903036,
+0.30183077,
+0.4231342,
+0.49257803,
+0.83910036,
+0.43436274,
+0.9565089,
+0.2666788,
+4.047084e-2,
+0.41260076,
+0.84976804,
+0.9851905,
+0.62259483,
+0.8959986,
+0.31737566,
+0.3398435,
+0.27567053,
+0.9734041,
+0.77031887,
+0.8473544,
+0.3174919,
+0.58769834,
+0.34807217,
+0.5406821,
+0.8544055,
+0.62600684,
+0.33839083,
+0.9849396,
+1.2942314e-2,
+0.1475277,
+0.4787073,
+0.54596233,
+0.1752423,
+0.77059823,
+9.041047e-2,
+0.2985853,
+0.23247159,
+0.23486897,
+0.23700523,
+0.47728157,
+0.49480152,
+0.72553325,
+0.19682777,
+0.88427216,
+6.551409e-2,
+0.6175699,
+0.8277023,
+0.2039113,
+0.9962605,
+0.9707756,
+9.154308e-2,
+0.123990774,
+0.41500008,
+0.45899975,
+0.7904736,
+0.64120626,
+0.29223895,
+0.48712683,
+0.16071367,
+0.7799654,
+0.7871841,
+0.34515953,
+0.24462819,
+0.7682588,
+0.45865273,
+0.97019315,
+0.52276766,
+1.2032986e-3,
+0.2552061,
+0.35652947,
+1.6108036e-2,
+0.22363806,
+6.0125113e-2,
+0.6667728,
+0.13875532,
+0.48999977,
+0.21847558,
+0.12436485,
+0.6117995,
+0.96883655,
+0.7170677,
+0.7637136,
+0.50507927,
+0.88803625,
+0.6205857,
+0.22137904,
+0.97533226,
+0.9804591,
+0.97967625,
+7.506108e-2,
+0.27170992,
+0.8107689,
+0.76826,
+0.8306192,
+0.77724457,
+0.80831075,
+0.76732874,
+8.157933e-2,
+0.3223102,
+0.8257649,
+0.973259,
+7.5988054e-2,
+0.5415702,
+0.25776172,
+0.76154125,
+0.91835296,
+0.837816,
+0.68698716,
+0.99165297,
+0.36068523,
+0.53661215,
+0.94795275,
+0.24835014,
+0.53556097,
+0.7917472,
+0.17282593,
+0.44980502,
+0.8159183,
+0.2109356,
+8.1673145e-2,
+0.9069164,
+0.8804593,
+0.38818514,
+0.42148066,
+0.84182596,
+0.85033655,
+0.11290777,
+0.9591603,
+0.9008815,
+0.12636256,
+0.62351793,
+0.5625932,
+0.40783405,
+0.9398462,
+0.9048507,
+0.70350707,
+0.5732843,
+0.9578413,
+0.471671,
+0.80402017,
+0.23877287,
+2.8808951e-2,
+0.79105496,
+0.39669204,
+0.5252528,
+5.068612e-2,
+0.17306566,
+0.33026814,
+0.8069451,
+0.774801,
+0.29274237,
+0.9410742,
+0.24736834,
+0.45892864,
+0.32286835,
+9.423089e-2,
+0.23926187,
+0.938661,
+0.11605501,
+0.7519337,
+0.44994712,
+0.8859633,
+0.79223514,
+0.7983874,
+7.165241e-2,
+0.9462296,
+0.8046231,
+0.9736757,
+0.9235935,
+0.85922825,
+0.14425218,
+0.96055603,
+0.4746909,
+0.3689847,
+0.3266207,
+0.6575446,
+0.90298265,
+0.612165,
+0.94542164,
+4.7265768e-2,
+0.9178722,
+0.7290449,
+0.7926531,
+0.8426634,
+0.79898036,
+1.8381119e-2,
+5.914831e-2,
+0.5302744,
+0.3689797,
+0.4085008,
+8.593702e-2,
+0.8765965,
+2.9750824e-2,
+0.23264515,
+0.15577197,
+0.21319818,
+0.21833336,
+0.3431382,
+0.6172347,
+0.5659256,
+0.9447398,
+0.7262399,
+0.7598543,
+0.56384385,
+0.845103,
+0.4162705,
+0.13864326,
+0.7863791,
+0.13542509,
+0.6184137,
+0.2607739,
+0.15591526,
+0.77601504,
+0.76669025,
+0.56118643,
+1.807928e-2,
+0.31010872,
+0.8704659,
+0.98514426,
+0.40933478,
+0.1785686,
+0.48007095,
+8.039451e-2,
+3.796923e-2,
+0.8610754,
+0.9595243,
+0.9287634,
+7.802105e-2,
+0.8274702,
+0.6773733,
+0.97041106,
+0.2371938,
+0.7191273,
+0.36731863,
+0.6625139,
+0.3092258,
+0.47899795,
+2.6395798e-2,
+4.1056633e-2,
+0.7962029,
+0.5768552,
+0.5356126,
+1.3688564e-2,
+0.41969243,
+0.8178707,
+0.5881722,
+0.4442004,
+0.42637897,
+0.76563597,
+8.336306e-3,
+3.3709526e-2,
+0.53669834,
+0.53756106,
+0.31038988,
+0.41079557,
+0.39238024,
+0.24557912,
+9.8520994e-2,
+0.6807518,
+0.12773252,
+0.67073166,
+0.34699106,
+0.9979162,
+0.42680383,
+0.9087982,
+0.6900128,
+0.94652975,
+0.17221642,
+0.33502197,
+0.30609477,
+0.70375323,
+0.41938114,
+0.8668362,
+0.77143216,
+8.8229895e-2,
+0.18202114,
+0.21520734,
+0.10074675,
+0.38907886,
+5.9812307e-2,
+0.62150526,
+0.99084735,
+0.31110406,
+0.7914846,
+0.8661854,
+0.518523,
+0.6151075,
+0.9395801,
+0.4002422,
+0.35337317,
+0.40262416,
+0.7039368,
+0.935411,
+1.2230396e-2,
+0.6683055,
+0.11150932,
+5.5537343e-2,
+8.355498e-2,
+0.6007279,
+0.4403205,
+0.5811975,
+0.86318696,
+5.6501627e-2,
+0.23753202,
+0.9949539,
+0.64893156,
+0.90060663,
+0.14257383,
+0.8300431,
+0.37252688,
+0.18130136,
+0.20323014,
+0.4809363,
+0.8961161,
+0.23287201,
+0.43141174,
+0.3489914,
+0.51495457,
+0.8010473,
+0.23635447,
+0.54324985,
+0.69954085,
+0.48034823,
+0.68947554,
+0.77823305,
+0.7533914,
+0.24090028,
+0.8162971,
+0.46965337,
+0.59434736,
+0.1630373,
+0.6848186,
+1.57516e-2,
+0.8775939,
+0.99723464,
+0.4292655,
+0.47325504,
+0.8548535,
+0.4219792,
+0.7294735,
+0.77217937,
+0.8508531,
+0.117975116,
+0.36563516,
+0.37111998,
+0.3301561,
+6.940341e-2,
+0.5864358,
+0.113250256,
+0.67253065,
+0.8080728,
+0.44792616,
+0.34973896,
+0.25323582]
diff --git a/ghc/tests/numeric/arith009.hs b/ghc/tests/numeric/arith009.hs
new file mode 100644 (file)
index 0000000..949a11b
--- /dev/null
@@ -0,0 +1 @@
+-40
diff --git a/ghc/tests/numeric/arith010.hs b/ghc/tests/numeric/arith010.hs
new file mode 100644 (file)
index 0000000..846f76e
--- /dev/null
@@ -0,0 +1,11 @@
+--     Tests enumerations
+
+main = do
+       print [1..10]
+       print [10..1]           -- []
+       print [1,3..10]
+       print [10,8..1]
+       print ['a'..'f']
+       print ['f'..'a']        -- []
+       print ['a','c'..'m']
+       print ['m','l'..'a']
diff --git a/ghc/tests/numeric/array001.hs b/ghc/tests/numeric/array001.hs
new file mode 100644 (file)
index 0000000..005ba17
--- /dev/null
@@ -0,0 +1 @@
+array (1, 100) [(1, 1), (2, 2), (3, 6), (4, 24), (5, 120), (6, 720), (7, 5040), (8, 40320), (9, 362880), (10, 3628800), (11, 39916800), (12, 479001600), (13, 6227020800), (14, 87178291200), (15, 1307674368000), (16, 20922789888000), (17, 355687428096000), (18, 6402373705728000), (19, 121645100408832000), (20, 2432902008176640000), (21, 51090942171709440000), (22, 1124000727777607680000), (23, 25852016738884976640000), (24, 620448401733239439360000), (25, 15511210043330985984000000), (26, 403291461126605635584000000), (27, 10888869450418352160768000000), (28, 304888344611713860501504000000), (29, 8841761993739701954543616000000), (30, 265252859812191058636308480000000), (31, 8222838654177922817725562880000000), (32, 263130836933693530167218012160000000), (33, 8683317618811886495518194401280000000), (34, 295232799039604140847618609643520000000), (35, 10333147966386144929666651337523200000000), (36, 371993326789901217467999448150835200000000), (37, 13763753091226345046315979581580902400000000), (38, 523022617466601111760007224100074291200000000), (39, 20397882081197443358640281739902897356800000000), (40, 815915283247897734345611269596115894272000000000), (41, 33452526613163807108170062053440751665152000000000), (42, 1405006117752879898543142606244511569936384000000000), (43, 60415263063373835637355132068513997507264512000000000), (44, 2658271574788448768043625811014615890319638528000000000), (45, 119622220865480194561963161495657715064383733760000000000), (46, 5502622159812088949850305428800254892961651752960000000000), (47, 258623241511168180642964355153611979969197632389120000000000), (48, 12413915592536072670862289047373375038521486354677760000000000), (49, 608281864034267560872252163321295376887552831379210240000000000), (50, 30414093201713378043612608166064768844377641568960512000000000000), (51, 1551118753287382280224243016469303211063259720016986112000000000000), (52, 80658175170943878571660636856403766975289505440883277824000000000000), (53, 4274883284060025564298013753389399649690343788366813724672000000000000), (54, 230843697339241380472092742683027581083278564571807941132288000000000000), (55, 12696403353658275925965100847566516959580321051449436762275840000000000000), (56, 710998587804863451854045647463724949736497978881168458687447040000000000000), (57, 40526919504877216755680601905432322134980384796226602145184481280000000000000), (58, 2350561331282878571829474910515074683828862318181142924420699914240000000000000), (59, 138683118545689835737939019720389406345902876772687432540821294940160000000000000), (60, 8320987112741390144276341183223364380754172606361245952449277696409600000000000000), (61, 507580213877224798800856812176625227226004528988036003099405939480985600000000000000), (62, 31469973260387937525653122354950764088012280797258232192163168247821107200000000000000), (63, 1982608315404440064116146708361898137544773690227268628106279599612729753600000000000000), (64, 126886932185884164103433389335161480802865516174545192198801894375214704230400000000000000), (65, 8247650592082470666723170306785496252186258551345437492922123134388955774976000000000000000), (66, 544344939077443064003729240247842752644293064388798874532860126869671081148416000000000000000), (67, 36471110918188685288249859096605464427167635314049524593701628500267962436943872000000000000000), (68, 2480035542436830599600990418569171581047399201355367672371710738018221445712183296000000000000000), (69, 171122452428141311372468338881272839092270544893520369393648040923257279754140647424000000000000000), (70, 11978571669969891796072783721689098736458938142546425857555362864628009582789845319680000000000000000), (71, 850478588567862317521167644239926010288584608120796235886430763388588680378079017697280000000000000000), (72, 61234458376886086861524070385274672740778091784697328983823014963978384987221689274204160000000000000000), (73, 4470115461512684340891257138125051110076800700282905015819080092370422104067183317016903680000000000000000), (74, 330788544151938641225953028221253782145683251820934971170611926835411235700971565459250872320000000000000000), (75, 24809140811395398091946477116594033660926243886570122837795894512655842677572867409443815424000000000000000000), (76, 1885494701666050254987932260861146558230394535379329335672487982961844043495537923117729972224000000000000000000), (77, 145183092028285869634070784086308284983740379224208358846781574688061991349156420080065207861248000000000000000000), (78, 11324281178206297831457521158732046228731749579488251990048962825668835325234200766245086213177344000000000000000000), (79, 894618213078297528685144171539831652069808216779571907213868063227837990693501860533361810841010176000000000000000000), (80, 71569457046263802294811533723186532165584657342365752577109445058227039255480148842668944867280814080000000000000000000), (81, 5797126020747367985879734231578109105412357244731625958745865049716390179693892056256184534249745940480000000000000000000), (82, 475364333701284174842138206989404946643813294067993328617160934076743994734899148613007131808479167119360000000000000000000), (83, 39455239697206586511897471180120610571436503407643446275224357528369751562996629334879591940103770870906880000000000000000000), (84, 3314240134565353266999387579130131288000666286242049487118846032383059131291716864129885722968716753156177920000000000000000000), (85, 281710411438055027694947944226061159480056634330574206405101912752560026159795933451040286452340924018275123200000000000000000000), (86, 24227095383672732381765523203441259715284870552429381750838764496720162249742450276789464634901319465571660595200000000000000000000), (87, 2107757298379527717213600518699389595229783738061356212322972511214654115727593174080683423236414793504734471782400000000000000000000), (88, 185482642257398439114796845645546284380220968949399346684421580986889562184028199319100141244804501828416633516851200000000000000000000), (89, 16507955160908461081216919262453619309839666236496541854913520707833171034378509739399912570787600662729080382999756800000000000000000000), (90, 1485715964481761497309522733620825737885569961284688766942216863704985393094065876545992131370884059645617234469978112000000000000000000000), (91, 135200152767840296255166568759495142147586866476906677791741734597153670771559994765685283954750449427751168336768008192000000000000000000000), (92, 12438414054641307255475324325873553077577991715875414356840239582938137710983519518443046123837041347353107486982656753664000000000000000000000), (93, 1156772507081641574759205162306240436214753229576413535186142281213246807121467315215203289516844845303838996289387078090752000000000000000000000), (94, 108736615665674308027365285256786601004186803580182872307497374434045199869417927630229109214583415458560865651202385340530688000000000000000000000), (95, 10329978488239059262599702099394727095397746340117372869212250571234293987594703124871765375385424468563282236864226607350415360000000000000000000000), (96, 991677934870949689209571401541893801158183648651267795444376054838492222809091499987689476037000748982075094738965754305639874560000000000000000000000), (97, 96192759682482119853328425949563698712343813919172976158104477319333745612481875498805879175589072651261284189679678167647067832320000000000000000000000), (98, 9426890448883247745626185743057242473809693764078951663494238777294707070023223798882976159207729119823605850588608460429412647567360000000000000000000000), (99, 933262154439441526816992388562667004907159682643816214685929638952175999932299156089414639761565182862536979208272237582511852109168640000000000000000000000), (100, 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000)]
diff --git a/ghc/tests/numeric/array002.hs b/ghc/tests/numeric/array002.hs
new file mode 100644 (file)
index 0000000..cc8c836
--- /dev/null
@@ -0,0 +1 @@
+array (102, 113) [(102, 6.3661977236758138e-1), (103, 1.9098593171027440), (104, 7.6394372684109761), (105, 38.197186342054884), (106, 229.18311805232929), (107, 1604.2818263663050), (108, 12834.254610930440), (109, 115508.29149837396), (110, 1155082.9149837396), (111, 12705912.064821135), (112, 152470944.77785364), (113, 1982122282.1120973)]