#!/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