From: ceriel <none@none>
Date: Wed, 25 Sep 1991 09:11:14 +0000 (+0000)
Subject: Added FLOATS macro and fixed array bound error
X-Git-Tag: release-5-5~828
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=567a619003120960aeaecc8982981fb8f995a62b;p=ack.git

Added FLOATS macro and fixed array bound error
---

diff --git a/lang/basic/test/Makefile b/lang/basic/test/Makefile
index 13aafc11f..40029b7ea 100644
--- 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 b28ab06bb..8cc3999be 100644
--- 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 5c854b991..1bbcaf39b 100755
--- 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