> < ^ Date: Wed, 09 Dec 1992 19:03:53 +0100
> < ^ From: Dawn Endico <dawn@math.wayne.edu >
< ^ Subject: Re: Do standard test routines exist?

Martin,

Thanks for posting combinat.tst. It turned out to be *very* useful.

On a Sparcstation SLC with 12mb ram, 80 mb swap, SunOS 4.1.2 running
the pre-compiled version of GAPv3r1 I got 12477 GAPstones.

On a Sparcstation IPX with 64mb ram, 180 mb swap, SunOS 4.1.2 running
the pre-compiled version of GAPv3r1 I got 23782 GAPstones.

The third machine is an Amdahl 5890-300E with 55mb ram, 100 mb virtual
memory (that we can use). The OS is UTS, Amdahl's Sys. 5 Rel 3.4
product. Although the program seemed to compile normally, the GAP
program it created seems to be rather crippled :-( The good news is
that the test reported a new world record of over 2,000,000 GAPstones
;-). The bad news is that several of the tests failed (looks like
overflow errors?).

I've included the output of "make usg" in case the error messages are
of any help. If you have any ideas how I can fix this, please let me
know. On the other hand, this isn't a terribly high priority since
this is only a test system and will be taken way on December 24.
However, it would be nice to get it going to help us evaluate this
system.

This test program turned out to very useful. I suggest that you include
it in the next release so that it is automatically run by make when
GAP is compiled. The distributions of TeX, GCC and perl all include
such tests and are useful for weeding out many errors.

Thanks for your help,

Dawn

------ error messages from combinat 3.1 test -------
gap> ReadTest("combinat.tst");
[  ]
#>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ]
[  ]
#>[ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ]
Error, Range: <high> must be an integer at
for <var>  in [ 1 .. n - 1 ] ... in
Bell( n ) called from
fun( i ) called from
List( [ 0 .. 10 ], function ( n ) ... end ) called from
main loop
#>[ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, 115975 ]
[ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, -19795712349051/2835 ]
#>[ 1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147, 115975 ]
[  ]
#>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ]
[  ]
#>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ]
[  ]
#>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ]
[  ]
#>[ 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0 ]
189716653967246317102219841803592079875786289982825807408418883233113779617440\
7638/9280784638125
#>170886257768137628374668205554120607567311094075812403938286
27692248700036124567107335014580233
#>9
5321157941168254033546471297717501542400437583349037/5
#>265
356811921265724728180664990332289807596650505
#>9
165641909854716711007828196609624895704068987930461438638163658455121944
#>24
Error, Range: <high> must be an integer at
for <var>  in [ 1 .. n - 1 ] ... in
Bell( Size( set ) ) called from
NrPartitionsSet( [  ] ) called from
Bell( n ) called from
fun( i ) called from
List( [ 0 .. 10 ], function ( n ) ... end ) called from
main loop
#>1
25441820363276742883607945813580428205317908552744971
#>11
103445980859711697995668758589333890877387084633322583554786870805163715674586\
382283216930470467004063923134244997005088911195688883980350143867868650519199\
255463162359189104634221737705197994835522875243609678612273035836031000540847\
879370061132590904417753208251770796456301698992792567377381177431998746706824\
895700578698097589340459891022789690549060482923693175349457995902190264395485\
270884028375345458096994745360117317857209769253571592337759885481666800589264\
114458182334885045235011330071469352561430714562360768501935580707455023840389\
412014421805463889657468591001103387599424033354742851050553023446594897501289\
805860063896293850725801219437039364643073739058210980320234306208036491802816\
400811239008992346941826854043729985019085586118717030222680381808819917575335\
266682473085849077472986231119938203834090754532250687228265588621311429507200\
8970908708100940
#>190569292
[ 0, 1, 1, -536870909, -1073741819, 288230374541099019, 864691119865200661,
  -154742519898652116263108565, -618970009842857398757228459,
  85672934994540862368995528128069803, 415383742493086060260628694699082069 ]
#>[ 0, 1, 1, 3, 5, 11, 21, 43, 85, 171, 341 ]
[ 2, 1, -1073741819, -1610612729, 576460745860972561, 1441151867336785951,
  -309485022215251278681866175, -1083197527457178791815675777,
  171345791379889220316510857174450433, 750286880274547222578878952931066367,
  -89202977060861102344628131533586030537997311 ]
#>[ 2, 1, 5, 7, 17, 31, 65, 127, 257, 511, 1025 ]
[ 0, 1, 1, -536870910, -1073741821, 288230375614840837, 864691123086426120,
  -154742511540111934077534195, -618970013301621882512998379,
  85672896000034073954266207567740962, 415383745587936126768738156656197687 ]
#>[ 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55 ]
false
#>true
[ 0, 1, 1, -536870910, -1073741821, 288230375614840837, 864691123086426120,
  -154742511540111934077534195, -618970013301621882512998379,
  85672896000034073954266207567740962, 415383745587936126768738156656197687,
  -44601488740718563110999340270705688317001639,
  -267608952933114634820076485700250203139866480,
  71835732982839338679231443703812501888996891407941865,
  167616706829394533669627392795558287289818369897791865,
  -12855503611769392947089542050797870482256065104344334993456542,
  -106057907535834706391533870608303841267974783539608212457126949,
  891201476416135891846766331438310389883836271092900458793881427645564477 ]
#>[ 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597 ]
135738349279776867027993904418466224053009993148602642567552723657351343772050\
216142505137454048707280279205807983451045439248675629354398237452629374074999\
387095541931700660069064754600737235826430110846163438878465147490822924468131\
794379119150986537740545913207487860819988017476575921092763352224767132851986\
984649114742559091240753504448640651982014011262456107282151921925049918047392\
143241554042772010299027904456756459331779796377958748201619854923481717346701\
177624836072109803555466915318502006112521888216765742677893133260546747425553\
271794753853591734213433468782739620386169784293875461990168427739198435938937\
580292726566640987556414084576638582982585882053295629811282197110939351331852\
717761929302407462864916633932854332927570571513984768151268014774548511974383\
979921068825388572990598424800592056589172755164757584549543765463184903323690\
868098059654307199789224244346249880706650473563360259164152962912803580059659\
465596511670519117115080459110785437458795994689653444565981628973066887033138\
380388046974681096824052269835725672859954153880725022286303832048082319624754\
495333839165255114817076472223045099550497553254468841586926970329925276617785\
017576075438313828182274519999907261916065702046763117743626170989518955297491\
619789760254956948452005735806820414508635353825370782568114761534754545332734\
781597769653717123352680772212111499161397756942231762884472367431825474895333\
18533686861432334192786548186464749568175610313288746114
#>1751455877444438095408940282208383549115781784912085789506677971125378
[ 1, 536870911/2, 1/6, 0, 536870911/30, 0, 1/42, 0, 536870911/30, 0, 5/66, 0,
  536870221/2730, 0, 7/6 ]
#>[ 1, -1/2, 1/6, 0, -1/30, 0, 1/42, 0, -1/30, 0, 5/66, 0, -691/2730, 0, 7/6 ]
802253496557036953319516546081147151131269605994715702835087291317704257795261\
574992461094736310619798197331947999519662834583957107667389224105531454507586\
851169348493282576133837315191806493255472708172907606845613681544962381267561\
842305305600940841066484533313652248239845963584155602532913747676128347430418\
667046313619438157293336987448546888989998914845819745531165082612272808525450\
9733/62730
#>-4603784299479457646935574969019046849794257872751288919656867/230010
combinat  3.1   1992/04/29  2473498 GAPstones
Syntax error: warning, undefined global variable in combinat.tst line 233
if IsBound( GAPSTONES )  then Add( GAPSTONES, QuoInt(700000000,time) );  fi;
                      ^
%
------ error messages from compiling GAP -------
% make usg
        ln system.usg system.c
        cc -O -c gap.c
gap.c: 448: warning: hdCall set but not used
gap.c: 887: warning: hdCall set but not used
        cc -O -c system.c
system.c: 890: warning: invariant comparison

Base registers used - 3/0 for text/literals for system.c

        cc -O -c gasman.c
        cc -O -c scanner.c
        cc -O -c idents.c
        cc -O -c read.c
        cc -O -c eval.c
eval.c: 762: warning: hdR set but not used
eval.c: 762: warning: hdL set but not used
eval.c: 779: warning: hdR set but not used
eval.c: 779: warning: hdL set but not used
        cc -O -c integer.c
        cc -O -c rational.c
        cc -O -c cyclotom.c
        cc -O -c finfield.c
        cc -O -c unknown.c
unknown.c: 191: warning: hdL set but not used
        cc -O -c permutat.c
        cc -O -c word.c
word.c: 2465: warning: j unused
        cc -O -c agcollec.c
agcollec.c: 1624: warning: nr set but not used
agcollec.c: 1701: warning: nr set but not used
agcollec.c: 1837: warning: nr set but not used
        cc -O -c aggroup.c
        cc -O -c pcpresen.c
        cc -O -c list.c

Base registers used - 2/0 for text/literals for list.c

        cc -O -c set.c
set.c: 167: warning: hdSet set but not used
        cc -O -c vector.c
vector.c: 197: warning: hdVec set but not used

Base registers used - 2/0 for text/literals for vector.c

        cc -O -c blister.c
blister.c: 701: warning: ptList unused

Base registers used - 2/0 for text/literals for blister.c

        cc -O -c range.c
        cc -O -c record.c
record.c: 1161: warning: hdLt unused
        cc -O -c string.c
        cc -O -c statemen.c
        cc -O -c function.c
function.c: 734: warning: hdFun set but not used

Base registers used - 2/0 for text/literals for function.c

cc -o gap gap.o system.o gasman.o scanner.o idents.o read.o \
eval.o integer.o rational.o cyclotom.o finfield.o unknown.o \
permutat.o word.o agcollec.o aggroup.o pcpresen.o \
list.o set.o vector.o blister.o range.o \
record.o string.o statemen.o function.o

~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
Dawn Endico                                   dawn@math.wayne.edu
Mathematics Department              ... umich!wsu-cs!mathsun!dawn
Wayne State University                              (313)577-3183
1150 FAB Detroit, MI 48202                           DON'T PANIC!

> < [top]