Added FLOATS macro and fixed array bound error

diff --git a/lang/basic/test/Makefile b/lang/basic/test/Makefile
index 13aafc1..40029b7 100644 (file)
--- a/lang/basic/test/Makefile
+++ b/lang/basic/test/Makefile
@@ -6,7 +6,10 @@ SRC=   bull.b buzzword.b checker.b creator.b grafiek.b gunner.b learn.b\
        test24.b test25.b test26.b test27.b test28.b test29.b test30.b\
        test31.b test32.b test33.b test34.b test35.b
 
+#FLOATS = -fp
+FLOATS =
+
 head:  
-       for i in $(SRC) ; do runcmp $$i ; done
+       for i in $(SRC) ; do fp=$(FLOATS); export fp; runcmp $$i ; done
 clean:
        rm -f *.b.[rx] *.[dekmos]

diff --git a/lang/basic/test/checker.b b/lang/basic/test/checker.b
index b28ab06..8cc3999 100644 (file)
--- a/lang/basic/test/checker.b
+++ b/lang/basic/test/checker.b
@@ -22,7 +22,7 @@
 2200 rem
 2300 l=-1*l
 2400 for x=1to 8
-2500 for y=-1to8
+2500 for y=1to8
 2600 if s(x,y)=0 then 3500
 2700 if g>0 then 3000
 2800 if s(x,y)>0 then 3500

diff --git a/lang/basic/test/runcmp b/lang/basic/test/runcmp
index 5c854b9..1bbcaf3 100755 (executable)
--- a/lang/basic/test/runcmp
+++ b/lang/basic/test/runcmp
@@ -1,5 +1,5 @@
 echo -n $1 "  "
-if abc - -o $1.x -fp $1 
+if abc - -o $1.x $fp $1 
 then
        if $1.x >$1.r
        then :; else