1 files changed, 50 insertions, 0 deletions
diff --git a/apps/examples/bas/tests/test25.bas b/apps/examples/bas/tests/test25.bas
new file mode 100644
index 000000000..07132f8c5
--- /dev/null
+++ b/apps/examples/bas/tests/test25.bas
@@ -0,0 +1,50 @@
+#!/bin/sh
+
+echo -n $0: 'Matrix scalar multiplication... '
+
+cat >test.bas <<'eof'
+10 dim a(3,3)
+20 for i=1 to 3 : for j=1 to 3 : read a(i,j) : next : next
+30 mat print a
+40 mat a=(3)*a
+45 print
+50 mat print a
+60 data 1,2,3,4,5,6,7,8,9
+80 dim inch_array(5,1),cm_array(5,1)
+90 mat read inch_array
+100 data 1,12,36,100,39.37 
+110 mat print inch_array
+120 mat cm_array=(2.54)*inch_array
+130 mat print cm_array
+eof
+
+cat >test.ref <<'eof'
+ 1             2             3            
+ 4             5             6            
+ 7             8             9            
+
+ 3             6             9            
+ 12            15            18           
+ 21            24            27           
+ 1            
+ 12           
+ 36           
+ 100          
+ 39.37        
+ 2.54         
+ 30.48        
+ 91.44        
+ 254          
+ 99.9998      
+eof
+
+sh ./test/runbas test.bas >test.data
+
+if cmp test.ref test.data
+then
+  rm -f test.*
+  echo passed
+else
+  echo failed
+  exit 1
+fi