summaryrefslogblamecommitdiff
path: root/apps/examples/bas/tests/test24.bas
blob: 40037cdcd7ebd133bab6712018eb323bdd3f4c6a (plain) (tree)



































                                                          
#!/bin/sh

echo -n $0: 'Matrix multiplication... '

cat >test.bas <<'eof'
10 dim b(2,3),c(3,2)
20 for i=1 to 2 : for j=1 to 3 : read b(i,j) : next : next
30 for i=1 to 3 : for j=1 to 2 : read c(i,j) : next : next
40 mat a=b*c
50 mat print b,c,a
60 data 1,2,3,3,2,1
70 data 1,2,2,1,3,3
eof

cat >test.ref <<'eof'
 1             2             3            
 3             2             1            

 1             2            
 2             1            
 3             3            

 14            13           
 10            11           
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