# HG changeset patch
# User jwe
# Date 1136507046 0
# Node ID 1ad66ea35fe513079308c4475e7ad6349da4b5b1
# Parent  f812a0680d058cf56feba6d2d2d597b9b183a241
[project @ 2006-01-06 00:24:05 by jwe]

diff -r f812a0680d05 -r 1ad66ea35fe5 ChangeLog
--- a/ChangeLog	Fri Jan 06 00:14:42 2006 +0000
+++ b/ChangeLog	Fri Jan 06 00:24:06 2006 +0000
@@ -1,5 +1,8 @@
 2005-12-14  David Bateman  <dbateman@free.fr>
 
+	* Makeconf.in: Remove OCTAVE_PROG_RUNTEST.
+	* alocal.m4: Remove OCTAVE_PROG_RUNTEST.
+
 	* Makeconf.in: New tests of regex and pcre.
 
 2005-12-13  John W. Eaton  <jwe@octave.org>
diff -r f812a0680d05 -r 1ad66ea35fe5 aclocal.m4
--- a/aclocal.m4	Fri Jan 06 00:14:42 2006 +0000
+++ b/aclocal.m4	Fri Jan 06 00:24:06 2006 +0000
@@ -535,24 +535,6 @@
 AC_DEFINE_UNQUOTED(GNUPLOT_HAS_FRAMES, $GNUPLOT_HAS_FRAMES, [Define if your gnuplot program supports multiple plot windows.])
 ])
 dnl
-dnl Is DejaGNU installed?
-dnl
-dnl OCTAVE_PROG_RUNTEST
-AC_DEFUN(OCTAVE_PROG_RUNTEST,
-[if test "$cross_compiling" = yes; then
-  RUNTEST=runtest
-  AC_MSG_RESULT(assuming $RUNTEST exists on $canonical_host_type host)
-  AC_SUBST(RUNTEST)
-else
-  AC_CHECK_PROG(RUNTEST, runtest, runtest, [])
-  if test -z "$RUNTEST"; then
-    warn_runtest="I didn't find runtest -- install DejaGNU if you want to run \`make check'"
-    AC_MSG_WARN($warn_runtest)
-  fi
-  AC_SUBST(RUNTEST)
-fi
-])
-dnl
 dnl Is gperf installed?
 dnl
 dnl OCTAVE_PROG_GPERF
diff -r f812a0680d05 -r 1ad66ea35fe5 configure.in
--- a/configure.in	Fri Jan 06 00:14:42 2006 +0000
+++ b/configure.in	Fri Jan 06 00:24:06 2006 +0000
@@ -29,7 +29,7 @@
 EXTERN_CXXFLAGS="$CXXFLAGS"
 
 AC_INIT
-AC_REVISION($Revision: 1.494 $)
+AC_REVISION($Revision: 1.495 $)
 AC_PREREQ(2.57)
 AC_CONFIG_SRCDIR([src/octave.cc])
 AC_CONFIG_HEADER(config.h)
@@ -1544,7 +1544,6 @@
 AC_PROG_LN_S
 
 OCTAVE_PROG_NM
-OCTAVE_PROG_RUNTEST
 
 AC_PROG_INSTALL
 INSTALL_SCRIPT='${INSTALL}'
@@ -1892,11 +1891,6 @@
   warn_msg_printed=true
 fi
 
-if test -n "$warn_runtest"; then
-  AC_MSG_WARN($warn_runtest)
-  warn_msg_printed=true
-fi
-
 if test -n "$warn_umfpack"; then
   AC_MSG_WARN($warn_umfpack)
   warn_msg_printed=true
diff -r f812a0680d05 -r 1ad66ea35fe5 test/ChangeLog
--- a/test/ChangeLog	Fri Jan 06 00:14:42 2006 +0000
+++ b/test/ChangeLog	Fri Jan 06 00:24:06 2006 +0000
@@ -1,3 +1,31 @@
+2005-12-14  David Bateman  <dbateman@free.fr>
+
+	* build_sparse_tests.sh: New script to build sparse matrix tests.
+	* fntests.m: New script to run the octave test code, with "make check".
+	* Makefile.in (DISTDIRS): Delete.
+	(dist): Simplify.
+	(OCTAVE_SCRIPT_PATH): Include . and $(srcdir).
+	(check): Run tests with fntest.m instead of runtest.
+	(test_sparse.m): New target.
+	(clean): Remove fntests.log instead of octave.log and octave.sum.
+	
+	* tests/test_args.m, tests/test_infnan.m, tests/test_set.m,
+	tests/test_arith.m, tests/test_io.m, tests/test_signal.m,
+	tests/test_audio.m, tests/test_linalg.m, tests/test_sparse.m,
+	tests/test_contin.m, tests/test_logical-wfi-f.m, tests/test_stats.m,
+	tests/test_control.m, tests/test_logical-wfi-t.m, tests/test_string.m,
+	tests/test_diffeq.m, tests/test_matrix.m, tests/test_struct.m,
+	tests/test_error.m, tests/test_nonlin.m, tests/test_switch.m,
+	tests/test_eval-catch.m, tests/test_number.m, tests/test_system.m,
+	tests/test_eval.m, tests/test_optim.m, tests/test_transpose.m,
+	tests/test_for.m, tests/test_plot.m, tests/test_try.m,
+	tests/test_global.m, tests/test_poly.m, tests/test_unix.m,
+	tests/test_if.m, tests/test_prefer.m, tests/test_unwind.m,
+	tests/test_image.m, tests/test_quad.m, tests/test_while.m,
+	tests/test_index-wfi-f.m, tests/test_recursion.m,
+	tests/test_index-wfi-t.m, tests/test_return.m: Initial of conversion 
+	of DejaGnu tests to test/assert infrastructure.
+
 2005-05-11  John W. Eaton  <jwe@octave.org>
 
 	* config/unix.exp: Start Octave with -H.
diff -r f812a0680d05 -r 1ad66ea35fe5 test/Makefile.in
--- a/test/Makefile.in	Fri Jan 06 00:14:42 2006 +0000
+++ b/test/Makefile.in	Fri Jan 06 00:24:06 2006 +0000
@@ -14,15 +14,13 @@
 
 include $(TOPDIR)/Makeconf
 
-SOURCES =
+SOURCES = $(wildcard $(srcdir)/test_*.m)
 
-DISTFILES = Makefile.in $(SOURCES) ChangeLog
-
-SUBDIRS =
+DISTFILES = ChangeLog Makefile.in build_sparse_tests.sh fntests.m $(SOURCES)
 
 OCTAVE_BINARY = ../src/octave
 
-OCTAVE_SCRIPT_PATH = .:$(TOPDIR)/src//:$(srcdir)/../scripts//
+OCTAVE_SCRIPT_PATH = .//:$(TOPDIR)/src//:$(srcdir):$(srcdir)/../scripts//
 
 ifeq ($(SHARED_LIBS), true)
   OCTAVE_LD_LIBRARY_PATH = `pwd`/../src:`pwd`/../liboctave:`pwd`/../libcruft
@@ -34,25 +32,16 @@
   SET_LD_LIBRARY_PATH = @library_path_var@="$(XLD_LIBRARY_PATH)"
 endif
 
-# Complete directory trees to distribute.
-DISTDIRS = config octave.test
-
 all: check
 .PHONY: all
 
-check:
-	@if test -n "$(RUNTEST)"; then \
-	  $(SET_LD_LIBRARY_PATH) $(RUNTEST) \
-	    OCTAVE="$(OCTAVE_BINARY)" \
-	    OCTAVE_SCRIPT_PATH="$(OCTAVE_SCRIPT_PATH)" \
-	    --tool octave --srcdir $(srcdir) $(RUNTEST_FLAGS) $(testsuite); \
-	else \
-	  echo "***"; \
-	  echo "*** Sorry, I can't run tests without DejaGnu"; \
-	  echo "***"; \
-	fi
+check: test_sparse.m
+	$(SET_LD_LIBRARY_PATH) $(OCTAVE_BINARY) \
+	  -f -q -H -p $(OCTAVE_SCRIPT_PATH) $(srcdir)/fntests.m $(srcdir)
+.PHONY: check
 
-.PHONY: check
+test_sparse.m: build_sparse_tests.sh
+	$(srcdir)/build_sparse_tests.sh
 
 install install-strip: all
 .PHONY: install install-strip
@@ -67,7 +56,7 @@
 	etags $(SOURCES)
 
 clean:
-	rm -f  octave.log octave.sum
+	rm -f fntests.log
 .PHONY: clean
 
 mostlyclean:
@@ -83,5 +72,4 @@
 
 dist:
 	ln $(DISTFILES) ../`cat ../.fname`/test
-	for dir in $(DISTDIRS); do ln -s ../../test/$$dir ../`cat ../.fname`/test; done
 .PHONY: dist
diff -r f812a0680d05 -r 1ad66ea35fe5 test/build_sparse_tests.sh
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/build_sparse_tests.sh	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,1066 @@
+#!/bin/sh
+
+# Some tests are commented out because they are known to be broken!
+# Search for "# fails"   
+
+# ./buildtest.sh preset
+#    creates test_sparse.m with preset tests.
+#    Use "test test_sparse" from octave to run the tests.
+#
+# ./buildtest.sh random
+#    Creates test_sprandom.m with randomly generated matrices.
+
+# buildtest.sh generates tests for real and complex sparse matrices.
+# Also, we want to run both fixed tests with known outputs (quick tests)
+# and longer tests with unknown outputs (thorough tests).  This requires
+# two sets of tests --- one which uses preset matrices and another which
+# uses randomly generated matrices.
+#
+# The tests are mostly identical for each case but the code is different,
+# so it is important that the tests be run on all cases.  Because our test 
+# harness doesn't have support for looping or macros (it is only needed
+# for new data types), but sh does, we use sh to generate inline versions of
+# the tests for each case.
+#
+# Our 'macros' use shared variables as parameters.  This allows us to
+# for example define A complex and include all the unary ops tests, 
+# then set A=real(A) and include all the unary ops tests.  Thus the
+# same tests work for real and complex.  For binary tests it is even
+# more complicated because we want full X sparse, sparse X full and
+# sparse X sparse tested.
+#
+# We use the following macros:
+#
+#    gen_section
+#        place a separator in the test file
+#    gen_function
+#        define the function definion
+#    helper gen_specific
+#        specific tests such as error handling and null input
+#    helper gen_eat_zeros
+#        make sure sparse-scalar ops which generate 0 work
+#    gen_specific_tests
+#        specific and eat zeros tests 
+#    helper gen_ordering_tests
+#        ordered comparison operators for real valued tests
+#    helper gen_sparsesparse_ordering_tests
+#        ordered comparison operators for real valued sparse-sparse tests
+#    helper gen_elementop_tests
+#        element-wise matrix binary operators, including scalar-matrix ops.
+#        horizontal/vertical concatenation are here as well.
+#    helper gen_sparsesparse_elementop_tests
+#        element-wise matrix binary operators, for sparse-sparse ops.
+#        horizontal/vertical concatenation are here as well.
+#    helper gen_divop_tests
+#        left and right matrix division operators of rectangular matrices. 
+#        Needs QR solvers
+#    helper gen_square_divop_tests
+#        left and right matrix division operators of square matrices. 
+#    helper gen_matrixop_tests
+#        rectangular matrix binary operators: * 
+#    helper gen_matrixdiag_tests
+#        Tests extract of diag and creation of diagonal matrices using
+#        diag and spdiags functions
+#    helper gen_matrixreshape_tests
+#        Test the reshape function on sparse matrices
+#    helper print_mapper_test
+#        sub-helper function of gen_mapper_tests to print individual tests
+#    helper gen_mapper_tests
+#        Tests all of the one argument mapper functions. There are a few
+#        specific tests that abs, real and imag return real values.
+#    helper gen_unaryop_tests
+#        functions and operators which transform a single matrix
+#    helper gen_save_tests
+#        Tests the load/save functionality for ascii/binary and hdf5 formats
+#    gen_scalar_tests
+#        element ops for real and complex scalar and sparse
+#    gen_rectangular_tests
+#        unary, element, and matrix tests for a and full/sparse b
+#    gen_square_tests
+#        operations which require square matrices: lu, inv, \
+#        A square non-singular matrix is defined from the rectangular
+#        inputs A and B.
+#    gen_assembly_tests
+#        test for sparse constructors with 'sum' vs. 'unique'
+#    gen_select_tests
+#        indexing tests
+#    gen_solver_tests
+#        Tests the solve function with triangular/banded, etc matrices
+
+case $1 in
+    random) preset=false ;;
+    preset) preset=true ;;
+    '') preset=true ;;
+    *) echo "buildtest.sh random|preset" && exit 1 ;;
+esac
+
+if $preset; then
+    TESTS=test_sparse.m
+else
+    TESTS=test_sprandom.m
+fi
+
+# create initial file
+cat >$TESTS <<EOF
+## THIS IS AN AUTOMATICALLY GENERATED FILE --- DO NOT EDIT ---
+## instead modify build_sparse_tests.sh to generate the tests that you want.
+EOF
+
+
+# define all functions
+
+
+# =======================================================
+# Section separator
+
+gen_section() {
+cat >>$TESTS <<EOF
+
+# ==============================================================
+
+EOF
+}
+
+
+# =======================================================
+# Specific preset tests
+
+# =======================================================
+# If a sparse operation yields zeros, then those elements 
+# of the returned sparse matrix should be eaten.
+gen_eat_zeros() {
+cat >>$TESTS <<EOF
+%% Make sure newly introduced zeros get eaten
+%!assert(nnz(sparse([bf,bf,1]).^realmax),1);
+%!assert(nnz(sparse([1,bf,bf]).^realmax),1);
+%!assert(nnz(sparse([bf,bf,bf]).^realmax),0); 
+
+%!assert(nnz(sparse([bf;bf;1]).^realmax),1);
+%!assert(nnz(sparse([1;bf;bf]).^realmax),1);
+%!assert(nnz(sparse([0.5;bf;bf]).^realmax),0);
+
+%!assert(nnz(sparse([bf,bf,1])*realmin),1);
+%!assert(nnz(sparse([1,bf,bf])*realmin),1);
+%!assert(nnz(sparse([bf,bf,bf])*realmin),0);
+
+%!assert(nnz(sparse([bf;bf;1])*realmin),1);
+%!assert(nnz(sparse([1;bf;bf])*realmin),1);
+%!assert(nnz(sparse([bf;bf;bf])*realmin),0);
+
+EOF
+}
+
+gen_specific() {
+cat >>$TESTS <<EOF
+
+%!test # segfault test from edd@debian.org
+%! n = 510;
+%! sparse(kron((1:n)', ones(n,1)), kron(ones(n,1), (1:n)'), ones(n)); 
+
+%% segfault tests from Fabian@isas-berlin.de
+%% Note that the last four do not fail, but rather give a warning
+%% of a singular matrix, which is consistent with the full matrix
+%% behaviour. They are therefore disabled.. 
+%!assert(spinv(sparse([1,1;1,1+i])),sparse([1-1i,1i;1i,-1i]),10*eps);
+% !error spinv( sparse( [1,1;1,1]   ) );
+% !error spinv( sparse( [0,0;0,1]   ) );
+% !error spinv( sparse( [0,0;0,1+i] ) );
+% !error spinv( sparse( [0,0;0,0]   ) );
+
+%% error handling in constructor
+%!error sparse(1,[2,3],[1,2,3]);
+%!error sparse([1,1],[1,1],[1,2],3,3,"bogus");
+%!error sparse([1,3],[1,-4],[3,5],2,2);
+%!error sparse([1,3],[1,-4],[3,5i],2,2);
+%!error sparse(-1,-1,1);
+EOF
+}
+
+
+gen_specific_tests() {
+    gen_section
+    gen_specific
+    gen_section
+    echo '%!shared bf' >> $TESTS
+    echo '%!test bf=realmin;' >> $TESTS
+    gen_eat_zeros
+    echo '%!test bf=realmin+realmin*1i;' >> $TESTS
+    gen_eat_zeros
+    cat >>$TESTS <<EOF
+%!assert(nnz(sparse([-1,realmin,realmin]).^1.5),1);
+%!assert(nnz(sparse([-1,realmin,realmin,1]).^1.5),2);
+
+%!assert(nnz(sparse(1,1,0)),0); # Make sure scalar v==0 doesn't confuse matters
+%!assert(nnz(sparse(eye(3))*0),0);
+%!assert(nnz(sparse(eye(3))-sparse(eye(3))),0);
+
+%!test
+%! wdbz=warn_divide_by_zero;
+%! warn_divide_by_zero=0;
+%! assert(sparse(eye(3))/0,sparse(eye(3)/0,1));
+%! warn_divide_by_zero=wdbz;
+
+EOF
+}
+
+
+# =======================================================
+# Main function definition
+
+gen_function() {
+    if $preset; then
+	cat >>$TESTS <<EOF
+##
+## test_sparse
+##
+##    run preset sparse tests.  All should pass.
+function [passes,tests] = test_sparse
+  disp("writing test output to sptest.log");
+  test("test_sparse","normal","sptest.log");
+endfunction
+
+EOF
+    else
+	cat >>$TESTS <<EOF
+##
+## test_sprandom
+##
+##  total_passes=0; total_tests=0;
+##  for i=1:10
+##     [passes,tests] = sprandomtest;
+##    total_passes += passes;
+##    total_tests += tests;
+##  end
+##  The test log is appended to sprandomtest.log
+function [passes,total] = test_sprandom
+  warning("untested --- fix the source in buildtests.sh");
+  disp("appending test output to sprandomtest.log");
+  fid = fopen("sprandomtest.log","at");
+  test("test_sprandom","normal",fid);
+  ##[passes, total] = test("sprandomtest","normal",fid);
+  fclose(fid);
+endfunction
+
+EOF
+    fi
+    
+}
+
+
+# =======================================================
+# matrix ops
+
+# test ordered comparisons: uses as,af,bs,bf
+gen_ordering_tests() {
+    cat >>$TESTS <<EOF
+%% real values can be ordered (uses as,af)
+%!assert(as<=bf,sparse(af<=bf,true))
+%!assert(bf<=as,sparse(bf<=af,true))
+
+%!assert(as>=bf,sparse(af>=bf,true))
+%!assert(bf>=as,sparse(bf>=af,true))
+
+%!assert(as<bf,sparse(af<bf,true))
+%!assert(bf<as,sparse(bf<af,true))
+
+%!assert(as>bf,sparse(af>bf,true))
+%!assert(bf>as,sparse(bf>af,true))
+
+EOF
+}
+
+gen_sparsesparse_ordering_tests() {
+    cat >>$TESTS <<EOF
+%!assert(as<=bs,sparse(af<=bf,true))
+%!assert(as>=bs,sparse(af>=bf,true))
+%!assert(as<bs,sparse(af<bf,true))
+%!assert(as>bs,sparse(af>bf,true))
+EOF
+}
+
+# test element-wise binary operations: uses as,af,bs,bf,scalar
+gen_elementop_tests() {
+    cat >>$TESTS <<EOF
+%% Elementwise binary tests (uses as,af,bs,bf,scalar)
+%!assert(as==bs,sparse(af==bf,true))
+%!assert(bf==as,sparse(bf==af,true))
+
+%!assert(as!=bf,sparse(af!=bf,true))
+%!assert(bf!=as,sparse(bf!=af,true))
+
+%!assert(as+bf,af+bf)
+%!assert(bf+as,bf+af)
+
+%!assert(as-bf,af-bf)
+%!assert(bf-as,bf-af)
+
+%!assert(as.*bf,sparse(af.*bf,true))
+%!assert(bf.*as,sparse(bf.*af,true))
+
+%!assert(as./bf,sparse(af./bf,true),100*eps)
+%!assert(bf.\as,sparse(bf.\af,true),100*eps)
+
+%!test
+%! sv = as.^bf;
+%! fv = af.^bf;
+%! idx = find(af~=0);
+%! assert(sv(:)(idx),sparse(fv(:)(idx),true),100*eps)
+
+EOF
+}
+
+gen_sparsesparse_elementop_tests() {
+    cat >>$TESTS <<EOF
+%!assert(as==bs,sparse(af==bf,true))
+%!assert(as!=bs,sparse(af!=bf,true))
+%!assert(as+bs,sparse(af+bf,true))
+%!assert(as-bs,sparse(af-bf,true))
+%!assert(as.*bs,sparse(af.*bf,true))
+%!assert(as./bs,sparse(af./bf,true),100*eps);
+%!test
+%! sv = as.^bs;
+%! fv = af.^bf;
+%! idx = find(af~=0);
+%! assert(sv(:)(idx),sparse(fv(:)(idx),true),100*eps)
+
+EOF
+}
+
+# test matrix-matrix left and right division: uses as,af,bs,bf
+gen_divop_tests() {
+    cat >>$TESTS <<EOF
+%% Matrix-matrix operators (uses af,as,bs,bf)
+%!assert(as/bf,af/bf,100*eps)
+%!assert(af/bs,af/bf,100*eps)
+%!assert(as/bs,sparse(af/bf,true),100*eps)
+%!assert(bs\af',bf\af',100*eps)
+%!assert(bf\as',bf\af',100*eps)
+%!assert(bs\as',sparse(bf\af',true),100*eps)
+
+EOF
+}
+
+# test matrix-matrix left and right division: uses as,af,bs,bf
+gen_square_divop_tests() {
+    cat >>$TESTS <<EOF
+%% Matrix-matrix operators (uses af,as,bs,bf)
+%!assert(as/bf,af/bf,100*eps)
+%!assert(af/bs,af/bf,100*eps)
+%!assert(as/bs,sparse(af/bf,true),100*eps)
+%!assert(bs\af',bf\af',100*eps)
+%!assert(bf\as',bf\af',100*eps)
+%!assert(bs\as',sparse(bf\af',true),100*eps)
+
+EOF
+}
+
+# test matrix-matrix operations: uses as,af,bs,bf
+gen_matrixop_tests() {
+    cat >>$TESTS <<EOF
+%% Matrix-matrix operators (uses af,as,bs,bf)
+%!assert(as*bf',af*bf')
+%!assert(af*bs',af*bf')
+%!assert(as*bs',sparse(af*bf',true))
+
+EOF
+}
+
+# test diagonal operations
+gen_matrixdiag_tests() {
+    cat >>$TESTS <<EOF
+%% Matrix diagonal tests (uses af,as,bf,bs)
+%!assert(spdiag(as),sparse(diag(af),true))
+%!assert(spdiag(bs),sparse(diag(bf),true))
+%!assert(spdiag(as,1),sparse(diag(af,1),true))
+%!assert(spdiag(bs,1),sparse(diag(bf,1),true))
+%!assert(spdiag(as,-1),sparse(diag(af,-1),true))
+%!assert(spdiag(bs,-1),sparse(diag(bf,-1),true))
+%!assert(spdiag(as(:)),sparse(diag(af(:)),true))
+%!assert(spdiag(as(:),1),sparse(diag(af(:),1),true))
+%!assert(spdiag(as(:),-1),sparse(diag(af(:),-1),true))
+%!assert(spdiag(as(:)'),sparse(diag(af(:)'),true))
+%!assert(spdiag(as(:)',1),sparse(diag(af(:)',1),true))
+%!assert(spdiag(as(:)',-1),sparse(diag(af(:)',-1),true))
+%!assert(spdiags(as,[0,1]),[diag(af,0),diag(af,1)])
+%!test [tb,tc]=spdiags(as); 
+%! assert(spdiags(tb,tc,sparse(zeros(size(as)))),as)
+%! assert(spdiags(tb,tc,size(as,1),size(as,2)),as)
+
+EOF
+}
+
+# test matrix reshape operations
+gen_matrixreshape_tests() {
+    cat >>$TESTS <<EOF
+%% Matrix diagonal tests (uses af,as,bf,bs)
+%!assert(reshape(as,1,prod(size(as))),sparse(reshape(af,1,prod(size(af))),true))
+%!assert(reshape(as,prod(size(as)),1),sparse(reshape(af,prod(size(af)),1),true))
+%!assert(reshape(as,fliplr(size(as))),sparse(reshape(af,fliplr(size(af))),true))
+%!assert(reshape(bs,1,prod(size(as))),sparse(reshape(bf,1,prod(size(af))),true))
+%!assert(reshape(bs,prod(size(as)),1),sparse(reshape(bf,prod(size(af)),1),true))
+%!assert(reshape(bs,fliplr(size(as))),sparse(reshape(bf,fliplr(size(af))),true))
+
+EOF
+}
+
+# test mapper matrix operations: uses as,af
+print_mapper_test() {
+echo "%!assert($1(as),sparse($1(af),1))" >>$TESTS
+}
+
+print_real_mapper_test() {
+    cat >>$TESTS <<EOF
+%!test
+%! wn2s = warn_num_to_str;
+%! warn_num_to_str = 0;
+%! if isreal(af)
+%!    assert($1(as),sparse($1(af),1))
+%! endif
+%! warn_num_to_str = wn2s;
+
+EOF
+}
+
+gen_mapper_tests() {
+echo "%% Unary matrix tests (uses af,as)">>$TESTS
+print_mapper_test abs
+print_mapper_test acos
+print_mapper_test acosh
+print_mapper_test angle
+print_mapper_test arg
+print_mapper_test asin
+print_mapper_test asinh
+print_mapper_test atan
+print_mapper_test atanh
+print_mapper_test ceil
+print_mapper_test conj
+print_mapper_test cos
+print_mapper_test cosh
+print_mapper_test exp
+print_mapper_test finite
+print_mapper_test fix
+print_mapper_test floor
+print_mapper_test imag
+print_mapper_test isinf
+print_mapper_test isna
+print_mapper_test isnan
+print_mapper_test log
+#print_mapper_test log10   ## fails with different NaN, not a problem
+print_mapper_test real
+print_mapper_test round
+print_mapper_test sign
+print_mapper_test sin
+print_mapper_test sinh
+print_mapper_test sqrt
+print_mapper_test tan
+print_mapper_test tanh
+
+# Specific tests for certain mapper functions
+    cat >>$TESTS <<EOF
+%!assert(issparse(abs(as))&&isreal(abs(as)))
+%!assert(issparse(real(as))&&isreal(real(as)))
+%!assert(issparse(imag(as))&&isreal(imag(as)))
+
+EOF
+}
+
+gen_real_mapper_tests() {
+echo "%% Unary matrix tests (uses af,as)">>$TESTS
+print_real_mapper_test erf
+print_real_mapper_test erfc
+#print_real_mapper_test gamma
+print_real_mapper_test isalnum
+print_real_mapper_test isalpha
+print_real_mapper_test isascii
+print_real_mapper_test iscntrl
+print_real_mapper_test isdigit
+print_real_mapper_test isgraph
+print_real_mapper_test islower
+print_real_mapper_test isprint
+print_real_mapper_test ispunct
+print_real_mapper_test isspace
+print_real_mapper_test isupper
+print_real_mapper_test isxdigit
+#print_real_mapper_test lgamma
+
+# Specific tests for certain mapper functions
+    cat >>$TESTS <<EOF
+
+%% These mapper functions always return a full matrix
+%!test
+%! wn2s = warn_num_to_str;
+%! warn_num_to_str = 0;
+%! if isreal(af)
+%!    assert(toascii(as),toascii(af))
+%!    assert(tolower(as),tolower(af))
+%!    assert(toupper(as),toupper(af))
+%! endif
+%! warn_num_to_str = wn2s;
+
+EOF
+}
+
+# test matrix operations: uses as,af
+gen_unaryop_tests() {
+    cat >>$TESTS <<EOF
+%% Unary matrix tests (uses af,as)
+%!assert(issparse(as))
+%!assert(!issparse(af))
+%!assert(!(issparse(af)&&iscomplex(af)))
+%!assert(!(issparse(af)&&isreal(af)))
+%!assert(spsum(as),sparse(sum(af),true))
+%!assert(spsum(as,1),sparse(sum(af,1),true))
+%!assert(spsum(as,2),sparse(sum(af,2),true))
+%!assert(spcumsum(as),sparse(cumsum(af),true))
+%!assert(spcumsum(as,1),sparse(cumsum(af,1),true))
+%!assert(spcumsum(as,2),sparse(cumsum(af,2),true))
+%!assert(spsumsq(as),sparse(sumsq(af),true))
+%!assert(spsumsq(as,1),sparse(sumsq(af,1),true))
+%!assert(spsumsq(as,2),sparse(sumsq(af,2),true))
+%!assert(spprod(as),sparse(prod(af),true))
+%!assert(spprod(as,1),sparse(prod(af,1),true))
+%!assert(spprod(as,2),sparse(prod(af,2),true))
+%!assert(spcumprod(as),sparse(cumprod(af),true))
+%!assert(spcumprod(as,1),sparse(cumprod(af,1),true))
+%!assert(spcumprod(as,2),sparse(cumprod(af,2),true))
+
+%!assert(spmin(as),sparse(min(af),true))
+%!assert(spmin(as(:)),min(af(:)))
+%!assert(spmin(as,[],1),sparse(min(af,[],1),true))
+%!assert(spmin(as,[],2),sparse(min(af,[],2),true))
+%!assert(spmin(as,[],1),sparse(min(af,[],1),true))
+%!assert(spmin(as,0),sparse(min(af,0),true))
+%!assert(spmin(as,bs),sparse(min(af,bf),true))
+%!assert(spmax(as),sparse(max(af),true))
+%!assert(spmax(as(:)),max(af(:)))
+%!assert(spmax(as,[],1),sparse(max(af,[],1),true))
+%!assert(spmax(as,[],2),sparse(max(af,[],2),true))
+%!assert(spmax(as,[],1),sparse(max(af,[],1),true))
+%!assert(spmax(as,0),sparse(max(af,0),true))
+%!assert(spmax(as,bs),sparse(max(af,bf),true))
+
+%!assert(as==as)
+%!assert(as==af)
+%!assert(af==as)
+%!test
+%! [ii,jj,vv,nr,nc] = spfind(as);
+%! assert(af,full(sparse(ii,jj,vv,nr,nc)));
+%!assert(nnz(as),sum(af(:)!=0))
+%!assert(nnz(as),nnz(af))
+%!assert(issparse(as.'))
+%!assert(issparse(as'))
+%!assert(issparse(-as))
+%!assert(~as,sparse(~af,true))
+%!assert(as.', sparse(af.',true));
+%!assert(as',  sparse(af',true));
+%!assert(-as, sparse(-af,true));
+%!assert(~as, sparse(~af,true));
+%!error [i,j]=size(af);as(i-1,j+1);
+%!error [i,j]=size(af);as(i+1,j-1);
+%!test
+%! [Is,Js,Vs] = spfind(as);
+%! [If,Jf,Vf] = find(af);
+%! assert(Is,If);
+%! assert(Js,Jf);
+%! assert(Vs,Vf);
+%!error as(0,1);
+%!error as(1,0);
+%!assert(spfind(as),find(af))
+%!test
+%! [i,j,v] = spfind(as);
+%! [m,n] = size(as);
+%! x = sparse(i,j,v,m,n);
+%! assert(x,as);
+%!test
+%! [i,j,v,m,n] = spfind(as);
+%! x = sparse(i,j,v,m,n);
+%! assert(x,as);
+%!assert(issparse(horzcat(as,as)));
+%!assert(issparse(vertcat(as,as)));
+%!assert(issparse(cat(1,as,as)));
+%!assert(issparse(cat(2,as,as)));
+%!assert(issparse([as,as]));
+%!assert(issparse([as;as]));
+%!assert(horzcat(as,as), sparse([af,af]));
+%!assert(vertcat(as,as), sparse([af;af]));
+%!assert(horzcat(as,as,as), sparse([af,af,af]));
+%!assert(vertcat(as,as,as), sparse([af;af;af]));
+%!assert([as,as], sparse([af,af]));
+%!assert([as;as], sparse([af;af]));
+%!assert([as,as,as], sparse([af,af,af]));
+%!assert([as;as;as], sparse([af;af;af]));
+%!assert(cat(2,as,as), sparse([af,af]));
+%!assert(cat(1,as,as), sparse([af;af]));
+%!assert(cat(2,as,as,as), sparse([af,af,af]));
+%!assert(cat(1,as,as,as), sparse([af;af;af]));
+%!assert(issparse([as,af]));
+%!assert(issparse([af,as]));
+%!assert([as,af], sparse([af,af]));
+%!assert([as;af], sparse([af;af]));
+
+EOF
+}
+
+# operations which require square matrices.
+gen_square_tests() {
+# The \ and / operator tests on square matrices
+    gen_square_divop_tests
+
+    cat >>$TESTS <<EOF
+%!assert(spdet(bs+speye(size(bs))),det(bf+eye(size(bf))),100*eps*abs(det(bf+eye(size(bf)))))
+
+%!test 
+%! [l,u]=splu(sparse([1,1;1,1]));
+%! assert(l*u,[1,1;1,1],10*eps);
+
+%!test
+%! [l,u]=splu(sparse([1,1;1,1+i]));
+%! assert(l,sparse([1,2,2],[1,1,2],1),10*eps);
+%! assert(u,sparse([1,1,2],[1,2,2],[1,1,1i]),10*eps);
+
+%!test ;# permuted LU
+%! [L,U] = splu(bs);
+%! assert(L*U,bs,1e-10);
+
+%!test ;# simple LU + row permutations
+%! [L,U,P] = splu(bs);
+%! assert(P'*L*U,bs,1e-10);
+%! # triangularity
+%! [i,j,v]=spfind(L);
+%! assert(i-j>=0);
+%! [i,j,v]=spfind(U);
+%! assert(j-i>=0);
+
+%!test ;# simple LU + row/col permutations
+%! [L,U,P,Q] = splu(bs);
+%! assert(P'*L*U*Q',bs,1e-10);
+%! # triangularity
+%! [i,j,v]=spfind(L);
+%! assert(i-j>=0);
+%! [i,j,v]=spfind(U);
+%! assert(j-i>=0);
+
+%!test ;# LU with fixed column permutation
+%! [L,U,P] = splu(bs,colamd(bs));
+%! assert(P'*L*U,bs,1e-10);
+%! # triangularity
+%! [i,j,v]=spfind(L);
+%! assert(i-j>=0);
+%! [i,j,v]=spfind(U(:,colamd(bs)));
+%! assert(j-i>=0);
+
+%!test ;# LU with initial column permutation
+%! [L,U,P,Q] = splu(bs,colamd(bs));
+%! assert(P'*L*U*Q',bs,1e-10);
+%! # triangularity
+%! [i,j,v]=spfind(L);
+%! assert(i-j>=0);
+%! [i,j,v]=spfind(U);
+%! assert(j-i>=0);
+
+%!test ;# inverse
+%! assert(spinv(bs)*bs,sparse(eye(rows(bs))),1e-10);
+
+%!assert(bf\as',bf\af',100*eps);
+%!assert(bs\af',bf\af',100*eps);
+%!assert(bs\as',sparse(bf\af'),100*eps);
+
+EOF
+}
+
+# Cholesky tests
+gen_cholesky_tests() {
+    cat >>$TESTS <<EOF
+%!assert(spchol(bs)'*spchol(bs),bs,1e-10);
+%!assert(splchol(bs)*splchol(bs)',bs,1e-10);
+%!assert(splchol(bs),spchol(bs)',1e-10);
+
+%!test ;# Return Partial Cholesky factorization
+%! [RS,PS] = spchol(bs);
+%! assert(RS'*RS,bs,1e-10);
+%! assert(PS,0);
+%! [LS,PS] = splchol(bs);
+%! assert(LS*LS',bs,1e-10);
+%! assert(PS,0);
+
+%!test ;# Permuted Cholesky factorization
+%! [RS,PS,QS] = spchol(bs);
+%! assert(RS'*RS,QS*bs*QS',1e-10);
+%! assert(PS,0);
+%! [LS,PS,QS] = splchol(bs);
+%! assert(LS*LS',QS*bs*QS',1e-10);
+%! assert(PS,0);
+
+EOF
+}
+
+# test scalar operations: uses af and real scalar bf; modifies as,bf,bs
+gen_scalar_tests() {
+    echo '%!test as=sparse(af);' >> $TESTS
+    echo '%!test bs=bf;' >> $TESTS
+    gen_elementop_tests
+    gen_ordering_tests
+    echo '%!test bf=bf+1i;' >>$TESTS
+    echo '%!test bs=bf;' >> $TESTS
+    gen_elementop_tests
+}
+
+# test matrix operations: uses af and bf; modifies as,bs
+gen_rectangular_tests() {
+    echo '%!test as=sparse(af);' >> $TESTS
+    echo '%!test bs=sparse(bf);' >>$TESTS
+    gen_mapper_tests
+    gen_real_mapper_tests
+    gen_unaryop_tests
+    gen_elementop_tests
+    gen_sparsesparse_elementop_tests
+    gen_matrixop_tests
+    # gen_divop_tests # Disable rectangular \ and / for now
+    gen_matrixdiag_tests
+    gen_matrixreshape_tests
+}
+
+
+# =======================================================
+# sparse assembly tests
+
+gen_assembly_tests() {
+cat >>$TESTS <<EOF
+%%Assembly tests
+%!test
+%! m=max([m;r(:)]);
+%! n=max([n;c(:)]);
+%! funiq=fsum=zeros(m,n);
+%! funiq(r(:) + m*(c(:)-1) ) = ones(size(r(:)));
+%! funiq = sparse(funiq);
+%! for k=1:length(r), fsum(r(k),c(k)) += 1; end
+%! fsum = sparse(fsum);
+%!assert(sparse(r,c,1),sparse(fsum(1:max(r),1:max(c))));
+%!assert(sparse(r,c,1,"sum"),sparse(fsum(1:max(r),1:max(c))));
+%!assert(sparse(r,c,1,"unique"),sparse(funiq(1:max(r),1:max(c))));
+%!assert(sparse(r,c,1,m,n),sparse(fsum));
+%!assert(sparse(r,c,1,m,n,"sum"),sparse(fsum));
+%!assert(sparse(r,c,1,m,n,"unique"),sparse(funiq));
+
+%!assert(sparse(r,c,1i),sparse(fsum(1:max(r),1:max(c))*1i));
+%!assert(sparse(r,c,1i,"sum"),sparse(fsum(1:max(r),1:max(c))*1i));
+%!assert(sparse(r,c,1i,"unique"),sparse(funiq(1:max(r),1:max(c))*1i));
+%!assert(sparse(r,c,1i,m,n),sparse(fsum*1i));
+%!assert(sparse(r,c,1i,m,n,"sum"),sparse(fsum*1i));
+%!assert(sparse(r,c,1i,m,n,"unique"),sparse(funiq*1i));
+
+%!test
+%! if (issparse(funiq))
+%!  assert(sparse(full(1i*funiq)),sparse(1i*funiq));
+%! endif
+
+%!assert(sparse(full(funiq)),funiq);
+
+
+EOF
+}
+
+# =======================================================
+# sparse selection tests
+
+gen_select_tests() {
+    cat >>$TESTS <<EOF
+%!test as=sparse(af);
+
+%% Point tests
+%!test idx=ridx(:)+rows(as)*(cidx(:)-1);
+%!assert(sparse(as(idx),true),sparse(af(idx),true));
+%!assert(as(idx),sparse(af(idx),true));
+%!assert(as(idx'),sparse(af(idx'),true));
+%!assert(as([idx,idx]),sparse(af([idx,idx]),true));
+%!error(as(reshape([idx;idx],[1,length(idx),2])));
+
+%% Slice tests
+%!assert(as(ridx,cidx), sparse(af(ridx,cidx),true))
+%!assert(as(ridx,:), sparse(af(ridx,:),true))
+%!assert(as(:,cidx), sparse(af(:,cidx),true))
+%!assert(as(:,:), sparse(af(:,:),true))
+
+%% Test 'end' keyword
+%!assert(as(end),af(end))
+%!assert(as(1,end), af(1,end))
+%!assert(as(end,1), af(end,1))
+%!assert(as(end,end), af(end,end))
+%!assert(as(2:end,2:end), sparse(af(2:end,2:end),true))
+%!assert(as(1:end-1,1:end-1), sparse(af(1:end-1,1:end-1),true))
+EOF
+}
+
+# =======================================================
+# sparse save and load tests
+
+gen_save_tests() {
+    cat >>$TESTS <<EOF
+%!test # save ascii
+%! savefile= tmpnam();
+%! as_save=as; save("-text",savefile,"bf","as_save","af");
+%! clear as_save;
+%! load(savefile,"as_save");
+%! unlink(savefile);
+%! assert(as_save,sparse(af));
+%!test # save binary
+%! savefile= tmpnam();
+%! as_save=as; save("-binary",savefile,"bf","as_save","af");
+%! clear as_save;
+%! load(savefile,"as_save");
+%! unlink(savefile);
+%! assert(as_save,sparse(af));
+%!test # save hdf5
+%! savefile= tmpnam();
+%! as_save=as; save("-hdf5",savefile,"bf","as_save","af");
+%! clear as_save;
+%! load(savefile,"as_save");
+%! unlink(savefile);
+%! assert(as_save,sparse(af));
+%!test # save matlab
+%! savefile= tmpnam();
+%! as_save=as; save("-mat",savefile,"bf","as_save","af");
+%! clear as_save;
+%! load(savefile,"as_save");
+%! unlink(savefile);
+%! assert(as_save,sparse(af));
+EOF
+}
+
+# =============================================================
+# Specific solver tests for matrices that will test all of the solver
+# code. Uses alpha and beta
+#
+# Note these tests can still fail with a singular matrix, as sprandn
+# is used and QR solvers not implemented. However, that should happen
+# rarely
+gen_solver_tests() {
+
+if $preset; then
+  cat >>$TESTS <<EOF
+%! n=8;
+%! lf=diag(1:n);lf(n-1,1)=0.5*alpha;lf(n,2)=0.25*alpha;ls=sparse(lf);
+%! uf=diag(1:n);uf(1,n-1)=2*alpha;uf(2,n)=alpha;us=sparse(uf);
+%! ts=spdiags(ones(n,3),-1:1,n,n)+diag(1:n); tf = full(ts);
+EOF
+else
+  cat >>$TESTS <<EOF
+%! n=floor(lognormal_rnd(8,2)+1)'
+%! ls = tril(sprandn(8,8,0.2),-1).*alpha + n*speye(8); lf = full(ls);
+%! us = triu(sprandn(8,8,0.2),1).*alpha + n*speye(8); uf = full(us);
+%! ts = spdiags(randn(8,3),-1:1,8,8).*alpha; tf = full(ts);
+EOF
+fi
+
+cat >>$TESTS <<EOF
+%! df = diag(1:n).* alpha; ds = sparse(df);
+%! pdf = df(randperm(n),randperm(n)); pds = sparse(pdf);
+%! plf = lf(randperm(n),randperm(n)); pls = sparse(plf);
+%! puf = uf(randperm(n),randperm(n)); pus = sparse(puf);
+%! bs = spdiags(repmat([1:n]',1,4),-2:1,n,n).*alpha; bf = full(bs);
+%! cf = lf + lf'; cs = sparse(cf);
+%! bcf = bf + bf'; bcs = sparse(bcf);
+%! tcf = tf + tf'; tcs = sparse(tcf);
+%! xf = diag(1:n) + fliplr(diag(1:n)).*beta; xs = sparse(xf);
+%!assert(ds\xf,df\xf),1e-10;
+%!assert(ds\xs,sparse(df\xf,1),1e-10);
+%!assert(pds\xf,pdf\xf,1e-10);
+%!assert(pds\xs,sparse(pdf\xf,1),1e-10);
+%!assert(ls\xf,lf\xf,1e-10);
+%!assert(sparse(ls\xs),sparse(lf\xf),1e-10);
+%!assert(pls\xf,plf\xf,1e-10);
+%!assert(sparse(pls\xs),sparse(plf\xf),1e-10);
+%!assert(us\xf,uf\xf,1e-10);
+%!assert(sparse(us\xs),sparse(uf\xf),1e-10);
+%!assert(pus\xf,puf\xf,1e-10);
+%!assert(sparse(pus\xs),sparse(puf\xf),1e-10);
+%!assert(bs\xf,bf\xf,1e-10);
+%!assert(sparse(bs\xs),sparse(bf\xf),1e-10);
+%!assert(cs\xf,cf\xf,1e-10);
+%!assert(sparse(cs\xs),sparse(cf\xf),1e-10);
+%!assert(bcs\xf,bcf\xf,1e-10);
+%!assert(sparse(bcs\xs),sparse(bcf\xf),1e-10);
+%!assert(ts\xf,tf\xf,1e-10);
+%!assert(sparse(ts\xs),sparse(tf\xf),1e-10);
+%!assert(tcs\xf,tcf\xf,1e-10);
+%!assert(sparse(tcs\xs),sparse(tcf\xf),1e-10);
+
+EOF
+}
+
+
+# =============================================================
+# Putting it all together: defining the combined tests
+
+
+# initial function
+gen_function
+gen_section
+
+# specific tests
+if $preset; then 
+    gen_specific_tests
+    gen_section
+fi
+
+# scalar operations
+echo '%!shared as,af,bs,bf' >> $TESTS
+if $preset; then
+    echo '%!test af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];' >> $TESTS
+    echo '%!test bf=3;' >>$TESTS
+else
+    cat >>$TESTS <<EOF
+%!test
+%! % generate m,n from 1 to <5000
+%! m=floor(lognormal_rnd(8,2)+1);
+%! n=floor(lognormal_rnd(8,2)+1);
+%! as=sprandn(m,n,0.3); af = full(as+1i*sprandn(as));
+%! bf = randn;
+EOF
+fi
+
+gen_scalar_tests
+gen_section
+
+# rectangular operations
+if $preset; then
+    echo '%!test af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];' >> $TESTS
+    echo '%!test bf=[0,1-1i,0,0;2+1i,0,0,0;3-1i,2+3i,0,0];' >> $TESTS
+else
+    cat >>$TESTS <<EOF
+%!test
+%! m=floor(lognormal_rnd(8,2)+1);
+%! n=floor(lognormal_rnd(8,2)+1);
+%! as=sprandn(m,n,0.3); af = full(as+1i*sprandn(as));
+%! bs=sprandn(m,n,0.3); bf = full(bs+1i*sprandn(bs));
+EOF
+fi
+
+gen_rectangular_tests
+gen_section
+gen_save_tests
+gen_section
+echo '%!test bf=real(bf);' >> $TESTS
+gen_rectangular_tests
+gen_section
+gen_sparsesparse_ordering_tests
+gen_section
+echo '%!test af=real(af);' >> $TESTS
+gen_rectangular_tests
+gen_section
+gen_save_tests
+gen_section
+echo '%!test bf=bf+1i*(bf~=0);' >> $TESTS
+gen_rectangular_tests
+gen_section
+
+# square operations
+if $preset; then
+    echo '%!test af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];' >> $TESTS
+    echo '%! as=sparse(af);' >> $TESTS
+    echo '%!test bf=[0,1-1i,0,0;2+1i,0,0,0;3-1i,2+3i,0,0];' >> $TESTS
+else
+    cat >>$TESTS <<EOF
+%!test
+%! m=floor(lognormal_rnd(8,2)+1);
+%! n=floor(lognormal_rnd(8,2)+1);
+%! as=sprandn(m,n,0.3); af = full(as+1i*sprandn(as));
+%! bs=sprandn(m,n,0.3); bf = full(bs+1i*sprandn(bs));
+EOF
+fi
+
+cat >>$TESTS <<EOF
+%!test ;# invertible matrix
+%! bf=af'*bf+max(abs([af(:);bf(:)]))*sparse(eye(columns(as)));
+%! bs=sparse(bf);
+
+EOF
+
+gen_square_tests
+gen_section
+echo '%!test bf=real(bf);' >> $TESTS
+echo '%! bs=sparse(bf);' >> $TESTS
+gen_square_tests
+gen_section
+echo '%!test af=real(af);' >> $TESTS
+echo '%! as=sparse(af);' >> $TESTS
+gen_square_tests
+gen_section
+echo '%!test bf=bf+1i*(bf~=0);' >> $TESTS
+echo '%! bs=sparse(bf);' >> $TESTS
+gen_square_tests
+gen_section
+
+# cholesky tests
+if $preset; then
+  echo '%!test bf=[5,0,1+1i,0;0,5,0,1-2i;1-1i,0,5,0;0,1+2i,0,5];' >> $TESTS
+  echo '%! bs=sparse(bf);' >> $TESTS
+else
+  echo '# This has a small chance of failing to create a positive definite matrix' >> $TESTS
+  echo '%!test n=floor(lognormal_rnd(8,2)+1)' >> $TESTS
+  echo '%! bs = n*speye(n,n) + sprandn(n,n,0.3); bf = full(bs);' >> $TESTS
+fi
+
+gen_cholesky_tests
+gen_section
+echo '%!test bf=real(bf);' >> $TESTS
+echo '%! bs=sparse(bf);' >> $TESTS
+gen_cholesky_tests
+gen_section
+
+# assembly tests
+echo '%!shared r,c,m,n,fsum,funiq' >>$TESTS
+if $use_preset; then
+    cat >>$TESTS <<EOF
+%!test
+%! r=[1,1,2,1,2,3];
+%! c=[2,1,1,1,2,1];
+%! m=n=0;
+EOF
+else
+    cat >>$TESTS <<EOF
+%!test
+%! % generate m,n from 1 to <5000
+%! m=floor(lognormal_rnd(8,2)+1);
+%! n=floor(lognormal_rnd(8,2)+1);
+%! nz=ceil((m+n)/2);
+%! r=floor(rand(5,nz)*n)+1;
+%! c=floor(rand(5,nn)*m)+1;
+EOF
+fi
+gen_assembly_tests #includes real and complex tests
+gen_section
+
+# slicing tests
+echo '%!shared ridx,cidx,idx,as,af' >>$TESTS
+if $use_preset; then
+    cat >>$TESTS <<EOF
+%!test
+%! af=[1+1i,2-1i,0,0;0,0,0,3+2i;0,0,0,4];
+%! ridx=[1,3]; cidx=[2,3];
+EOF
+else
+    cat >>$TESTS <<EOF
+%!test
+%! % generate m,n from 1 to <5000
+%! m=floor(lognormal_rnd(8,2)+1);
+%! n=floor(lognormal_rnd(8,2)+1);
+%! as=sprandn(m,n,0.3); af = full(as+1i*sprandn(as));
+%! ridx = ceil(m*rand(1,ceil(rand*m))
+%! cidx = ceil(n*rand(1,ceil(rand*n))
+EOF
+fi
+gen_select_tests
+echo '%!test af=real(af);' >> $TESTS
+gen_select_tests
+gen_section
+echo '%!shared alpha,beta,df,pdf,lf,plf,uf,puf,bf,cf,bcf,tf,tcf,xf,ds,pds,ls,pls,us,pus,bs,cs,bcs,ts,tcs,xs' >>$TESTS
+echo '%!test alpha=1;beta=1;' >> $TESTS
+gen_solver_tests
+echo '%!test alpha=1;beta=1i;' >> $TESTS
+gen_solver_tests
+echo '%!test alpha=1i;beta=1;' >> $TESTS
+gen_solver_tests
+echo '%!test alpha=1i;beta=1i;' >> $TESTS
+gen_solver_tests
+gen_section
diff -r f812a0680d05 -r 1ad66ea35fe5 test/fntests.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/fntests.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,141 @@
+clear all;
+
+global topsrcdir;
+
+currdir = canonicalize_file_name (".");
+
+if (nargin == 1)
+  xdir = argv{1};
+else
+  xdir = ".";
+endif
+
+srcdir = canonicalize_file_name (xdir);
+topsrcdir = canonicalize_file_name (fullfile (xdir, ".."));
+
+if (strcmp (currdir, srcdir))
+  testdirs = {srcdir};
+else
+  testdirs = {currdir, srcdir};
+endif
+
+src_tree = canonicalize_file_name (fullfile (topsrcdir, "src"));
+script_tree = canonicalize_file_name (fullfile (topsrcdir, "scripts"));
+fundirs = {src_tree, script_tree};
+
+function [dp, dn] = runtestdir (fid, d);
+  lst = dir(d);
+  dp = dn = 0;
+  for i = 1:length(lst)
+    nm = lst(i).name;
+    if (length(nm) > 5 && strcmp(nm(1:5),"test_") && 
+	strcmp(nm((end-1):end),".m"))
+      [p,n] = test(nm(1:(end-2)),"quiet",fid);
+      printf("  %s -> passes %d of %d\n",nm,p,n);
+      dp +=p;
+      dn += n;
+    endif
+  endfor
+endfunction
+
+function y = hastests (f)
+  fid = fopen(f);
+  str = fscanf(fid,"%s");
+  if (findstr(str,"%!test") ||
+      findstr(str,"%!assert") ||
+      findstr(str,"%!error") ||
+      findstr(str,"%!warning"))
+    y = 1;
+  else
+    y = 0;
+  endif
+  fclose(fid);
+endfunction
+
+function [dp, dn] = runtestscript (fid, d, ident);
+  global topsrcdir
+  lst = dir(d);
+  dp = dn = 0;
+  for i=1:length(lst)
+    nm = lst(i).name;
+    if (lst(i).isdir && !strcmp(nm,".") && !strcmp(nm,"..") && 
+	!strcmp(nm,"CVS"))
+      [p, n] = runtestscript (fid, [d, "/",nm], [ident,"  "]);
+      dp += p;
+      dn += n;
+    endif
+  endfor
+  for i=1:length(lst)
+    nm = lst(i).name;
+    if ((length(nm) > 3 && strcmp(nm((end-2):end),".cc")) ||
+	(length(nm) > 2 && strcmp(nm((end-1):end),".m")))
+      f = fullfile (d, nm);
+      ## Only run if it contains %!test, %!assert %!error or %!warning
+      if (hastests(f))
+	[p, n] = test(f,"quiet",fid);
+	dp += p;
+	dn += n;
+      endif
+    endif
+  endfor 
+  printf("%s%s -> passes %d of %d tests\n", ident,
+	 strrep (d, topsrcdir, "..."), dp, dn);
+##  printf("%s%s -> passes %d of %d tests\n", ident, d, dp, dn);
+endfunction
+
+function printf_assert(varargin)
+  global _assert_printf;
+  _assert_printf=cat(2,_assert_printf,sprintf(varargin{:}));
+endfunction
+
+function ret = prog_output_assert(str)
+  global _assert_printf;
+  if (isempty(_assert_printf))
+    ret = isempty(str);
+  elseif (_assert_printf(end) == "\n")
+    ret = strcmp(_assert_printf(1:(end-1)),str);
+  else
+    ret = strcmp(_assert_printf,str);
+  endif
+  _assert_printf = "";
+endfunction
+
+pso = page_screen_output;
+warn_state = warning("query","quiet");
+warning("on","quiet");
+try
+  page_screen_output =0;
+  fid=fopen("fntests.log","wt");
+  if (fid < 0)
+    error("could not open fntests.log for writing");
+  endif
+  test("","explain",fid);
+  dp=dn=0;
+  printf("\nIntegrated test scripts\n");
+  for i=1:length(fundirs)
+    [p,n] = runtestscript(fid,fundirs{i}," ");
+    dp+=p;
+    dn+=n;
+  endfor
+  printf("\nFixed test scripts\n");
+  for i=1:length(testdirs)
+    [p, n] = runtestdir (fid, testdirs{i});
+    dp+=p;
+    dn+=n;
+  endfor
+  printf("---> passes %d out of %d tests",dp,dn); 
+  if dp==dn 
+    printf("\n---> success"); 
+  endif;
+  disp("");
+  printf("see fntests.log for details");
+  disp("");
+  fclose(fid);
+  page_screen_output = pso;
+  warning(warn_state.state,"quiet");
+catch
+  page_screen_output = pso;
+  warning(warn_state.state,"quiet");
+  disp(lasterr());
+end_try_catch
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_args.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_args.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,80 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/args/args-1.m
+%!function f ()
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!test
+%! f;
+%! assert(prog_output_assert("nargin: 0, nargout: 0"));
+
+%% test/octave.test/args/args-2.m
+%!function f (x, y)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!test
+%! f (1);
+%! assert(prog_output_assert("nargin: 1, nargout: 0"));
+
+%% test/octave.test/args/args-3.m
+%!function [x, y] = f ()
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!  x = 2;
+%!test
+%! x = f ();
+%! assert(prog_output_assert("nargin: 0, nargout: 1"));
+
+%% test/octave.test/args/args-4.m
+%!function [x, y] = f (a, b)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!  x = a;
+%!test
+%! z = f (1);
+%! assert(prog_output_assert("nargin: 1, nargout: 1"));
+
+%% test/octave.test/args/args-5.m
+%!function [varargout] = f (varargin)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!test
+%! f;
+%! assert(prog_output_assert("nargin: 0, nargout: 0"));
+
+%% test/octave.test/args/args-6.m
+%!function [varargout] = f (x, varargin)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!test
+%! f (1);
+%! assert(prog_output_assert("nargin: 1, nargout: 0"));
+
+%% test/octave.test/args/args-7.m
+%!function [x, varargout] = f (varargin)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!  x = 2;
+%!test
+%! x = f ();
+%! assert(prog_output_assert("nargin: 0, nargout: 1"));
+
+%% test/octave.test/args/args-8.m
+%!function [varargout] = f (varargin)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!  varargout{1} = (varargin{1});
+%!test
+%! z = f (1);
+%! assert(prog_output_assert("nargin: 1, nargout: 1"));
+
+%% test/octave.test/args/args-9.m
+%!function [x, y, z] = f (a, b, c, d, e)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!test
+%! [s, t] = f (1, 2, 3, 4);
+%! assert(prog_output_assert("nargin: 4, nargout: 2"));
+
+%% test/octave.test/args/args-10.m
+%!function [varargout] = f (varargin)
+%!  printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout);
+%!  varargout{1} = 1;
+%!  varargout{2} = 2;
+%!  varargout{3} = 3;
+%!  varargout{4} = 4;
+%!test
+%! [s, t, u, v] = f (1, 2, 3);
+%! assert(prog_output_assert("nargin: 3, nargout: 4"));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_arith.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_arith.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,796 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/arith/beta-1.m
+%!test
+%! a=[1, 1.5, 2, 3];
+%! b=[4, 3, 2, 1];
+%! v1=beta(a,b);
+%! v2=beta(b,a);
+%! v3=gamma(a).*gamma(b)./gamma(a+b);
+%! assert(all(abs(v1-v2)<sqrt(eps)) && all(abs(v2-v3)<sqrt(eps)));
+
+%% test/octave.test/arith/beta-2.m
+%!error beta();
+
+%% test/octave.test/arith/beta-3.m
+%!error beta(1);
+
+%% test/octave.test/arith/betainc-1.m
+%!test
+%! a=[1, 1.5, 2, 3];
+%! b=[4, 3, 2, 1];
+%! v1=betainc(1,a,b);
+%! v2=[1,1,1,1];
+%! x = [.2, .4, .6, .8];
+%! v3=betainc(x, a, b);
+%! v4 = 1-betainc(1.-x, b, a);
+%! assert(all(abs(v1-v2)<sqrt(eps)) && all(abs(v3-v4)<sqrt(eps)));
+
+%% test/octave.test/arith/betainc-2.m
+%!error <... betainc:.*> betainc();
+
+%% test/octave.test/arith/betainc-3.m
+%!error <... betainc:.*> betainc(1);
+
+%% test/octave.test/arith/betainc-4.m
+%!error <... betainc:.*> betainc(1,2);
+
+%% test/octave.test/arith/ceil-1.m
+%!assert(all (ceil ([2, 1.1, -1.1, -1]) == [2, 2, -1, -1]));
+
+%% test/octave.test/arith/ceil-2.m
+%!assert(all (ceil ([2+2i, 1.1+1.1i, -1.1-1.1i, -1-i]) == [2+2i, 2+2i, -1-i, -1-i]));
+
+%% test/octave.test/arith/ceil-3.m
+%!error ceil ();
+
+%% test/octave.test/arith/ceil-4.m
+%!error ceil (1, 2);
+
+%% test/octave.test/arith/erf-1.m
+%!test
+%! x=[0,.5,1];
+%! v=[0, .520499877813047, .842700792949715];
+%! assert(all(abs(erf(x)-v)<1.e-10) &&  all(abs(erf(-x)+v)<1.e-10) && all(abs(erfc(x)+v-1)<1.e-10) && all(abs(erfinv(v)-x)<1.e-10));
+
+%% test/octave.test/arith/erf-2.m
+%!error erf();
+
+%% test/octave.test/arith/erf-3.m
+%!error erf(1,2);
+
+%% test/octave.test/arith/exp-1.m
+%!assert(all (abs (exp ([0, 1, -1, -1000]) - [1, e, 1/e, 0]) < sqrt (eps)));
+
+%% test/octave.test/arith/exp-2.m
+%!assert(abs (exp (1+i) - e * (cos (1) + sin (1) * i)) < sqrt (eps));
+
+%% test/octave.test/arith/exp-3.m
+%!error exp ();
+
+%% test/octave.test/arith/exp-4.m
+%!error exp (1, 2);
+
+%% test/octave.test/arith/exp-5.m
+%!assert(exp (Inf) == Inf && exp (-Inf) == 0 && isnan (exp (NaN)));
+
+%% test/octave.test/arith/fix-1.m
+%!assert(all (fix ([1.1, 1, -1.1, -1]) == [1, 1, -1, -1]));
+
+%% test/octave.test/arith/fix-2.m
+%!assert(all (fix ([1.1+1.1i, 1+i, -1.1-1.1i, -1-i]) == [1+i, 1+i, -1-i, -1-i]));
+
+%% test/octave.test/arith/fix-3.m
+%!error fix ();
+
+%% test/octave.test/arith/fix-4.m
+%!error fix (1, 2);
+
+%% test/octave.test/arith/floor-1.m
+%!assert(all (floor ([2, 1.1, -1.1, -1]) == [2, 1, -2, -1]));
+
+%% test/octave.test/arith/floor-2.m
+%!assert(all (floor ([2+2i, 1.1+1.1i, -1.1-1.1i, -1-i]) == [2+2i, 1+i, -2-2i, -1-i]));
+
+%% test/octave.test/arith/floor-3.m
+%!error floor ();
+
+%% test/octave.test/arith/floor-4.m
+%!error floor (1, 2);
+
+%% test/octave.test/arith/gamma-1.m
+%!test
+%! x = [.5, 1, 1.5, 2, 3, 4, 5];
+%! v = [sqrt(pi), 1, .5*sqrt(pi), 1, 2, 6, 24];
+%! assert(all(abs(gamma(x) - v) < sqrt(eps)) && all(abs(lgamma(x) - log(v)) < sqrt(eps))
+%! );
+
+%% test/octave.test/arith/gamma-2.m
+%!error gamma();
+
+%% test/octave.test/arith/gamma-3.m
+%!error gamma(1,2);
+
+%% test/octave.test/arith/gammainc-1.m
+%!test
+%! a = [.5 .5 .5 .5 .5];
+%! x = [0 1 2 3 4];
+%! v1 = sqrt(pi)*erf(x)./gamma(a);
+%! v3 = gammainc(x.*x,a);
+%! assert(all (abs(v1 - v3) < sqrt(eps)));
+
+%% test/octave.test/arith/gcd-1.m
+%!assert((gcd (200, 300, 50, 35) == gcd ([200, 300, 50, 35])
+%! && gcd ([200, 300, 50, 35]) == 5));
+
+%% test/octave.test/arith/gcd-2.m
+%!error <... gcd:.*> gcd ();
+
+%% test/octave.test/arith/gcd-3.m
+%!test
+%! s.a = 1;
+%! fail("gcd (s)");
+
+%% test/octave.test/arith/lcm-1.m
+%!assert(lcm (3, 5, 7, 15) == lcm ([3, 5, 7, 15]) && lcm ([3, 5, 7,15]) == 105);
+
+%% test/octave.test/arith/lcm-2.m
+%!error lcm ();
+
+%% test/octave.test/arith/lcm-3.m
+%!test
+%! s.a = 1;
+%! fail("lcm (s)");
+
+%% test/octave.test/arith/max-1.m
+%!assert(max ([1, 4, 2, 3]) == 4 && max ([1; -10; 5; -2]) == 5);
+
+%% test/octave.test/arith/max-2.m
+%!assert(all (max ([4, i 4.999; -2, 2, 3+4i]) == [4, 2, 3+4i]));
+
+%% test/octave.test/arith/max-3.m
+%!error <... max:.*> max ();
+
+%% test/octave.test/arith/max-4.m
+%!error <... max:.*> max (1, 2, 3, 4);
+
+%% test/octave.test/arith/min-1.m
+%!assert(min ([1, 4, 2, 3]) == 1 && min ([1; -10; 5; -2]) == -10);
+
+%% test/octave.test/arith/min-2.m
+%!assert(all (min ([4, i; -2, 2]) == [-2, i]));
+
+%% test/octave.test/arith/min-3.m
+%!error <... min:.*> min ();
+
+%% test/octave.test/arith/min-4.m
+%!error <... min:.*> min (1, 2, 3, 4);
+
+%% test/octave.test/arith/pow2-1.m
+%!test
+%! x = [3, 0, -3];
+%! v = [8, 1, .125];
+%! assert(all (abs (pow2 (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/pow2-2.m
+%!test
+%! x = [3, 0, -3, 4, 0, -4, 5, 0, -5];
+%! y = [-2, -2, -2, 1, 1, 1, 3, 3, 3];
+%! z = x .* (2 .^ y);
+%! assert(all (abs (pow2 (x,y) - z) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/pow2-3.m
+%!error pow2();
+
+%% test/octave.test/arith/rem-1.m
+%!assert(all (all (rem ([1, 2, 3; -1, -2, -3], 2) == [1, 0, 1; -1, 0, -1])));
+
+%% test/octave.test/arith/rem-2.m
+%!assert(all (all (rem ([1, 2, 3; -1, -2, -3], 2 * ones (2, 3))
+%! == [1, 0, 1; -1, 0, -1])));
+
+%% test/octave.test/arith/rem-3.m
+%!error rem ();
+
+%% test/octave.test/arith/rem-4.m
+%!error rem (1, 2, 3);
+
+%% test/octave.test/arith/rem-5.m
+%!error rem ([1, 2], [3, 4, 5]);
+
+%% test/octave.test/arith/rem-6.m
+%!error rem (i, 1);
+
+%% test/octave.test/arith/round-1.m
+%!assert((round (1) == 1 && round (1.1) == 1 && round (5.5) == 6
+%! && round (i) == i && round (2.5+3.5i) == 3+4i && round (-2.6) == -3));
+
+%% test/octave.test/arith/round-2.m
+%!assert(all (all (round ([1.1, -2.4; -3.7, 7.1]) == [1, -2; -4, 7])));
+
+%% test/octave.test/arith/round-3.m
+%!error round ();
+
+%% test/octave.test/arith/round-4.m
+%!error round (1, 2);
+
+%% test/octave.test/arith/sign-1.m
+%!assert(sign (-2) == -1 && sign (3) == 1 && sign (0) == 0);
+
+%% test/octave.test/arith/sign-2.m
+%!assert(all (all (sign ([1, -pi; e, 0]) == [1, -1; 1, 0])));
+
+%% test/octave.test/arith/sign-3.m
+%!error sign ();
+
+%% test/octave.test/arith/sign-4.m
+%!error sign (1, 2);
+
+%% test/octave.test/arith/sqrt-1.m
+%!assert((sqrt (4) == 2 && sqrt (-1) == i
+%! && abs (sqrt (1+i) - exp (0.5 * log (1+i))) < sqrt (eps)));
+
+%% test/octave.test/arith/sqrt-2.m
+%!test
+%! t1 = exp (0.5 * log (i));
+%! t2 = exp (0.5 * log (1-i));
+%! assert(all (all (abs (sqrt ([4, -4; i, 1-i]) - [2, 2i; t1, t2]) < sqrt (eps))));
+
+%% test/octave.test/arith/sqrt-3.m
+%!error sqrt ();
+
+%% test/octave.test/arith/sqrt-4.m
+%!error sqrt (1, 2);
+
+%% test/octave.test/arith/abs-1.m
+%!assert(abs (1) == 1 && abs (-3.5) == 3.5 && abs (3+4i) == 5 && abs (3-4i) == 5);
+
+%% test/octave.test/arith/abs-2.m
+%!assert(all (all (abs ([1.1, 3i; 3+4i, -3-4i]) == [1.1, 3; 5, 5])));
+
+%% test/octave.test/arith/abs-3.m
+%!error abs ();
+
+%% test/octave.test/arith/abs-4.m
+%!error abs (1, 2);
+
+%% test/octave.test/arith/xor-1.m
+%!assert((xor ([1, 1, 0, 0], [0, 1, 0, 1]) == [1, 0, 0, 1]
+%! && xor ([i, i, 0, 0], [1, 0, 1, 0]) == [0, 1, 1, 0]));
+
+%% test/octave.test/arith/xor-2.m
+%!assert(all (all (xor (eye (2), fliplr (eye (2))) == ones (2))));
+
+%% test/octave.test/arith/xor-3.m
+%!error xor ();
+
+%% test/octave.test/arith/xor-4.m
+%!error xor (1, 2, 3);
+
+%% test/octave.test/arith/arg-1.m
+%!assert(arg (1) == 0 && arg (i) == pi/2 && arg (-1) == pi && arg (-i) == -pi/2);
+
+%% test/octave.test/arith/arg-2.m
+%!assert(all (all (arg ([1, i; -1, -i]) == [0, pi/2; pi, -pi/2])));
+
+%% test/octave.test/arith/arg-3.m
+%!error arg ();
+
+%% test/octave.test/arith/arg-4.m
+%!error arg (1, 2);
+
+%% test/octave.test/arith/conj-1.m
+%!assert(conj (1) == 1 && conj (i) == -i && conj (1+i) == 1-i && conj (1-i) == 1+i);
+
+%% test/octave.test/arith/conj-2.m
+%!assert(all (all (conj ([-1, -i; -1+i, -1-i]) == [-1, i; -1-i, -1+i])));
+
+%% test/octave.test/arith/conj-3.m
+%!error conj ();
+
+%% test/octave.test/arith/conj-4.m
+%!error conj (1, 2);
+
+%% test/octave.test/arith/imag-1.m
+%!assert(imag (1) == 0 && imag (i) == 1 && imag (1+i) == 1);
+
+%% test/octave.test/arith/imag-2.m
+%!assert(all (all (imag ([i, 1; 1, i]) == eye (2))));
+
+%% test/octave.test/arith/imag-3.m
+%!error imag ();
+
+%% test/octave.test/arith/imag-4.m
+%!error imag (1, 2);
+
+%% test/octave.test/arith/real-1.m
+%!assert(real (1) == 1 && real (i) == 0 && real (1+i) == 1);
+
+%% test/octave.test/arith/real-2.m
+%!assert(all (all (real ([1, i; i, 1]) == eye (2))));
+
+%% test/octave.test/arith/real-3.m
+%!error real ();
+
+%% test/octave.test/arith/real-4.m
+%!error real (1, 2);
+
+%% test/octave.test/arith/log-1.m
+%!assert(all (abs (log ([1, e, e^2]) - [0, 1, 2]) < sqrt (eps)));
+
+%% test/octave.test/arith/log-2.m
+%!error log ();
+
+%% test/octave.test/arith/log-3.m
+%!error log (1, 2);
+
+%% test/octave.test/arith/log10-1.m
+%!assert(all (abs (log10 ([0.01, 0.1, 1, 10, 100]) - [-2, -1, 0, 1, 2]) < sqrt (eps)));
+
+%% test/octave.test/arith/log10-2.m
+%!error log10 ();
+
+%% test/octave.test/arith/log10-3.m
+%!error log10 (1, 2);
+
+%% test/octave.test/arith/log2-1.m
+%!assert(all (abs (log2 ([1/4, 1/2, 1, 2, 4]) - [-2, -1, 0, 1, 2]) < sqrt (eps)));
+
+%% test/octave.test/arith/log2-2.m
+%!error log2 ();
+
+%% test/octave.test/arith/log2-3.m
+%!error log2 (1, 2);
+
+%% test/octave.test/arith/sin-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! v = [0, 1/2, rt2/2, rt3/2, 1, rt3/2, rt2/2, 1/2, 0];
+%! assert(all (abs (sin (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/sin-2.m
+%!error sin ();
+
+%% test/octave.test/arith/sin-3.m
+%!error sin (1, 2);
+
+%% test/octave.test/arith/cos-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! v = [1, rt3/2, rt2/2, 1/2, 0, -1/2, -rt2/2, -rt3/2, -1];
+%! assert(all (abs (cos (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/cos-2.m
+%!error cos ();
+
+%% test/octave.test/arith/cos-3.m
+%!error cos (1, 2);
+
+%% test/octave.test/arith/tan-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! v = [0, rt3/3, 1, rt3, -rt3, -1, -rt3/3, 0];
+%! assert(all (abs (tan (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/tan-2.m
+%!error tan ();
+
+%% test/octave.test/arith/tan-3.m
+%!error tan (1, 2);
+
+%% test/octave.test/arith/sec-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! v = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1];
+%! assert(all (abs (sec (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/sec-2.m
+%!error sec ();
+
+%% test/octave.test/arith/sec-3.m
+%!error sec (1, 2);
+
+%% test/octave.test/arith/csc-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6];
+%! v = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2];
+%! assert(all (abs (csc (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/csc-2.m
+%!error csc ();
+
+%% test/octave.test/arith/csc-3.m
+%!error csc (1, 2);
+
+%% test/octave.test/arith/cot-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6];
+%! v = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3];
+%! assert(all (abs (cot (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/cot-2.m
+%!error cot ();
+
+%% test/octave.test/arith/cot-3.m
+%!error cot (1, 2);
+
+%% test/octave.test/arith/asin-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [0, pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6, 0];
+%! x = [0, 1/2, rt2/2, rt3/2, 1, rt3/2, rt2/2, 1/2, 0];
+%! assert(all (abs (asin (x) - v) < sqrt (eps))
+%! 
+%! );
+
+%% test/octave.test/arith/asin-2.m
+%!error asin ();
+
+%% test/octave.test/arith/asin-3.m
+%!error asin (1, 2);
+
+%% test/octave.test/arith/acos-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [0, pi/6, pi/4, pi/3, pi/2, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! x = [1, rt3/2, rt2/2, 1/2, 0, -1/2, -rt2/2, -rt3/2, -1];
+%! assert(all (abs (acos (x) - v) < sqrt (eps))
+%! 
+%! );
+
+%% test/octave.test/arith/acos-2.m
+%!error acos ();
+
+%% test/octave.test/arith/acos-3.m
+%!error acos (1, 2);
+
+%% test/octave.test/arith/atan-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [0, pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6, 0];
+%! x = [0, rt3/3, 1, rt3, -rt3, -1, -rt3/3, 0];
+%! assert(all (abs (atan (x) - v) < sqrt (eps))
+%! 
+%! );
+
+%% test/octave.test/arith/atan-2.m
+%!error atan ();
+
+%% test/octave.test/arith/atan-3.m
+%!error atan (1, 2);
+
+%% test/octave.test/arith/asec-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi];
+%! x = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1];
+%! assert(all (abs (asec (x) - v) < sqrt (eps))
+%! 
+%! );
+
+%% test/octave.test/arith/asec-2.m
+%!error asec ();
+
+%% test/octave.test/arith/asec-3.m
+%!error asec (1, 2);
+
+%% test/octave.test/arith/acsc-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6];
+%! x = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2];
+%! assert(all (abs (acsc (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/acsc-2.m
+%!error acsc ();
+
+%% test/octave.test/arith/acsc-3.m
+%!error acsc (1, 2);
+
+%% test/octave.test/arith/acot-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! x = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3];
+%! v = [pi/6, pi/4, pi/3, pi/2, -pi/3, -pi/4, -pi/6];
+%! assert(all (abs (acot (x) - v) < sqrt (eps))
+%! 
+%! );
+
+%% test/octave.test/arith/acot-2.m
+%!error acot ();
+
+%% test/octave.test/arith/acot-3.m
+%!error acot (1, 2);
+
+%% test/octave.test/arith/sinh-1.m
+%!test
+%! x = [0, pi/2*i, pi*i, 3*pi/2*i];
+%! v = [0, i, 0, -i];
+%! assert(all (abs (sinh (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/sinh-2.m
+%!error sinh ();
+
+%% test/octave.test/arith/sinh-3.m
+%!error sinh (1, 2);
+
+%% test/octave.test/arith/cosh-1.m
+%!test
+%! x = [0, pi/2*i, pi*i, 3*pi/2*i];
+%! v = [1, 0, -1, 0];
+%! assert(all (abs (cosh (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/cosh-2.m
+%!error cosh ();
+
+%% test/octave.test/arith/cosh-3.m
+%!error cosh (1, 2);
+
+%% test/octave.test/arith/tanh-1.m
+%!test
+%! x = [0, pi*i];
+%! v = [0, 0];
+%! assert(all (abs (tanh (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/tanh-2.m
+%!error tanh ();
+
+%% test/octave.test/arith/tanh-3.m
+%!error tanh (1, 2);
+
+%% test/octave.test/arith/sech-1.m
+%!test
+%! x = [0, pi*i];
+%! v = [1, -1];
+%! assert(all (abs (sech (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/sech-2.m
+%!error sech ();
+
+%% test/octave.test/arith/sech-3.m
+%!error sech (1, 2);
+
+%% test/octave.test/arith/csch-1.m
+%!test
+%! x = [pi/2*i, 3*pi/2*i];
+%! v = [-i, i];
+%! assert(all (abs (csch (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/csch-2.m
+%!error csch ();
+
+%% test/octave.test/arith/csch-3.m
+%!error csch (1, 2);
+
+%% test/octave.test/arith/coth-1.m
+%!test
+%! x = [pi/2*i, 3*pi/2*i];
+%! v = [0, 0];
+%! assert(all (abs (coth (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/coth-2.m
+%!error coth ();
+
+%% test/octave.test/arith/coth-3.m
+%!error coth (1, 2);
+
+%% test/octave.test/arith/asinh-1.m
+%!test
+%! v = [0, pi/2*i, 0, -pi/2*i];
+%! x = [0, i, 0, -i];
+%! assert(all (abs (asinh (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/asinh-2.m
+%!error asinh ();
+
+%% test/octave.test/arith/asinh-3.m
+%!error asinh (1, 2);
+
+%% test/octave.test/arith/acosh-1.m
+%!test
+%! v = [0, pi/2*i, pi*i, pi/2*i];
+%! x = [1, 0, -1, 0];
+%! assert(all (abs (acosh (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/acosh-2.m
+%!error acosh ();
+
+%% test/octave.test/arith/acosh-3.m
+%!error acosh (1, 2);
+
+%% test/octave.test/arith/atanh-1.m
+%!test
+%! v = [0, 0];
+%! x = [0, 0];
+%! assert(all (abs (atanh (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/atanh-2.m
+%!error atanh ();
+
+%% test/octave.test/arith/atanh-3.m
+%!error atanh (1, 2);
+
+%% test/octave.test/arith/asech-1.m
+%!test
+%! v = [0, pi*i];
+%! x = [1, -1];
+%! assert(all (abs (asech (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/asech-2.m
+%!error asech ();
+
+%% test/octave.test/arith/asech-3.m
+%!error asech (1, 2);
+
+%% test/octave.test/arith/acsch-1.m
+%!test
+%! v = [pi/2*i, -pi/2*i];
+%! x = [-i, i];
+%! assert(all (abs (acsch (x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/acsch-2.m
+%!error acsch ();
+
+%% test/octave.test/arith/acsch-3.m
+%!error acsch (1, 2);
+
+%% test/octave.test/arith/acoth-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = -i*[pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6];
+%! x = i*[rt3, 1, rt3/3, -rt3/3, -1, -rt3];
+%! assert(all (abs (acoth (x) - v) < sqrt (eps)));
+
+%% test/octave.test/arith/acoth-2.m
+%!error acoth ();
+
+%% test/octave.test/arith/acoth-3.m
+%!error acoth (1, 2);
+
+%% test/octave.test/arith/atan2-1.m
+%!test
+%! rt2 = sqrt (2);
+%! rt3 = sqrt (3);
+%! v = [0, pi/6, pi/4, pi/3, -pi/3, -pi/4, -pi/6, 0];
+%! y = [0, rt3, 1, rt3, -rt3, -1, -rt3, 0];
+%! x = [1, 3, 1, 1, 1, 1, 3, 1];
+%! assert(all (abs (atan2 (y, x) - v) < sqrt (eps))
+%! );
+
+%% test/octave.test/arith/atan2-2.m
+%!error <... atan2:.*> atan2 ();
+
+%% test/octave.test/arith/atan2-3.m
+%!error <... atan2:.*> atan2 (1, 2, 3);
+
+%% test/octave.test/arith/sum-1.m
+%!assert((sum ([1, 2, 3]) == 6 && sum ([-1; -2; -3]) == -6
+%! && sum ([i, 2+i, -3+2i, 4]) == 3+4i));
+
+%% test/octave.test/arith/sum-2.m
+%!assert(all (all (sum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) == [2+2i, 4+4i, 6+6i])));
+
+%% test/octave.test/arith/sum-3.m
+%!error <... sum:.*> sum ();
+
+%% test/octave.test/arith/sum-4.m
+%!assert((all (sum ([1, 2; 3, 4], 1) == [4, 6])
+%! && all (sum ([1, 2; 3, 4], 2) == [3; 7])
+%! && sum (zeros (1, 0)) == 0
+%! && all (size (sum (zeros (1, 0), 1)) == [1, 0])
+%! && sum (zeros (1, 0), 2) == 0
+%! && sum (zeros (0, 1)) == 0
+%! && sum (zeros (0, 1), 1) == 0
+%! && all (size (sum (zeros (0, 1), 2)) == [0, 1])
+%! && all (size (sum (zeros (2, 0))) == [1, 0])
+%! && all (size (sum (zeros (2, 0), 1)) == [1, 0])
+%! && all (sum (zeros (2, 0), 2) == [0; 0])
+%! && all (sum (zeros (0, 2)) == [0, 0])
+%! && all (sum (zeros (0, 2), 1) == [0, 0])
+%! && all (size (sum (zeros (0, 2), 2)) == [0, 1])));
+
+%% test/octave.test/arith/prod-1.m
+%!assert((prod ([1, 2, 3]) == 6 && prod ([-1; -2; -3]) == -6
+%! && prod ([i, 2+i, -3+2i, 4]) == -4-32i));
+
+%% test/octave.test/arith/prod-2.m
+%!assert(all (all (prod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
+%! == [-1+i, -8+8i, -27+27i])));
+
+%% test/octave.test/arith/prod-3.m
+%!error <... prod:.*> prod ();
+
+%% test/octave.test/arith/prod-4.m
+%!assert((all (prod ([1, 2; 3, 4], 1) == [3, 8])
+%! && all (prod ([1, 2; 3, 4], 2) == [2; 12])
+%! && prod (zeros (1, 0)) == 1
+%! && all (size (prod (zeros (1, 0), 1)) == [1, 0])
+%! && prod (zeros (1, 0), 2) == 1
+%! && prod (zeros (0, 1)) == 1
+%! && prod (zeros (0, 1), 1) == 1
+%! && all (size (prod (zeros (0, 1), 2)) == [0, 1])
+%! && all (size (prod (zeros (2, 0))) == [1, 0])
+%! && all (size (prod (zeros (2, 0), 1)) == [1, 0])
+%! && all (prod (zeros (2, 0), 2) == [1; 1])
+%! && all (prod (zeros (0, 2)) == [1, 1])
+%! && all (prod (zeros (0, 2), 1) == [1, 1])
+%! && all (size (prod (zeros (0, 2), 2)) == [0, 1])));
+
+%% test/octave.test/arith/cumsum-1.m
+%!assert((cumsum ([1, 2, 3]) == [1, 3, 6] && cumsum ([-1; -2; -3]) == [-1; -3; -6]
+%! && cumsum ([i, 2+i, -3+2i, 4]) == [i, 2+2i, -1+4i, 3+4i]));
+
+%% test/octave.test/arith/cumsum-2.m
+%!assert(all (all (cumsum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
+%! == [1, 2, 3; 1+i, 2+2i, 3+3i; 2+2i, 4+4i, 6+6i])));
+
+%% test/octave.test/arith/cumsum-3.m
+%!error <... cumsum:.*> cumsum ();
+
+%% test/octave.test/arith/cumsum-4.m
+%!assert((all (cumsum ([1, 2; 3, 4], 1) == [1, 2; 4, 6])
+%! && all (cumsum ([1, 2; 3, 4], 2) == [1, 3; 3, 7])));
+
+%% test/octave.test/arith/cumprod-1.m
+%!assert((cumprod ([1, 2, 3]) == [1, 2, 6] && cumprod ([-1; -2; -3]) == [-1; 2; -6]
+%! && cumprod ([i, 2+i, -3+2i, 4]) == [i, -1+2i, -1-8i, -4-32i]));
+
+%% test/octave.test/arith/cumprod-2.m
+%!assert(all (all (cumprod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
+%! == [1, 2, 3; i, 4i, 9i; -1+i, -8+8i, -27+27i])));
+
+%% test/octave.test/arith/cumprod-3.m
+%!error <... cumprod:.*> cumprod ();
+
+%% test/octave.test/arith/cumprod-4.m
+%!assert((all (cumprod ([2, 3; 4, 5], 1) == [2, 3; 8, 15])
+%! && all (cumprod ([2, 3; 4, 5], 2) == [2, 6; 4, 20])));
+
+%% test/octave.test/arith/sumsq-1.m
+%!assert(sumsq ([1, 2, 3]) == 14 && sumsq ([-1; -2; 4i]) == 21);
+
+%% test/octave.test/arith/sumsq-2.m
+%!assert(all (all (sumsq ([1, 2, 3; 2, 3, 4; 4i, 6i, 2]) == [21, 49, 29])));
+
+%% test/octave.test/arith/sumsq-3.m
+%!error <... sumsq:.*> sumsq ();
+
+%% test/octave.test/arith/sumsq-4.m
+%!assert((all (sumsq ([1, 2; 3, 4], 1) == [10, 20])
+%! && all (sumsq ([1, 2; 3, 4], 2) == [5; 25])));
+
+%% test/octave.test/arith/bincoeff-1.m
+%!assert(bincoeff (5, 2) == 10 && bincoeff (50, 6) == 15890700);
+
+%% test/octave.test/arith/bincoeff-2.m
+%!error bincoeff ();
+
+%% test/octave.test/arith/bincoeff-3.m
+%!error bincoeff (1, 2, 3);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_audio.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_audio.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_contin.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_contin.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,147 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/contin/contin-1.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-2.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-3.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-4.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments ok here
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-5.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-6.m
+%!test
+%! x = [1,2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-7.m
+%!test
+%! x = [1;2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! ;\
+%! 
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-8.m
+%!test
+%! x = [1;2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! ;\
+%! 
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-9.m
+%!test
+%! x = [1;2];
+%! a = 1;
+%! b = 2;
+%! y = [a... # comments here ok
+%! ;\
+%! 
+%! b];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-10.m
+%!assert(1 + ...
+%! 2 - \# comments here ok
+%! 3 / ... # comments here ok
+%! -1,6);
+
+%% test/octave.test/contin/contin-11.m
+%!function y = f (a,...
+%!                b,  ...
+%!                c,  ...   % comments ok
+%!                x,  # continuation characters not required in parens
+%!                y,  \# but they should work too.
+%!                z)
+%!
+%!  y = 1;
+%!test
+%! assert(f (),1);
+
+%% test/octave.test/contin/contin-12.m
+%!test
+%!assert(1 == 1
+%! && 2 == 2
+%! || 3 == 5);
+
+%% test/octave.test/contin/contin-13.m
+%!test
+%! x = [1, ...
+%! 
+%! ...
+%! 
+%! 2];
+%! y = [1;2];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-14.m
+%!test
+%! x = [1, ...
+%! 
+%! ...
+%! 
+%! 2];
+%! y = [1;2];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-15.m
+%!test
+%! x = [1,...
+%! 2];
+%! y = [1,2];
+%! assert(all (y == x));
+
+%% test/octave.test/contin/contin-16.m
+%!test
+%! x = [ 1 , ...
+%! 2];
+%! y = [1,2];
+%! assert(all (y == x));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_control.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_control.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_diffeq.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_diffeq.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,162 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/diffeq/lsode-1.m
+%% dassl-1.m
+%%
+%% Test lsode() function
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         20 May 1998
+%%
+%% Problem
+%%
+%%    y1' = -y2,   y1(0) = 1
+%%    y2' =  y1,   y2(0) = 0
+%%
+%% Solution
+%%
+%%    y1(t) = cos(t)
+%%    y2(t) = sin(t)
+%!function xdot = f (x, t)
+%!  xdot = [-x(2); x(1)];
+%!test
+%! 
+%! x0 = [1; 0];
+%! xdot0 = [0; 1];
+%! t = (0:1:10)';
+%! 
+%! tol = 500 * lsode_options ("relative tolerance");
+%! 
+%! 
+%! x = lsode ("f", x0, t);
+%! 
+%! y = [cos(t), sin(t)];
+%! 
+%! assert(all (all (abs (x - y) < tol)));
+
+%% test/octave.test/diffeq/lsode-2.m
+%!function xdotdot = f (x, t)
+%!  xdotdot = [x(2); -x(1)];
+%!test
+%! 
+%! x0 = [1; 0];
+%! t = [0; 2*pi];
+%! tol = 100 * dassl_options ("relative tolerance");
+%! 
+%! x = lsode ("f", x0, t);
+%! 
+%! y = [1, 0; 1, 0];
+%! 
+%! assert(all (all (abs (x - y) < tol)));
+
+%% test/octave.test/diffeq/lsode-3.m
+%!function xdot = f (x, t)
+%!  xdot = x;
+%!test
+%! 
+%! x0 = 1;
+%! t = [0; 1];
+%! tol = 100 * dassl_options ("relative tolerance");
+%! 
+%! x = lsode ("f", x0, t);
+%! 
+%! y = [1; e];
+%! 
+%! assert(all (all (abs (x - y) < tol)));
+
+%% test/octave.test/diffeq/lsode_options-1.m
+%!test
+%! lsode_options ("absolute tolerance", eps);
+%! assert(lsode_options ("absolute tolerance") == eps);
+
+%% test/octave.test/diffeq/lsode_options-2.m
+%!error <... lsode_options:.*> lsode_options ();
+
+%% test/octave.test/diffeq/lsode_options-3.m
+%!error <... lsode_options:.*> lsode_options ("foo", 1, 2);
+
+%% test/octave.test/diffeq/dassl-1.m
+%% dassl-1.m
+%%
+%% Test dassl() function
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         20 May 1998
+%%
+%% Problem
+%%
+%%    y1' = -y2,   y1(0) = 1
+%%    y2' =  y1,   y2(0) = 0
+%%
+%% Solution
+%%
+%%    y1(t) = cos(t)
+%%    y2(t) = sin(t)
+%!function res = f (x, xdot, t)
+%!  res = [xdot(1)+x(2); xdot(2)-x(1)];
+%!test
+%! 
+%! x0 = [1; 0];
+%! xdot0 = [0; 1];
+%! t = (0:1:10)';
+%! 
+%! tol = 100 * dassl_options ("relative tolerance");
+%! 
+%! 
+%! [x, xdot] = dassl ("f", x0, xdot0, t);
+%! 
+%! y = [cos(t), sin(t)];
+%! 
+%! assert(all (all (abs (x - y) < tol)));
+
+%% test/octave.test/diffeq/dassl-2.m
+%% dassl-2.m
+%%
+%% Test dassl() function
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         20 May 1998
+%%
+%% Based on SLATEC quick check for DASSL by Linda Petzold
+%%
+%% Problem
+%%
+%%   x1' + 10*x1 = 0,   x1(0) = 1
+%%   x1  + x2    = 1,   x2(0) = 0
+%% 
+%%
+%% Solution
+%%
+%%  x1(t) = exp(-10*t)
+%%  x2(t) = 1 - x(1)
+%!function res = f (x, xdot, t)
+%!  res = [xdot(1)+10*x(1); x(1)+x(2)-1];
+%!test
+%! 
+%! x0 = [1; 0];
+%! xdot0 = [-10; 10];
+%! t = (0:0.2:1)';
+%! 
+%! tol = 500 * dassl_options ("relative tolerance");
+%! 
+%! 
+%! [x, xdot] = dassl ("f", x0, xdot0, t);
+%! 
+%! y = [exp(-10*t), 1-exp(-10*t)];
+%! 
+%! assert(all (all (abs (x - y) < tol)));
+
+%% test/octave.test/diffeq/dassl_options-1.m
+%!test
+%! dassl_options ("absolute tolerance", eps);
+%! assert(dassl_options ("absolute tolerance") == eps);
+
+%% test/octave.test/diffeq/dassl_options-2.m
+%!error <... dassl_options:.*> dassl_options ();
+
+%% test/octave.test/diffeq/dassl_options-3.m
+%!error <... dassl_options:.*> dassl_options ("foo", 1, 2);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_error.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_error.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,67 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/error/error-1.m
+%!function g () 
+%! error ("foo");
+%!function f () 
+%! g (); 
+%!error <foo> f ();
+
+%% test/octave.test/error/error-2.m
+%!function g () 
+%! error ("foo\n");
+%!function f () 
+%! g 
+%!error <foo> f ();
+
+%% test/octave.test/error/error-3.m
+%!error error ();
+
+%% test/octave.test/error/error-4.m
+%!error <foo> error ("foo\n");
+
+%% XXX FIXME XXX Why can't I use %!warning <foo> f;
+%% test/octave.test/error/warning-1.m
+%!function g ()
+%! warning ("foo");
+%!function f ()
+%! g;
+%!test
+%! fail("f","warning","foo");
+
+%% test/octave.test/error/warning-2.m
+%!test
+%! st.identifier = "backtrace";
+%! ws = warning ("query","backtrace");
+%! warning ("on","backtrace");
+%! st.state = "on";
+%! assert(warning ("query","backtrace"),st);
+%! warning ("off","backtrace");
+%! st.state = "off";
+%! assert(warning ("query","backtrace"),st);
+%! warning (ws.state,"backtrace");
+
+%% XXX FIXME XXX This test no longer makes sense with new warning syntax
+%% test/octave.test/error/warning-3.m
+%!#warning <foo> warning ("foo", 1);
+
+%% test/octave.test/error/usage-1.m
+%!function g () 
+%! usage ("foo");
+%!function f () 
+%! g (); 
+%!error <usage:> f ();
+
+%% test/octave.test/error/usage-2.m
+%!function g () 
+%! usage ("foo");
+%!function f () 
+%! g 
+%!error <usage:> f ();
+
+%% test/octave.test/error/usage-3.m
+%!error usage ();
+
+%% test/octave.test/error/usage-4.m
+%!error <foo> usage ("foo\n");
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_eval-catch.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_eval-catch.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,58 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/eval-catch/eval-catch-1.m
+%!test
+%! eval ("clear a; a;", "");
+
+%% test/octave.test/eval-catch/eval-catch-2.m
+%!test
+%! eval ("", "error('Shouldn't get here');");
+
+%% test/octave.test/eval-catch/eval-catch-3.m
+%!test
+%! eval ("clear a; a; x = 0;", "x = 1;");
+%! assert (x, 1);
+
+%% XXX FIXME XXX This is redundant with the changes to the above
+%% test/octave.test/eval-catch/eval-catch-4.m
+
+%% test/octave.test/eval-catch/eval-catch-5.m
+%!test
+%! eval ("clear a; a; str = '';", "str=lasterr;");
+%! assert(lasterr()(1:20),"error: `a' undefined");
+%! assert(str(1:20),"error: `a' undefined");
+
+%% test/octave.test/eval-catch/eval-catch-6.m
+%!test
+%! eval ("error (\"user-defined error\"); str = '';", "str = lasterr;");
+%! assert(lasterr()(1:25),"error: user-defined error");
+%! assert(str(1:25),"error: user-defined error");
+
+%% test/octave.test/eval-catch/eval-catch-7.m
+%!function ms = mangle (s)
+%!  ## Wrap angle brackets around S.
+%!  ms = strcat ("<", s, ">");
+%!test
+%! eval ("clear a; a; str='';", "str = mangle (lasterr);");
+%! assert(mangle(lasterr)(1:21),"<error: `a' undefined");
+%! assert(str(1:21),"<error: `a' undefined");
+
+%% test/octave.test/eval-catch/eval-catch-8.m
+%!test
+%! eval ("eval (\"clear a; a;str1='';\", \"str1=lasterr;\"); clear b; b; str2='';",
+%! "str2 = lasterr;");
+%! assert(str1(1:20),"error: `a' undefined");
+%! assert(str2(1:20),"error: `b' undefined");
+
+%% test/octave.test/eval-catch/eval-catch-9.m
+%!test
+%! eval ("clear a; a; str1='';",
+%! "eval (\"clear b; b; str2='';\", \"str2=lasterr;\"); str1=lasterr;");
+%! assert(str1(1:20),"error: `b' undefined");
+%! assert(str2(1:20),"error: `b' undefined");
+
+%% test/octave.test/eval-catch/eval-catch-10.m
+%!test
+%! eval ("eval (\"clear a; a; str='';\",\"error (strcat (\\\"rethrow: \\\", lasterr));str='';\");",
+%! "str=lasterr;");
+%! assert(str(1:36),"error: rethrow: error: `a' undefined");
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_eval.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_eval.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,80 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/eval/eval-1.m
+%!test
+%! x = 1;
+%! assert(eval ("x"),1);
+
+%% test/octave.test/eval/eval-2.m
+%!test
+%! x = 1;
+%! assert(eval ("x;"));
+
+%% test/octave.test/eval/eval-3.m
+%!test
+%! x = 1
+%! assert(eval ("x;"),1);
+
+%% XXX FIXME XXX
+%% Disable this test as adding the ";" is redundant with eval-1 and
+%% in any case is a syntax error with assert
+%% test/octave.test/eval/eval-4.m
+%!#test
+%! x = 1;
+%! assert(eval ("x");,1);
+
+%% test/octave.test/eval/eval-5.m
+%!test
+%! eval ("flipud = 2;");
+%! assert(flipud,2);
+
+%% test/octave.test/eval/eval-6.m
+%!function y = f ()
+%!  eval ("flipud = 2;");
+%!  y = flipud;
+%!test
+%! assert(f,2);
+
+%% test/octave.test/eval/eval-7.m
+%!test
+%! eval ("x = 1");
+%! assert(x,1);
+
+%% test/octave.test/eval/eval-8.m
+%!test
+%! eval ("x = 1;")
+%! assert(x,1);
+
+%% test/octave.test/eval/eval-9.m
+%!test
+%! eval ("x = 1;");
+%! assert(x,1);
+
+%% test/octave.test/eval/eval-10.m
+%! eval ("x = 1")
+%! assert(x,1);
+
+%% test/octave.test/eval/eval-11.m
+%!test
+%! x = 1;
+%! y = eval ("x");
+%! assert(y,1);
+
+%% test/octave.test/eval/eval-12.m
+%!test
+%! x = 1;
+%! y = eval ("x;");
+%! assert(y,1);
+
+%% test/octave.test/eval/eval-13.m
+%!test
+%! x = 1;
+%! y = eval ("x;");
+%! assert(y,1);
+
+%% test/octave.test/eval/eval-14.m
+%!test
+%! x = 1;
+%! y = eval ("x");
+%! assert(y,1);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_for.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_for.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,82 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/for/for-1.m
+%!test
+%! for i = 1
+%! printf_assert ("%d", i);
+%! end
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1"));
+
+%% test/octave.test/for/for-2.m
+%!test
+%! for i = 1:4
+%! printf_assert ("%d", i);
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1234"));
+
+%% test/octave.test/for/for-3.m
+%!test
+%! for i = [1,2,3,4]
+%! printf_assert ("%d", i);
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1234"));
+
+%% test/octave.test/for/for-4.m
+%!test
+%! for i = [1,2;3,4]
+%! printf_assert ("%d", i(1,1));
+%! printf_assert ("%d", i(2,1));
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1324"));
+
+%% test/octave.test/for/for-5.m
+%!test
+%! for i = I
+%! printf_assert ("%d", imag (i));
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1"));
+
+%% test/octave.test/for/for-6.m
+%!test
+%! for i = [1,2,3,4]*I
+%! printf_assert ("%d", imag (i));
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1234"));
+
+%% test/octave.test/for/for-7.m
+%!test
+%! for i = [1,2;3,4]*I
+%! printf_assert ("%d", imag (i(1,1)));
+%! printf_assert ("%d", imag (i(2,1)));
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("1324"));
+
+%% test/octave.test/for/for-8.m
+%!test
+%! for i = [1,2,3,4]
+%! if (i > 2)
+%! break;
+%! endif
+%! printf_assert ("%d", i);
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("12"));
+
+%% test/octave.test/for/for-9.m
+%!test
+%! for i = [1,2,3,4]
+%! if (i < 3)
+%! continue;
+%! endif
+%! printf_assert ("%d", i);
+%! endfor
+%! printf_assert ("\n");
+%! assert(prog_output_assert("34"));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_global.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_global.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,66 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/global/global-1.m
+%!test
+%! global G = 1;
+%! assert(G,1)
+
+%% test/octave.test/global/global-2.m
+%!function f ()
+%!  global G;
+%!  assert(G,1);
+%!test
+%! global G = 1;
+%! f;
+
+%% test/octave.test/global/global-3.m
+%!function f ()
+%!  fail("G");
+%!test
+%! global G = 1;
+%! f();
+
+%% test/octave.test/global/global-4.m
+%!function f ()
+%!  global H = 1;
+%!test
+%!  f;
+%!  fail("H");
+
+%% test/octave.test/global/global-5.m
+%!function f ()
+%!  global H = 1;
+%!test
+%!function g ()
+%!  fail("H");
+%!test
+%! g();
+
+%% test/octave.test/global/global-6.m
+%!function f ()
+%!  global H = 1;
+%!function g ()
+%!  global H;
+%!  assert(H,1);
+%!test
+%! f();
+%! g();
+
+%% test/octave.test/global/global-7.m
+%!test
+%!function f ()
+%!  global H = 1;
+%!test
+%! fail("H");
+
+%% test/octave.test/global/global-8.m
+%!function f ()
+%!  global H = 1;
+%!function g ()
+%!  global H;
+%!  assert(H,1)
+%!test
+%! f;
+%! clear H
+%! g;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_if.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_if.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,71 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/if/if-1.m
+%!test
+%! i = 0;
+%! if (i == 0)
+%! i++;
+%! printf_assert ("%d\n", i);
+%! endif
+%! assert(prog_output_assert("1"));
+
+%% test/octave.test/if/if-2.m
+%!test
+%! if (eye (2))
+%! printf_assert ("fail\n");
+%! else
+%! printf_assert ("pass\n");
+%! end
+%! assert(prog_output_assert("pass"));
+
+%% test/octave.test/if/if-3.m
+%!test
+%! x = 2;
+%! if (eye (2))
+%! printf_assert ("fail\n");
+%! elseif (x)
+%! printf_assert ("pass\n");
+%! endif
+%! assert(prog_output_assert("pass"));
+
+%% test/octave.test/if/if-4.m
+%!test
+%! x = 0;
+%! y = -2;
+%! if (eye (2))
+%! printf_assert ("fail\n");
+%! elseif (x)
+%! printf_assert ("fail\n");
+%! elseif (y)
+%! printf_assert ("pass\n");
+%! end
+%! assert(prog_output_assert("pass"));
+
+%% test/octave.test/if/if-5.m
+%!test
+%! x = 0;
+%! y = -2;
+%! if (eye (2))
+%! printf_assert ("fail\n");
+%! elseif (x)
+%! printf_assert ("fail\n");
+%! elseif (x)
+%! printf_assert ("fail\n");
+%! else
+%! printf_assert ("pass\n");
+%! endif
+%! assert(prog_output_assert("pass"));
+
+%% test/octave.test/if/if-6.m
+%!test
+%! x = 0;
+%! y = -2;
+%! if (y)
+%! printf_assert ("pass\n");
+%! elseif (x)
+%! printf_assert ("fail\n");
+%! elseif (x)
+%! printf_assert ("fail\n");
+%! end
+%! assert(prog_output_assert("pass"));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_image.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_image.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_index-wfi-f.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_index-wfi-f.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,429 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/index-wfi-f/s-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [];
+%! assert(isempty (a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(a(1),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(a(:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(a(:,:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(a(1,:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(a(:,1),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! assert(isempty (a(logical (0))));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(-1)");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(2);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(2,:);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(:,2);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(-1,:);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a(:,-1);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([1,2,3]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([1;2;3]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-16.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([1,2;3,4]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-17.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([0,1]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-18.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([0;1]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-19.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([-1,0]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/s-20.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 1;
+%! fail("a([-1;0]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(1),4);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(2),3);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(:) == a_prime));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(1,:) == a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(:,3),2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(:,:) == a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(logical ([0,1,1,0])) == mid_a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(5);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(0,1);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a(logical (0),:)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(:,0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a([])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a([],:)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/v-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a(:,[])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/m-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! assert(all (all (a(:,:) == a)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/m-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! assert(all (a(:) == a_fvec));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/m-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/m-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! assert(a(2),3);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-f/misc.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [1,2;3,4];
+%! b = a;
+%! b(:,:,2) = [5,6;7,8];
+%! a1 = [1; 3; 2; 4];
+%! a2 = [1, 3];
+%! a3 = [1, 2; 3, 4];
+%! a4 = [1; 3];
+%! a5 = 1;
+%! a6 = [1; 3];
+%! a7 = [1, 2; 3, 4];
+%! a8(:,:,1) = [1, 2; 3, 4];
+%! a8(:,:,2) = [1, 2; 3, 4];
+%! a9(:,:,1,1) = [1, 2; 3, 4];
+%! a9(:,:,1,2) = [1, 2; 3, 4];
+%! a10(:,:,1,1) = [1, 2; 3, 4];
+%! a10(:,:,2,1) = [1, 2; 3, 4];
+%! a10(:,:,1,2) = [1, 2; 3, 4];
+%! a10(:,:,2,2) = [1, 2; 3, 4];
+%! a11 = zeros (1, 0);
+%! a12 = zeros (1, 0, 2);
+%! a13 = zeros (1, 1, 0);
+%! b1 = [1; 3; 2; 4; 5; 7; 6; 8];
+%! b2 = [1, 2, 5, 6; 3, 4, 7, 8];
+%! b3 = [1; 3];
+%! b4(:,:,1) = [1, 2; 3, 4];
+%! b4(:,:,2) = [5, 6; 7, 8];
+%! b5 = [1; 3];
+%! b6(:,:,1,1) = [1; 3];
+%! b6(:,:,1,2) = [1; 3];
+%! b7 = 5;
+%! b8 = [5, 6];
+%! b9 = [1, 2, 5, 6];
+%! b10 = zeros (1, 0, 2);
+%! b11 = zeros (1, 0);
+%! 
+%! assert(a(:),a1);
+%! assert(a(1:2), a2);
+%! assert(a(:,:), a3);
+%! assert(a(:,1), a4);
+%! assert(a(1,1), a5);
+%! assert(a(1:2,1), a6);
+%! assert(a(:,:,1), a7);
+%! assert(a(:,:,[1,1]), a8);
+%! assert(a(:,:,1,[1,1]), a9);
+%! assert(a(:,:,[1,1],[1,1]), a10);
+%! assert(a(1,[]), a11);
+%! assert(a(1,[],[1,1]), a12);
+%! assert(a(1,1,[]), a13);
+%! assert(b(:), b1);
+%! assert(b(:,:), b2);
+%! assert(b(:,1), b3);
+%! assert(b(:,:,:), b4);
+%! assert(b(:,1,1), b5);
+%! assert(b(:,1,1,[1,1]), b6);
+%! assert(b(1,3), b7);
+%! assert(b(1,[3,4]), b8);
+%! assert(b(1,1:4), b9);
+%! assert(b(1,[],:), b10);
+%! assert(b(1,[]), b11);
+%! warn_fortran_indexing = wfi;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_index-wfi-t.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_index-wfi-t.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,365 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/index-wfi-t/s-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [];
+%! assert(isempty (a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(a(1),1);
+%! warn_fortran_indexing = wfi;
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(a(:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(a(:,:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(a(1,:),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(a(:,1),1);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! assert(isempty (a(logical (0))));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(-1);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(2);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(2,:);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(:,2);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(-1,:);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a(:,-1);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([1,2,3]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([1;2;3]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-16.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([1,2;3,4]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-17.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([0,1]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-18.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([0;1]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-19.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([-1,0]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/s-20.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 1;
+%! fail("a([-1;0]);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(1),4);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(2),3);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(:) == a_prime));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(1,:) == a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(a(:,3),2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(:,:) == a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(all (a(logical ([0,1,1,0])) == mid_a));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(5);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(0,1);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a(logical (0),:)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! fail("a(:,0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a([])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a([],:)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/v-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [4,3,2,1];
+%! a_prime = [4;3;2;1];
+%! mid_a = [3,2];
+%! assert(isempty (a(:,[])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/m-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! assert(all (all (a(:,:) == a)));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/m-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! assert(all (a(:) == a_fvec));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/m-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/index-wfi-t/m-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [1,2;3,4];
+%! a_fvec = [1;3;2;4];
+%! a_col_1 = [1;3];
+%! a_col_2 = [2;4];
+%! a_row_1 = [1,2];
+%! a_row_2 = [3,4];
+%! fail("a(2);","warning");
+%! warn_fortran_indexing = wfi;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_infnan.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_infnan.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,47 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/infnan/infnan-1.m
+%!test
+%! a = Inf;
+%! assert(!(finite (a)));
+
+%% test/octave.test/infnan/infnan-2.m
+%!test
+%! a = Inf;
+%! assert(isinf (a));
+
+%% test/octave.test/infnan/infnan-3.m
+%!test
+%! a = Inf;
+%! assert(!(isnan (a)));
+
+%% test/octave.test/infnan/infnan-4.m
+%!test
+%! b = NaN;
+%! assert(!(finite (b)));
+
+%% test/octave.test/infnan/infnan-5.m
+%!test
+%! b = NaN;
+%! assert(!(isinf (b)));
+
+%% test/octave.test/infnan/infnan-6.m
+%!test
+%! b = NaN;
+%! assert(isnan (b));
+
+%% test/octave.test/infnan/infnan-7.m
+%!test
+%! c = rand ();
+%! assert(finite (c));
+
+%% test/octave.test/infnan/infnan-8.m
+%!test
+%! c = rand ();
+%! assert(!(isinf (c)));
+
+%% test/octave.test/infnan/infnan-9.m
+%!test
+%! c = rand ();
+%! assert(!(isnan (c)));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_io.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_io.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,555 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/io/load-save.m
+%!function [ret, files] = testls (input)
+%!  ## flag a1 global so as to test the storage of global flags
+%!  global a1;
+%!
+%!  ## Input or output, so as to be able to exchange between versions
+%!  if (nargin < 1)
+%!    input = 0;
+%!  endif
+%!
+%!  ## Force the random seed to be the same
+%!  rand("seed",1);
+%!
+%!  ## Setup some variable to be saved or compared to loaded variables
+%!
+%!  ## scalar
+%!  a1 = 1;
+%!  ## matrix
+%!  a2 = hilb(3);
+%!  ## complex scalar
+%!  a3 = 1 + 1i;
+%!  ## complex matrix
+%!  a4 = hilb(3) + 1i*hilb(3);
+%!  ## bool
+%!  a5 = (1 == 1);
+%!  ## bool matrix
+%!  a6 = ([ones(1,5), zeros(1,5)] == ones(1,10));
+%!  ## range
+%!  a7 = 1:10;
+%!  ## structure
+%!  a8.a = a1;
+%!  a8.b = a3;
+%!  ## cell array
+%!  a9{1} = a1;
+%!  a9{2} = a3; 
+%!  ## string
+%!  a10 = ["test"; "strings"];
+%!  ## int8 array
+%!  a11 = int8(floor(256*rand(2,2)));
+%!  ## int16 array
+%!  a12 = int16(floor(65536*rand(2,2)));
+%!  ## int32 array
+%!  a13 = int32(floor(1e6*rand(2,2)));
+%!  ## int64 array
+%!  a14 = int64(floor(10*rand(2,2)));
+%!  ## uint8 array
+%!  a15 = uint8(floor(256*rand(2,2)));
+%!  ## uint16 array
+%!  a16 = uint16(floor(65536*rand(2,2)));
+%!  ## int32 array
+%!  a17 = uint32(floor(1e6*rand(2,2)));
+%!  ## uint64 array
+%!  a18 = uint64(floor(10*rand(2,2)));
+%!  ## sparse
+%!  a19 = sprandn(100,100,0.01);
+%!  ## complex sparse
+%!  a20 = sprandn(100,100,0.01) + 1i * sprandn(100,100,0.01);
+%!
+%!  ret = 0;
+%!
+%!  files = {"ascii.mat", "binary.mat", "mat5.mat", "mat7.mat"};
+%!  opts = {"-z -text", "-z -binary", "-z -mat", "-v7"};
+%!
+%!  vars = "a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20";
+%!  if (! input)
+%!    for i = 1:length(files)
+%!      eval (["save " opts{i} " " files{i} " " vars]);
+%!    endfor
+%!  else
+%!    b1 = a1; b2 = a2; b3 = a3; b4 = a4; b5 = a5;
+%!    b6 = a6; b7 = a7; b8 = a8; b9 = a9;
+%!    b10 = a10; b11 = a11; b12 = a12; b13 = a13; b14 = a14; b15 = a15;
+%!    b16 = a16; b17 = a17; b18 = a18; b19 = a19; b20 = a20;
+%!
+%!    for f = files
+%!
+%!      clear a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a19 a20;
+%!
+%!      file = f{1};
+%!
+%!      eval(["load -force " file]);
+%!
+%!      if (a1 != b1)
+%!	  error(["failed: " file " scalar"])
+%!      endif
+%!      if (a2 != b2)
+%!	  error(["failed: " file " matrix"]);
+%!      endif
+%!      if (a3 != b3)
+%!  	  error(["failed: " file " complex scalar"]);
+%!      endif
+%!      if (a4 != b4)
+%!	  error(["failed: " file " complex matrix"]);
+%!      endif
+%!      if (a5 != b5)
+%!	  error(["failed: " file " boolean"]);
+%!      endif
+%!      if (!strcmp (file,"mat5") && !strcmp(file,"mat7"))
+%!        if (a6 != b6)
+%!	    error(["failed: " file " boolean matrix"]);
+%!        endif
+%!      endif
+%!      if (a7 != b7)
+%!	  error(["failed: " file " range"]);
+%!      endif
+%!
+%!      ## != not implemented for structs!!!!
+%!      if (!isstruct(a8) || (length(fieldnames(a8)) != 2) || !isfield(a8,"a")
+%!	  || !isfield(a8,"b") || (a8.a != b8.a) || (a8.b != b8.b))
+%!	  error(["failed: " file " struct"]);
+%!      endif
+%!      
+%!      ## != not implemented for cell arrays!!!!
+%!      if (!iscell(a9) || (size(a9) != size(b9)) || (a9{1} != b9{1})
+%!	  || (a9{2} != b9{2}))
+%!	  error(["failed: " file " cell"]);
+%!      endif
+%!      
+%!      if (a10 != b10)
+%!	  error(["failed: " file " string"]);
+%!      endif
+%!
+%!      if (a11 != b11)
+%!	  error(["failed: " file " int8"]);
+%!      endif
+%!
+%!      if (a12 != b12)
+%!	  error(["failed: " file " int16"]);
+%!      endif
+%!
+%!      if (a13 != b13)
+%!	  error(["failed: " file " int32"]);
+%!      endif
+%!
+%!      if (a14 != b14)
+%!	  error(["failed: " file " int64"]);
+%!      endif
+%!
+%!      if (a15 != b15)
+%!	  error(["failed: " file " uint8"]);
+%!      endif
+%!
+%!      if (a16 != b16)
+%!	  error(["failed: " file " uint16"]);
+%!      endif
+%!
+%!      if (a17 != b17)
+%!	  error(["failed: " file " uint32"]);
+%!      endif
+%!
+%!      if (a18 != b18)
+%!	  error(["failed: " file " uint64"]);
+%!      endif
+%!
+%!      if (a19 != b19)
+%!	  error(["failed: " file " sparse"]);
+%!      endif
+%!
+%!      if (a20 != b20)
+%!	  error(["failed: " file " complex sparse"]);
+%!      endif
+%!
+%!      ## Test for global flags
+%!      if (!isglobal("a1") || isglobal("a2") || isglobal("a3") || 
+%!	  isglobal("a4") || isglobal("a5") || isglobal("a6") || 
+%!	  isglobal("a7") || isglobal("a8") || isglobal("a9") || 
+%!	  isglobal("a10") || isglobal("a11") || isglobal("a12") ||
+%!	  isglobal("a13") || isglobal("a14") || isglobal("a15") ||
+%!	  isglobal("a16") || isglobal("a17") || isglobal("a18") ||
+%!	  isglobal("a19") || isglobal("a20"))
+%!	  error (["failed: " file " global test"]); 
+%!      endif
+%!    endfor
+%!  endif
+%!
+%!  ret = 1;
+%!
+%!test
+%! 
+%! [save_status, save_files] = testls (0);
+%! [load_status, load_files] = testls (1);
+%! 
+%! for f = [save_files, load_files]
+%!   unlink (f{1});
+%! endfor
+%! 
+%! assert(save_status && load_status);
+
+%% XXX FIXME XXX Disable this test as it writes to stdout and there is no easy
+%% way to recover output. Need to spawn new octave process and pipe stdout
+%% somewhere to treat this case
+%% test/octave.test/io/puts-1.m
+%!#test
+%! puts ("foo\n");
+
+%% test/octave.test/io/puts-2.m
+%!assert(puts (1),-1);
+
+%% test/octave.test/io/puts-3.m
+%!error <... puts:.*> puts ();
+
+%% test/octave.test/io/puts-4.m
+%!error <... puts:.*> puts (1, 2);
+
+%% test/octave.test/io/sscanf-1.m
+%!test
+%! [a, b, c] = sscanf ("1.2 3 foo", "%f%d%s", "C");
+%! [v1, c1, m1] = sscanf ("1 2 3 4 5 6", "%d");
+%! [v2, c2, m2] = sscanf ("1 2 bar 3 4 5 6", "%d");
+%! 
+%! assert((a == 1.2 && b == 3 && c == "foo"
+%! && v1 == [1; 2; 3; 4; 5; 6] && c1 == 6 && isstr (m1)
+%! && v2 == [1; 2] && c2 == 2 && isstr (m2)));
+
+%% test/octave.test/io/sscanf-2.m
+%!error <... sscanf:.*> sscanf ();
+
+%% test/octave.test/io/sscanf-3.m
+%!error sscanf (1, 2);
+
+%% test/octave.test/io/sscanf-4.m
+%!error <... sscanf:.*> sscanf ("foo", "bar", "C", 1);
+
+%% test/octave.test/io/sscanf-5.m
+%!test
+%! [x, n] = sscanf("   0.024000 0.200 0.200 2.000         1987           5           0  0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 2 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 4 5 1 2    2 5 5 8 2 8 12 6 15 18 28 26 47 88 118 162 192 130 88 56 27 23 14 9 6 3 4 1 0    2 3 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0   0.026000 0.250 0.250 2.100         3115           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0    0 0 0 0 1 0 1 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 1 1 0 1    1 1 0 1 0 1 3 2 0 5 15 25 44 66 145 179 193 172 104 57 17 11 12 2 1 0 1 1 0 1    0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.028000 0.300 0.300 2.200         4929           3           0  1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0    1 0 1 0 1 2 2 3 2 3 14 21 49 80 148 184 218 159 124 63 37 13 12 3 1 1 0 0 0 0    0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0    0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.030000 0.350 0.350 2.300         7051           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0    0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1    0 0 1 0 0 0 2 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1    0 0 0 2 0 0 0 1 5 6 14 28 51 88 154 177 208 169 124 65 39 15 5 3 3 2 1 0 1 0 1   0 0 0 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0    0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.032000 0.400 0.400 2.400         9113           4           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0    1 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 2 0    1 0 0 1 1 0 2 3 5 3 17 30 60 117 156 189 209 129 102 64 56 16 11 4 2 2 0 0 0 0   1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0   0.034000 0.450 0.450 2.500        11811           6           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0    0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0    0 0 2 1 0 0 1 0 5 5 15 21 57 99 149 190 195 159 130 69 41 16 10 2 5 3 0 1 0 0    0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.036000 0.500 0.500 2.600        14985           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 1 0 0 0 0    0 0 0 0 1 0 0 2 2 6 10 34 60 95 126 177 194 155 99 71 44 17 6 7 2 0 0 0 3 0 0    1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.038000 0.550 0.550 2.700        18391           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0    0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2    1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 2 0 0 1 1 0 1    2 1 0 0 0 1 0 1 3 6 19 27 52 95 161 154 169 134 94 64 37 19 9 6 0 2 1 0 0 0 0    1 2 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 2 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0    0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.040000 0.600 0.600 2.800        22933           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 1    0 0 0 0 0 2 0 3 4 7 18 27 47 82 134 163 133 138 101 58 34 26 10 5 2 1 2 1 1 0    2 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0   0.042000 0.650 0.650 2.900        27719           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 1 0 0 0 1 1 2 8 16 37 51 87 128 153 146 123 105 62 35 24 8 3 5 0 1 2 1 0 0   0 1 1 1 0 0 0 1 0 1 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0    0 0 1 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.044000 0.700 0.700 3.000        32922           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0 2 0    0 0 0 0 0 0 0 2 1 0 0 0 0 1 1 1 1 0 0 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 1 0 1 1    1 1 0 0 0 1 4 3 5 5 15 35 54 88 132 168 149 105 92 62 30 16 17 4 5 1 0 0 1 0 1   1 0 1 1 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.046000 0.750 0.750 3.100        38973           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0    0 0 0 1 0 0 0 4 3 5 20 37 56 94 110 135 149 124 84 58 36 17 14 7 1 0 2 0 1 0 0   1 1 0 0 0 0 0 1 1 0 0 0 1 0 1 1 0 0 1 1 1 0 0 0 0 1 1 0 0 1 0 0 0 0 1 0 0 0 1    1 0 1 0 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0    1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.048000 0.800 0.800 3.200        45376           5           0  1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0    0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 1 1 0 0 2 1 1 2 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0    0 0 0 1 0 0 0 0 1 3 18 34 55 82 104 135 116 99 79 60 51 29 10 4 3 1 1 1 0 0 1    0 0 0 1 0 0 3 1 2 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1    0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0    1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.050000 0.850 0.850 3.300        52060           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1    0 0 0 0 0 2 2 1 3 12 24 40 39 107 121 127 138 100 86 68 44 23 15 7 3 1 1 0 1 1   0 0 2 0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0 0 2 0 0 0 1 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.052000 0.900 0.900 3.400        59454           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 1    0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0    0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 1 0 0 2 0 2 1 0 0 0 1 0    0 1 0 0 0 0 0 3 3 6 21 32 68 90 132 111 122 107 73 57 47 24 11 7 4 2 2 1 0 0 0   0 0 0 0 0 1 0 0 1 0 0 2 0 1 1 0 0 1 0 0 0 0 0 3 0 1 0 0 0 0 1 1 0 0 0 1 0 0 0    0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0   0.054000 0.950 0.950 3.500        67013           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 0 1 0 0 0 0 1 0 0 1 1 0 0 0    1 0 1 0 1 2 4 3 7 9 28 31 71 94 115 96 108 78 82 60 38 17 12 11 4 3 1 1 0 2 1    0 0 0 2 1 3 0 0 0 0 3 0 0 1 0 0 0 0 0 0 0 2 0 0 0 1 0 2 0 1 0 2 0 1 0 0 1 0 0    0 1 0 0 0 1 0 0 1 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0   0.056000 1.000 1.000 3.600        75475           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 2 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 3 0 0 1    1 2 0 1 4 0 1 8 6 7 17 41 56 71 109 113 84 103 72 54 35 22 6 9 1 7 5 4 0 0 1 0   0 0 0 0 0 1 0 0 2 1 0 0 0 0 2 0 0 1 0 0 1 0 0 0 0 0 0 1 0 2 0 1 0 0 0 0 1 0 1    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 3 0 0 0 1 0 0 0 0 0 0 1 1 0 0 2 0 0 0 0    0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0   0.058000 1.050 1.050 3.700        83558           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0    0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 1 2 0 0    2 0 0 1 0 3 2 3 6 15 27 41 77 73 94 94 92 76 61 56 42 23 13 11 6 2 1 2 0 1 2 0   0 1 0 1 0 0 1 0 0 1 1 1 0 0 0 1 0 0 0 1 0 0 0 0 1 1 0 0 0 0 2 0 0 0 0 0 1 2 0    0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0   0.060000 1.100 1.100 3.800        93087           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1    0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 2 2 0 0 0 1 0 1 1 0 0 0 1 1 0 4    0 0 1 2 0 3 1 3 5 13 33 31 65 75 77 96 97 80 59 45 36 32 18 2 5 0 1 0 0 1 0 0    3 0 0 0 0 1 0 0 0 0 0 1 0 0 1 2 0 0 0 0 1 0 0 0 0 1 0 1 1 1 0 0 2 0 0 2 0 1 0    0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0    0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.062000 1.150 1.150 3.900       102829           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0    0 0 0 0 0 1 1 1 0 0 0 0 1 1 0 0 1 0 1 0 0 0 0 0 1 1 1 0 1 0 1 1 0 1 1 0 2 0 2    1 2 0 0 2 4 3 5 11 9 23 43 53 68 65 87 83 77 59 49 34 18 15 9 4 2 3 2 0 0 0 4    0 1 1 0 0 2 0 0 1 0 0 0 0 1 1 1 0 1 0 0 0 0 2 0 0 0 0 1 0 0 1 1 1 1 0 0 0 1 0    0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0   0.064000 1.200 1.200 4.000       113442           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 0 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0    0 0 0 0 0 1 0 1 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 1 1 1 0 1 1 1 1 1 0 0 0 1    2 0 0 0 2 0 4 5 11 13 29 39 61 68 61 75 76 74 73 44 37 29 19 6 3 3 2 0 1 2 1 0   0 0 0 1 1 1 0 1 1 0 0 0 1 0 1 1 0 1 2 0 2 1 1 1 0 0 0 0 1 0 0 1 1 1 1 1 0 0 0    0 0 0 0 1 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0    0 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0   0.066000 1.250 1.250 4.100       126668           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0    0 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1    0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 1 0 0 0 1 1 2 3 0 2 1 2 0 1 0 3 0 0 0 1 0 1 1 3    0 0 1 3 0 2 4 3 12 12 30 48 56 66 77 78 71 82 52 31 32 19 20 16 8 2 1 3 0 0 2    1 0 1 0 1 0 0 0 1 3 1 0 1 0 1 1 1 0 0 0 0 0 2 0 2 0 0 0 0 0 1 0 0 0 0 1 1 0 0    0 0 0 1 0 0 0 0 0 2 0 3 1 0 0 1 0 0 0 0 0 0 1 0 1 1 0 0 0 1 0 0 0 0 1 0 0 0 0    0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.068000 1.300 1.300 4.200       138042           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 2 0 0 1 0 1 0 0 0 0 0    0 0 0 1 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0    0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 3 0 0 1 0 0 1 2 0 0 0 3 0 1 0 0 3 0    1 0 1 1 3 1 4 7 11 14 27 36 44 68 72 70 71 45 44 46 29 13 16 11 5 2 0 3 0 0 0    0 1 1 2 0 0 1 1 2 1 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 1 2 0 0 1 1 0 1 1 1 0    0 1 0 0 1 0 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0    0 0 0 1 0 0 1 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0   0.070000 1.350 1.350 4.300       152335           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0    0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0    1 0 0 0 2 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 2 0 0 0 0 1 1 1 0 1 1 0 1 1 1 1 0 2 0    0 0 0 0 2 0 1 7 14 19 34 35 54 72 68 72 68 58 48 36 37 27 25 17 1 4 1 0 0 0 1    2 2 0 0 1 1 1 2 1 0 3 1 0 1 0 2 1 0 0 0 1 1 1 2 0 0 0 0 1 1 0 1 1 0 2 1 1 1 1    0 0 0 1 1 0 0 2 0 0 1 0 0 0 1 1 0 2 1 1 0 0 0 0 2 0 0 0 0 0 0 0 1 1 0 0 0 0 1    0 0 1 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0   0.072000 1.400 1.400 4.400       166280           4           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0    0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 1 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0    2 0 0 0 0 0 0 0 1 0 1 0 1 1 1 0 0 1 0 1 0 0 3 4 2 2 0 0 0 0 0 1 1 3 1 0 3 2 2    1 2 2 0 2 2 1 8 14 26 24 29 47 47 68 65 63 55 42 41 26 29 17 8 4 4 1 0 1 2 0 0   0 1 1 2 0 1 2 1 0 0 1 1 1 0 0 1 0 0 0 1 0 0 1 2 1 2 1 0 0 0 0 0 1 1 2 0 2 2 0    0 0 0 1 1 1 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0    0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0   0.074000 1.450 1.450 4.500       179484           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0    1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 0 1 0 0 1 0 1 2 0 0 0 0 0 0 0 0 0 1 0    0 0 1 0 1 0 1 0 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 1 1 0 1 1 1 2 0 0 1 1 2 1 0    1 1 2 2 0 1 5 6 10 20 43 50 57 62 53 62 66 45 42 33 27 26 23 14 3 0 2 0 1 0 0    1 1 0 0 2 1 1 0 0 3 0 1 1 1 0 1 1 0 1 0 1 2 1 0 0 1 2 0 2 0 0 0 0 1 1 3 1 0 0    2 1 1 1 0 0 0 0 0 0 1 2 0 1 0 0 0 0 0 1 1 0 2 0 0 0 0 0 1 0 2 1 0 0 0 0 0 0 1    0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0   0.076000 1.500 1.500 4.600       197657           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 1 1 0 0 0 0 0 0 1 0 1 0    0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 2 0 0 0 1 0 0 0 0    0 0 1 0 1 0 0 0 0 0 0 0 0 1 2 0 0 0 2 1 1 0 1 1 0 1 1 3 2 1 1 2 1 0 1 0 0 0 0    0 1 1 1 0 5 3 7 12 24 38 32 41 48 54 66 71 49 46 31 38 25 15 8 6 6 5 0 1 3 0 1   1 1 1 1 0 1 2 0 1 0 0 0 1 0 2 1 2 0 0 0 0 1 3 1 0 0 0 0 1 1 0 1 0 1 1 1 1 1 0    4 1 1 1 0 3 0 0 0 2 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0    0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0   0.078000 1.550 1.550 4.700       212054           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0    0 1 0 1 1 0 0 1 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1    0 0 2 0 0 0 1 0 0 1 0 1 1 0 1 3 1 0 0 1 2 0 0 0 1 0 0 0 0 0 2 1 2 1 1 1 0 0 1    5 1 1 2 3 5 7 9 11 22 31 37 48 50 52 54 57 37 38 38 33 24 11 19 11 3 1 2 0 3 3   2 1 0 1 3 0 1 1 1 1 1 2 0 0 0 1 1 2 0 1 1 3 0 1 1 0 0 1 0 2 0 1 0 0 1 3 0 2 0    1 0 1 2 0 1 1 1 1 1 0 3 0 1 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0    0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0   0.080000 1.600 1.600 4.800       231971           3           0  0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 1 1 1 0 1 0 0 0 0 1 0 1 1    0 0 0 0 2 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 2 1 0 1 1 1 0 1 0 0 1 0 1 3 0 0 0 1 0    0 0 1 1 1 0 0 4 1 1 0 2 0 1 1 1 2 0 0 0 1 0 1 2 1 2 3 2 0 1 0 4 3 1 1 1 1 3 1    0 0 0 2 1 0 2 7 17 13 29 47 58 59 52 38 51 51 38 34 35 21 14 13 4 1 0 1 1 1 0    2 2 4 1 0 1 1 4 0 0 0 2 0 2 2 2 0 0 1 3 2 1 1 2 2 2 2 1 0 3 0 2 1 2 1 2 2 0 0    1 1 0 2 0 2 2 0 1 0 2 2 3 1 2 3 1 1 0 1 0 2 0 1 2 1 2 0 2 1 0 0 3 0 0 1 1 1 1    0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0   0.082000 1.650 1.650 4.900       252503           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 2 0 0    0 0 0 0 0 1 0 0 0 1 1 0 0 1 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0    0 0 0 0 2 0 0 1 0 1 2 2 2 1 0 2 0 1 0 1 1 2 2 0 3 0 0 4 1 0 0 3 0 0 1 2 0 1 1    1 3 0 1 0 2 9 11 25 27 34 53 41 49 43 47 36 31 38 22 30 22 18 9 5 9 2 2 1 2 2    3 1 4 1 1 0 0 1 2 0 2 1 0 0 1 3 2 2 1 0 0 0 1 2 1 0 0 0 2 1 1 0 2 0 0 1 0 0 2    1 3 1 1 1 0 2 1 1 0 2 1 0 1 3 0 0 0 0 2 0 0 1 0 0 0 0 0 1 2 1 1 1 0 2 1 0 0 0    2 0 1 0 0 0 0 1 0 0 0 0 1 0 0 2 0 1 0 1 0 0 0 0 0 0 0 0 0 0   0.084000 1.700 1.700 5.000       267889           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 0 0 0 1 0 1    0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0    0 1 0 1 1 0 3 0 1 1 1 0 1 2 1 0 2 0 2 4 0 1 0 0 0 1 1 0 1 3 2 0 2 0 4 0 0 2 0    1 4 2 4 3 3 6 10 14 28 37 54 36 40 52 40 50 46 40 32 26 29 12 18 5 2 0 2 4 1 2   1 0 2 1 2 2 1 0 1 0 2 1 2 4 1 1 5 1 0 2 0 1 2 3 2 2 1 2 1 0 2 1 2 1 1 4 1 2 1    4 0 2 2 0 0 3 1 0 2 0 0 1 1 1 0 0 2 1 0 0 0 0 0 0 0 1 1 1 1 0 0 0 1 0 0 0 1 0    0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0   0.086000 1.750 1.750 5.100       290294           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 2 0 0 0 1 0 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0    0 0 0 0 1 0 0 0 0 1 0 0 0 1 1 3 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 2    1 0 1 0 1 0 0 2 2 0 1 2 2 0 2 0 2 0 1 0 0 1 1 1 3 1 1 1 1 3 4 1 1 2 2 2 1 0 3    0 0 0 2 4 5 6 16 18 20 31 40 54 55 46 41 52 35 27 21 28 27 20 15 8 6 7 1 0 0 3   0 0 2 2 0 3 1 3 1 1 2 0 0 1 2 1 3 2 0 1 2 1 3 1 1 1 1 1 2 0 2 1 0 1 1 1 3 1 1    2 0 1 0 1 0 2 1 1 0 0 1 2 0 3 1 1 0 0 0 1 3 1 1 1 0 0 1 2 1 0 0 1 1 1 0 0 1 0    0 0 0 0 0 2 0 1 0 0 0 2 1 0 2 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0   0.088000 1.800 1.800 5.200       312476           6           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 1 0 1 1 0 0 0 0    0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 2 0 0 0 1 0 1 0 0 0 0 0 0 2    1 0 0 1 0 0 1 1 1 1 4 2 0 1 0 0 3 0 0 0 0 0 1 1 4 0 0 0 0 1 1 2 1 0 3 0 0 2 2    4 0 3 1 6 9 10 13 21 24 32 43 33 41 43 49 50 32 26 31 27 12 16 17 3 3 3 5 0 3    0 2 1 3 3 2 1 2 3 1 2 1 1 1 2 0 1 1 0 2 0 3 0 0 2 0 0 0 0 1 0 1 1 3 3 0 1 1 1    1 1 1 2 2 2 0 3 1 0 2 2 2 0 0 0 0 3 1 2 5 1 1 2 0 0 3 3 0 2 2 0 0 0 0 1 2 0 0    1 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0   0.090000 1.850 1.850 5.300       337348           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 2 0 1 0 1 0 0 0 1 0 0 0    0 0 0 1 0 0 0 0 2 0 1 1 0 0 0 1 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0    2 0 0 0 1 3 2 0 0 2 2 3 3 2 2 2 0 0 1 1 3 1 3 0 0 0 0 0 0 1 2 1 2 1 2 2 2 0 1    1 0 4 2 2 7 6 15 22 21 39 37 50 31 51 30 33 34 34 26 21 14 13 10 9 4 3 3 4 2 2   0 1 2 3 3 0 1 3 2 5 3 2 2 4 0 2 3 0 4 2 1 2 2 2 4 2 1 3 1 3 2 1 3 1 2 4 1 1 1    1 2 4 1 3 3 3 1 0 4 1 0 1 1 1 1 2 3 0 3 0 0 4 1 1 1 0 2 2 2 1 2 2 0 1 1 0 0 0    2 0 1 0 1 0 0 1 0 0 0 1 3 0 0 1 0 0 1 1 1 0 0 1 0 0 0 0 0 0   0.092000 1.900 1.900 5.400       357303           3           0  0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 1 1 0 1 0 0 1 0    0 0 0 0 0 0 1 1 0 0 1 0 0 0 0 0 0 1 3 1 0 1 0 0 0 0 1 0 0 1 0 0 1 1 2 2 0 0 2    2 1 1 1 1 1 1 0 1 0 0 1 1 1 3 1 1 1 1 1 0 1 4 0 1 1 1 3 0 1 1 2 2 2 0 2 3 2 2    2 2 1 2 1 3 8 22 14 32 36 46 39 42 39 29 36 38 26 24 26 18 16 19 10 9 3 6 5 0    3 2 1 1 1 2 0 2 1 1 0 1 1 3 1 0 2 4 2 2 1 4 1 2 2 1 1 0 1 2 0 2 2 2 4 2 1 1 0    2 1 3 1 2 3 4 2 3 2 3 0 1 2 1 0 0 0 4 1 1 1 2 1 3 1 0 5 1 0 0 0 0 0 0 1 0 2 0    1 2 1 0 1 0 0 0 0 0 1 1 0 1 0 1 4 0 0 0 1 0 1 0 0 0 0 0 0 0 0   0.094000 1.950 1.950 5.500       383138           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 1 1 0 1 0 0 0 1 0 0 0 0 0 1 0    0 0 1 0 0 2 1 0 1 1 1 0 0 0 0 0 0 1 1 0 1 0 0 1 1 0 1 0 0 0 0 0 0 0 2 1 1 1 1    2 1 0 2 0 1 0 3 2 1 3 0 1 3 1 1 0 5 0 1 0 1 2 0 0 1 1 2 0 0 6 1 0 3 2 2 3 4 5    0 4 2 1 5 4 11 15 22 27 28 57 38 38 40 38 39 38 27 26 30 18 14 10 10 4 4 4 3 3   2 2 2 2 1 1 1 1 2 2 3 4 1 2 3 1 2 1 2 2 2 1 3 2 1 5 0 1 1 1 3 2 2 2 1 3 1 1 0    3 2 2 0 0 2 2 2 0 0 0 2 0 1 3 1 2 3 2 1 1 0 1 1 1 0 3 2 2 1 0 0 1 3 1 1 0 1 0    0 0 0 0 1 0 0 0 0 1 0 0 3 1 0 0 0 0 1 0 1 1 0 0 0 1 0 0 0 0 0   0.096000 2.000 2.000 5.600       409868           3           0  0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 1 0 1 0 1 0 2 0 0    1 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 2 0 1 0 0 2 0 2 0 0 0 0 1 0 0 2 1    2 2 2 1 2 1 1 1 1 1 2 0 0 1 1 0 1 0 2 1 2 0 2 0 3 1 2 1 3 1 5 0 2 2 1 2 4 1 2    0 3 1 4 7 5 9 13 22 19 31 27 28 41 34 39 37 22 23 21 22 17 23 15 8 9 3 8 0 3 1   2 2 2 3 1 0 4 2 4 2 2 2 2 4 2 1 1 0 2 0 3 0 3 2 2 1 2 2 1 4 1 2 2 1 1 5 2 1 2    1 2 2 1 0 2 4 3 2 1 2 2 3 2 3 1 2 1 1 1 1 2 1 1 2 2 1 2 3 2 1 1 0 2 2 4 0 1 1    1 1 1 0 0 1 1 3 0 0 0 0 0 1 0 0 2 0 1 2 0 1 1 1 0 1 0 1 0 0   0.098000 2.050 2.050 5.700       439102           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 1 1 0 0 1 0 1 0 1 0 0 0 0 1 1 0 1 0 0 1 1 0    0 1 1 0 0 1 1 0 1 0 0 0 0 0 0 0 1 2 0 0 1 1 1 1 2 0 1 1 0 0 0 0 1 1 1 0 4 0 0    0 2 1 1 0 3 4 0 1 2 2 1 0 3 0 3 2 0 0 2 0 1 0 0 1 0 1 3 1 3 5 0 2 2 3 5 2 2 2    0 3 2 3 6 5 16 21 19 23 28 29 35 42 42 44 39 33 23 30 18 25 24 15 13 5 4 2 2 0   3 3 0 0 1 3 0 1 1 3 2 4 3 4 2 1 1 1 3 1 0 0 2 2 4 2 2 1 4 2 4 2 2 2 1 2 2 1 2    0 4 2 2 3 1 2 1 1 2 2 1 2 4 2 1 4 1 2 2 2 2 0 2 0 3 0 1 0 2 1 0 4 2 1 3 2 1 0    2 1 1 1 1 0 1 1 2 1 1 1 2 0 1 0 2 1 1 0 0 1 0 0 1 0 0 0 0 0 0   0.100000 2.100 2.100 5.800       467340           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 0 0 1 2 0 0 0 0 0 1 0 2 0 0 2 0 0 1 1 0 0    0 1 0 0 1 1 0 0 0 0 1 1 0 0 1 0 0 1 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 0 0 1 2 0 2    2 4 1 0 1 1 2 3 4 1 4 1 5 1 2 1 0 2 2 2 1 5 4 1 5 4 0 1 2 4 2 2 0 2 1 2 5 4 1    1 1 2 5 7 9 16 23 31 15 22 36 36 44 42 29 31 28 28 18 35 12 10 13 8 4 3 2 2 5    1 2 3 3 1 3 3 5 2 0 3 4 1 2 2 3 0 0 5 2 3 6 2 1 2 5 3 4 3 1 1 1 1 2 2 4 0 2 3    1 2 1 2 4 5 4 3 5 2 1 2 0 5 0 2 2 4 1 0 4 1 0 2 1 2 0 0 1 3 2 4 3 0 2 3 3 3 4    2 2 0 0 0 0 1 1 0 3 2 0 1 2 0 4 2 1 1 1 2 0 0 0 0 0 0 0 0 0 0   0.102000 2.150 2.150 5.900       497495           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 1 0 2 1 0 0 0 0 1 0 1 0 0 0 0 1 2    0 0 0 0 0 2 0 0 1 0 1 0 0 0 0 1 1 0 0 0 1 1 1 1 2 0 0 1 0 0 0 1 0 2 2 1 0 0 0    2 0 2 1 1 1 6 3 2 0 3 2 2 2 1 1 3 4 1 0 1 2 4 2 3 3 1 1 1 1 3 3 1 4 1 3 4 3 2    3 1 2 2 5 11 11 14 26 27 28 28 28 36 39 42 29 33 24 20 29 18 13 17 13 6 10 4 3   3 6 1 0 1 0 2 1 3 2 3 1 2 3 1 2 1 2 0 2 2 3 1 3 1 1 2 4 4 1 4 3 2 2 3 5 5 3 0    2 5 3 5 1 4 1 1 3 4 2 2 2 2 1 3 0 1 1 2 2 4 2 1 3 2 0 1 2 1 0 2 3 1 2 0 0 0 2    0 0 1 3 0 0 1 2 0 3 1 0 3 1 2 2 1 1 2 0 0 0 0 2 0 0 1 0 0 0 0 0   0.104000 2.200 2.200 6.000       529288           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0    0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 1 3 0 2 0 2 0 0    3 2 2 0 4 0 3 2 2 1 3 1 7 3 1 1 0 4 3 2 1 0 0 3 2 3 5 2 1 4 1 5 1 0 3 2 3 0 1    2 4 7 3 7 8 12 15 20 24 34 39 34 35 27 36 34 23 22 26 15 24 12 12 14 5 3 0 7 1   1 3 5 1 2 2 2 4 3 1 2 5 2 2 3 1 1 4 2 1 3 0 4 5 4 6 4 5 3 3 3 3 1 1 5 0 6 1 2    4 2 3 2 1 3 2 0 0 0 1 3 3 0 1 4 0 3 2 3 0 3 3 0 2 3 4 3 1 1 1 2 5 3 1 2 1 1 2    4 1 0 2 4 1 3 0 0 3 0 1 3 0 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0   0.106000 2.250 2.250 6.100       560628           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 0 1 0 1 0 1 0 1 0 0 1 0 0 0 0 0 0 1 1 0 1    1 0 0 1 1 1 0 1 1 0 0 0 1 1 1 1 0 0 1 1 2 0 0 0 0 2 0 3 1 1 0 0 2 2 2 0 5 2 1    1 1 1 3 1 2 3 0 1 0 0 0 0 1 0 2 2 1 2 1 0 4 3 2 1 2 1 0 4 2 2 0 2 1 1 2 3 1 2    1 2 4 4 11 12 17 19 19 29 30 24 30 35 51 32 36 34 31 19 22 17 11 19 11 7 6 6 3   4 0 3 3 2 0 2 2 2 3 1 5 3 2 3 5 1 0 2 2 5 4 2 3 2 0 1 6 1 2 2 2 2 1 1 2 2 1 4    3 2 2 1 2 5 2 0 2 0 2 5 4 5 2 1 3 6 1 3 4 4 0 0 6 0 2 6 1 2 2 2 0 1 3 1 3 4 2    1 4 2 1 2 3 3 0 3 1 0 2 0 2 1 0 2 1 2 0 0 1 1 0 2 0 0 0 0 0 0 0   0.108000 2.300 2.300 6.200       593293           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 2 0 2 2 1 0 0 2 0 1 0 1 0 0 1 2 2 1 0    0 1 0 2 0 0 0 0 0 1 1 1 1 1 0 0 1 1 0 0 1 1 1 2 2 1 0 1 1 0 1 5 0 2 4 1 0 1 4    2 1 3 2 2 3 2 3 2 0 0 3 4 3 1 3 2 2 0 3 0 2 4 0 3 2 5 1 2 1 4 6 1 2 4 0 3 6 1    7 6 4 5 4 10 16 24 22 20 40 37 44 34 29 21 28 36 36 27 23 24 14 10 4 5 2 5 3 6   2 3 3 1 4 2 1 5 1 3 5 3 2 1 2 2 6 2 3 1 1 0 5 3 3 3 4 5 2 2 3 3 5 5 1 6 2 3 2    6 0 5 2 4 3 5 1 2 2 5 1 2 3 1 2 2 2 4 2 5 5 2 2 2 5 0 1 2 5 2 3 2 3 1 1 2 4 0    2 1 4 2 1 1 1 0 1 2 0 0 1 3 1 0 2 1 1 3 3 2 0 0 0 1 2 0 0 0 0   0.110000 2.350 2.350 6.300       636559           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 1 1 0 0 0 1 1 2 0 0 1 0 0 0 0 0 0 0    1 2 0 0 1 1 1 0 0 0 0 1 0 1 1 0 0 1 0 0 2 0 1 0 1 0 1 0 0 1 1 3 0 1 2 2 0 2 1    1 1 1 0 1 0 1 3 0 3 2 3 4 3 3 4 3 3 2 6 3 1 1 1 2 4 2 3 1 5 1 3 1 4 5 3 3 2 1    3 7 4 3 10 19 17 19 23 27 28 33 39 36 23 23 32 32 16 19 35 23 12 11 12 8 4 5 7   1 2 2 1 2 3 5 4 2 3 2 6 4 4 2 4 1 2 2 1 2 3 0 4 2 1 2 6 2 2 1 3 3 1 6 4 8 5 2    3 5 2 3 0 3 2 3 1 2 2 3 4 3 8 6 2 1 4 6 3 1 2 0 2 0 2 5 0 3 3 3 3 1 3 3 2 5 4    2 1 4 2 2 4 4 1 3 2 5 2 3 1 2 0 4 0 1 0 6 3 1 2 0 2 0 1 0 0 0 0   0.112000 2.400 2.400 6.400       670484           3           0  0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 1 1 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 2    0 1 1 1 3 0 0 0 2 1 3 0 1 1 1 0 1 1 1 0 0 1 2 0 1 3 1 5 2 3 0 4 0 2 0 0 1 2 1    0 1 0 0 1 0 2 2 3 2 3 2 2 2 3 4 4 2 3 5 3 3 2 3 3 4 2 4 0 3 2 4 4 1 3 1 3 4 2    2 5 2 8 6 12 17 14 22 27 26 29 39 30 24 36 22 22 20 9 19 15 5 12 16 4 7 5 7 5    5 1 4 5 5 4 4 1 4 4 3 3 3 4 2 2 4 2 4 4 4 4 0 2 3 2 1 4 3 6 1 3 3 3 4 5 4 2 2    2 5 3 0 2 5 4 2 5 3 5 1 1 3 1 1 3 6 6 2 3 2 0 3 2 4 3 4 1 2 2 6 2 0 3 2 2 5 3    3 5 2 1 0 3 1 1 2 2 0 1 1 3 2 3 2 1 1 1 1 3 2 1 0 0 0 0 0 0 0   0.114000 2.450 2.450 6.500       711783           4           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 1 0 0 1 0 2 1 2 0 1 0 0 1 0 0 1 1 1 1 0 0 0 1    1 2 0 1 1 0 0 0 2 1 1 1 1 1 2 1 2 3 3 1 1 1 2 3 1 3 2 2 1 0 1 1 4 4 4 1 0 4 0    0 1 1 2 1 3 2 0 3 4 1 1 1 1 3 2 0 1 3 2 1 2 1 0 3 3 2 5 4 2 5 3 4 2 2 5 3 3 3    3 5 5 8 7 14 12 28 22 24 23 36 33 26 32 27 26 18 30 24 15 13 19 15 17 6 5 7 5    4 3 5 3 1 4 4 9 5 3 1 4 0 0 6 2 5 3 3 3 1 2 3 2 4 1 5 5 3 8 2 1 1 4 1 7 5 6 6    4 4 3 2 6 3 3 3 3 1 3 4 5 4 3 4 3 1 2 3 1 2 1 2 2 6 5 2 2 2 4 2 2 0 2 3 3 2 7    4 4 1 4 2 0 3 1 1 2 1 2 3 1 3 2 2 4 3 1 4 0 0 4 2 2 2 1 0 0 0 0   0.116000 2.500 2.500 6.600       745364           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 2 1 1 2 1 1 1 0 1 0 2 0 1 1    0 1 0 1 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 1 2 3 0 1 4 4 0 4 0 1 0 1 3 3 0 2 1 2 3    2 1 1 1 2 0 4 0 0 4 5 2 5 4 1 3 5 5 4 0 4 4 2 3 2 3 5 2 2 4 2 3 4 2 3 3 3 3 3    2 4 12 10 13 14 19 22 23 24 36 19 32 25 25 36 24 18 20 21 14 18 13 8 6 9 2 9 5   2 5 3 4 4 3 3 0 4 3 2 5 3 4 2 2 6 3 4 0 2 4 1 3 4 7 4 5 3 2 4 5 5 3 4 4 4 2 3    2 4 4 2 1 5 7 1 5 2 4 1 5 5 3 4 4 3 2 4 2 4 0 6 2 3 4 1 2 2 2 4 1 4 2 2 2 5 6    5 1 4 4 2 3 3 3 1 4 3 4 2 6 2 5 3 2 2 1 3 2 2 5 1 1 0 0 1 0 0 0   0.118000 2.550 2.550 6.700       791846           4           0  0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 2 1 1 0 0 0 0 0 1 0 0 0 1 1 0 1 0 1 0 1 1 0 1 0    1 4 1 2 3 0 3 1 0 1 1 1 0 3 1 2 1 1 1 0 0 1 1 1 3 1 3 2 3 1 2 2 1 3 2 4 1 4 0    2 4 1 4 3 2 1 1 2 1 3 2 3 3 2 1 1 5 3 3 3 3 2 3 4 3 5 3 1 1 2 2 3 5 1 2 1 1 4    4 6 9 6 6 13 17 21 20 24 22 25 20 29 23 28 30 26 27 18 20 17 16 17 12 10 8 5 6   6 6 4 3 1 2 4 6 9 2 2 3 5 7 6 2 3 8 5 4 5 6 4 6 5 3 5 3 2 5 3 2 8 3 5 4 5 3 5    4 3 4 8 4 3 8 3 3 3 1 1 2 2 5 4 7 3 2 3 3 2 2 3 6 3 2 2 1 1 5 2 5 6 3 5 3 4 1    3 1 2 1 0 4 1 4 2 2 2 3 1 1 1 1 3 2 0 1 6 1 1 0 2 1 0 1 0 0 0 0   0.120000 2.600 2.600 6.800       833394           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 2 1 1 1 2 1 0 0 0 1 0 1 0 0 0 1 0 0 1 1 2 1 0 0    0 0 0 2 2 0 3 1 0 0 2 1 1 1 1 0 1 2 1 5 0 1 0 2 2 1 2 0 4 2 1 4 3 4 2 2 1 2 1    5 2 3 1 3 0 2 2 2 2 3 4 0 4 2 3 3 4 5 2 2 6 3 4 5 5 5 3 4 6 5 1 3 0 5 4 5 1 3    2 2 6 18 13 17 27 27 21 28 28 24 26 27 29 23 21 16 17 19 22 14 11 9 5 14 7 7 6   4 4 12 3 6 4 5 4 6 4 2 0 1 8 1 6 8 5 2 3 4 5 6 4 2 5 8 3 1 1 6 3 7 8 4 1 6 5 2   8 11 5 6 5 6 2 4 5 1 2 7 2 2 5 5 6 3 3 2 3 8 5 1 9 3 3 2 3 6 3 5 3 2 4 6 3 1 3   5 4 4 4 6 3 3 5 0 2 2 5 1 3 2 2 1 4 2 0 2 2 2 2 4 1 2 1 2 1 1 0   0.122000 2.650 2.650 6.900       876007           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 1 1 1 1 2 2 1 0 0 1 0 0 0 1 1 0 0 0 2 0 0    4 1 0 2 1 2 0 1 2 0 1 3 2 1 0 1 1 0 1 2 1 0 2 3 3 5 3 3 3 0 1 4 0 1 5 3 4 3 1    2 2 2 4 1 3 3 3 2 3 2 3 2 1 4 4 2 2 5 5 3 4 1 2 1 2 4 2 4 7 2 4 4 2 7 3 5 7 5    3 6 8 10 10 18 21 22 24 14 25 27 29 31 22 25 24 21 27 20 19 22 19 14 13 14 10    5 7 3 4 5 5 3 1 4 3 8 4 5 4 0 3 4 3 4 1 7 6 1 1 3 4 4 3 4 3 6 4 3 4 2 4 4 3 5    6 5 1 1 6 2 6 6 3 5 5 3 2 6 5 4 3 4 6 4 3 5 5 6 5 6 2 4 2 1 2 2 4 2 7 6 2 1 3    1 5 2 1 2 4 3 3 3 2 5 2 4 1 4 3 2 2 5 5 1 1 3 3 2 2 2 2 1 0 0 0 0 0   0.124000 2.700 2.700 7.000       925764           3           0  0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 2 1 3 0 1 1 0 0 0 0 0 1 1 1 1 0 0 0 1 1 0    1 2 0 0 3 2 0 1 2 1 1 2 0 2 1 2 2 0 0 2 3 2 3 2 2 3 2 2 4 0 2 0 5 1 3 2 3 1 2    3 2 0 6 4 3 6 2 5 0 5 2 1 4 4 5 7 4 2 3 5 2 0 2 5 2 4 7 4 4 4 8 5 3 1 7 2 2 1    5 5 5 14 19 16 22 18 30 29 25 36 23 23 22 25 25 27 26 23 14 20 16 16 10 6 6 6    4 2 6 6 6 6 6 4 6 1 0 3 4 4 5 2 4 3 2 4 4 5 5 5 6 10 6 3 6 8 5 5 8 7 4 6 4 3 4   8 5 5 7 4 6 3 5 8 4 3 4 4 3 4 3 1 3 3 7 2 4 8 3 6 4 3 3 2 5 4 4 3 7 4 5 4 4 3    4 7 2 3 3 4 3 0 2 2 4 3 4 2 4 2 2 6 4 4 6 6 1 5 1 1 2 1 0 0 0 0 0   0.126000 2.750 2.750 7.100       969560           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 1 0 1 2 0 2 0 2 2 0 1 1 1 0 0 1 0 1 1 1 1 2 0    1 2 2 1 2 0 0 1 0 1 0 2 1 0 1 0 1 1 2 0 3 0 3 4 3 1 3 2 0 4 0 1 2 0 3 1 1 2 3    2 2 2 5 1 7 1 5 1 5 4 2 0 0 1 2 1 3 2 3 3 5 4 10 10 2 5 11 4 1 2 1 7 3 5 4 4 1   5 10 8 7 9 9 20 20 21 33 21 28 20 27 32 21 29 22 20 24 15 13 27 14 13 15 10 9    3 11 6 7 5 3 6 8 5 4 4 1 3 3 5 2 7 3 6 6 1 6 4 6 5 3 4 2 4 3 3 9 4 5 4 4 5 2 3   10 4 3 2 6 10 6 3 6 5 5 5 4 8 8 5 4 3 6 4 4 2 4 4 4 5 7 4 4 4 4 5 2 2 3 4 5 2    1 3 2 6 2 7 7 1 6 4 4 6 5 5 4 0 2 2 3 2 7 5 0 4 1 1 4 6 1 0 3 2 0 0 1   0.128000 2.800 2.800 7.200      1022713           5           0  0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 0 0 1 0 1 1 0 0 1 1 1 0 0 0 2 1 0 0 4 0 0 1 2 3    1 1 0 1 0 1 0 3 1 1 1 2 2 1 1 1 3 1 0 2 4 2 1 2 1 2 0 3 1 3 2 1 5 2 1 3 1 2 1    5 3 2 1 2 5 3 8 2 3 2 5 5 4 3 6 4 4 4 3 2 3 8 4 3 4 5 4 5 4 7 6 5 3 3 3 5 2 9    10 7 9 12 11 13 17 15 22 19 33 24 28 30 26 21 24 22 27 20 26 16 10 10 9 20 10    7 4 5 7 7 2 7 5 3 5 1 6 1 5 7 5 6 3 1 5 1 1 3 4 8 6 3 9 5 5 3 6 7 4 6 7 6 4 2    4 6 2 3 6 5 6 7 6 4 4 9 6 8 6 9 7 1 2 6 2 7 5 4 4 4 4 5 5 4 4 3 6 3 5 3 6 4 3    6 6 2 5 2 8 4 5 3 6 5 4 5 8 4 3 5 6 5 5 2 8 1 2 2 5 4 1 3 0 0 0 0 0   0.130000 2.850 2.850 7.300      1081669           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 5 0 0 2 2 0 0 1 0 0 0 1 1 0 2 0 2 2 2 1 0    1 0 2 2 3 1 1 0 2 0 1 0 2 1 1 2 2 0 1 4 3 0 2 1 1 0 2 5 2 1 0 1 3 2 5 2 1 2 5    2 3 4 3 6 6 6 4 6 6 3 1 3 2 3 4 7 5 2 9 7 4 1 4 4 3 2 2 2 7 4 8 4 7 4 6 8 5 1    8 6 10 18 21 18 15 21 24 21 26 22 30 28 27 23 22 21 17 25 20 17 13 17 9 12 7 8   5 4 4 5 5 2 4 1 1 2 5 7 6 4 9 7 7 5 5 5 5 5 2 4 5 3 6 8 2 4 9 4 10 5 1 4 5 5 5   10 3 2 8 6 5 7 3 13 3 3 6 5 1 4 5 9 5 2 7 4 5 6 3 5 6 5 4 5 9 6 4 3 4 4 4 5 8    5 5 0 3 6 3 4 3 7 5 6 4 3 3 6 8 4 1 3 1 2 7 3 4 6 6 1 3 4 1 0 1 0 0   0.132000 2.900 2.900 7.400      1131887           3           0  0 0 0 0 0 0 0 0 1 0 0 1 2 1 1 0 0 0 1 2 2 1 1 0 2 1 1 0 1 1 1 0 2 2 3 1 0 1 0    1 0 2 0 2 0 1 4 0 1 2 2 0 0 0 2 3 0 1 2 3 0 1 2 3 5 6 2 2 3 1 4 4 8 4 3 3 3 7    2 2 5 7 4 1 2 4 8 1 5 2 7 3 4 2 9 6 5 5 6 2 2 3 6 2 5 6 7 7 2 8 3 3 3 3 6 6 5    3 10 15 15 17 19 13 29 20 23 22 34 28 28 33 20 20 22 17 22 18 15 19 14 11 9 13   6 6 13 4 2 9 8 8 7 6 5 6 4 4 9 6 2 8 9 7 2 6 3 7 3 6 3 7 4 4 5 4 5 6 4 7 5 4     10 2 6 6 8 3 6 6 9 5 8 8 7 6 4 8 5 7 5 5 7 3 5 5 5 10 7 3 8 7 5 7 2 4 4 6 4 10   7 6 4 4 4 4 3 2 4 2 6 5 9 7 3 2 6 2 5 1 5 6 2 2 1 9 2 5 2 5 1 0 0 0 1 1   0.134000 2.950 2.950 7.500      1185706           3           0  0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 3 2 1 0 1 1 0 0 0 0 0 1 0 1 1 2 0 1 0 1 2 0 0 0    1 1 0 1 1 1 0 2 2 0 1 3 3 2 3 0 0 2 2 3 2 1 1 3 0 0 1 1 3 4 3 1 1 9 1 4 0 1 3    4 1 3 2 6 4 7 7 3 2 8 5 2 5 2 4 6 7 3 7 7 8 4 7 2 4 7 7 9 9 2 5 5 8 3 5 7 3 6    10 6 10 15 10 13 14 29 21 23 37 26 20 28 20 16 24 25 16 19 21 20 20 17 11 10     12 8 7 7 5 5 5 4 5 6 7 3 6 5 7 5 11 9 6 8 11 6 4 6 8 8 7 7 7 4 5 4 8 5 4 3 4 8   10 7 9 4 7 6 8 9 7 3 5 7 7 6 2 6 4 7 3 9 8 12 7 6 6 6 4 5 7 2 4 7 3 2 4 4 7 1    4 5 0 4 6 3 10 8 5 4 3 4 5 7 5 7 5 7 3 5 2 5 6 4 5 2 4 1 6 6 2 4 2 0 0 1 0   0.136000 3.000 3.000 7.600      1238426           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 2 4 0 2 0 2 2 0 1 1 1 0 2 1 1 2 1 0 1 1 0 3 1 0    0 1 0 1 0 0 2 1 1 0 4 0 2 6 3 3 4 0 3 1 2 4 0 4 4 0 1 5 2 2 5 1 3 4 3 3 5 2 4    4 6 2 5 3 4 5 4 5 6 7 5 6 2 8 3 4 7 2 4 4 3 7 6 5 1 4 8 3 7 10 3 3 6 1 5 3 8     11 5 7 15 11 15 17 21 23 21 24 28 16 21 29 15 22 27 28 20 13 19 13 7 15 10 11    9 6 8 8 4 7 5 4 6 5 10 6 7 8 9 3 5 5 9 5 9 4 4 4 3 5 7 4 10 6 8 4 9 8 4 6 7 9    11 6 8 3 5 8 12 3 6 9 7 11 9 6 7 4 7 7 7 2 5 4 5 0 2 9 5 5 5 10 7 5 6 3 9 4 4    13 2 7 5 7 4 7 2 0 4 5 4 4 6 8 1 2 5 6 4 7 3 11 4 3 3 5 5 4 4 3 1 4 2 2 1 1 0   0.138000 3.050 3.050 7.700      1299809           6           0  0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 0 1 2 1 1 0 0 1 0 0 2 0 1 2 0 0 3 0 0 1 3 1    2 0 2 0 1 1 2 1 2 3 2 1 2 5 2 2 2 4 3 2 5 3 0 3 2 4 5 4 3 0 5 4 1 4 3 8 6 4 4    7 4 5 4 3 6 5 6 10 3 6 6 2 6 3 4 4 3 6 7 6 8 3 4 7 5 4 9 2 4 8 5 9 8 3 7 5 7 7   13 7 11 15 17 16 18 18 18 20 17 26 25 19 20 26 31 22 18 20 18 14 11 16 4 7 11    10 8 9 9 6 3 8 8 7 5 6 10 3 5 6 6 3 12 7 8 8 2 10 4 13 9 9 12 4 5 9 7 9 5 7 4    8 9 6 7 8 10 8 7 5 7 11 6 4 4 4 6 4 9 4 5 9 10 7 4 12 7 4 9 5 10 10 6 8 4 7 2    4 7 2 6 8 4 11 3 3 9 7 6 7 3 8 7 4 8 5 3 7 4 5 5 7 4 6 7 5 5 3 5 2 5 4 1 2 0 0   1   0.140000 3.100 3.100 7.800      1361810           3           0  0 0 0 0 0 0 0 0 0 1 0 0 0 0 3 2 1 0 0 0 1 1 1 2 0 0 0 0 1 0 2 2 2 1 0 0 3 3 0    2 0 6 2 3 1 0 3 3 1 2 2 5 3 5 3 3 2 2 7 3 2 2 3 4 2 3 4 4 1 3 7 4 5 4 2 3 5 4    2 1 3 6 3 4 3 8 7 6 5 3 5 11 5 5 3 3 7 3 6 4 4 2 4 4 4 1 5 5 9 6 6 9 3 10 8 6    8 3 10 8 16 16 13 18 23 29 25 19 19 20 27 19 22 27 24 21 15 18 11 20 21 17 12    5 18 6 12 7 9 11 7 12 11 4 8 8 4 8 7 7 2 6 4 4 9 6 9 3 4 7 7 7 4 10 4 11 5 8 8   8 5 4 4 8 6 4 9 8 12 12 8 5 8 3 10 8 7 5 3 5 6 8 5 6 10 7 2 11 2 5 5 6 8 10 2    7 5 5 14 2 7 3 9 3 5 2 8 2 3 4 4 7 9 5 4 7 6 7 5 6 3 5 4 7 6 7 7 9 3 0 2 1 1 1   0 0   0.142000 3.150 3.150 7.900      1429499           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 3 1 2 1 1 0 0 0 3 0 2 2 1 0 3 0 2 1 3 0 0 1    1 3 1 2 4 1 5 3 5 1 0 7 1 3 2 3 2 2 2 3 0 0 1 3 6 3 2 2 4 4 4 6 4 3 6 4 10 3 7   2 5 4 7 4 5 8 4 7 4 1 7 11 5 2 10 2 11 3 7 8 10 9 6 3 5 3 6 3 10 11 5 5 9 7 10   8 9 5 15 11 9 18 18 15 24 17 23 17 19 25 17 24 18 37 16 17 21 17 14 20 17 15     15 9 4 11 7 3 8 10 8 8 6 8 3 4 5 8 4 6 3 9 9 6 2 10 4 4 3 8 4 9 1 7 5 9 7 10 9   10 4 6 5 8 6 6 10 10 6 5 7 6 6 10 5 7 8 8 8 7 7 11 12 8 3 10 6 9 13 11 4 6 7 6   3 10 5 8 4 7 7 7 5 8 4 9 5 5 7 6 6 7 11 11 7 8 5 3 5 7 7 10 3 3 6 5 7 9 2 3 7    1 0 0 0 0 1   0.144000 3.200 3.200 8.000      1493946           3           0  0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 2 3 0 0 1 2 1 1 1 4 1 0 1 0 1 2 1 3 1 1 1 1 2    1 1 3 2 6 0 4 0 1 4 2 4 5 2 1 3 0 2 2 4 2 3 2 4 3 5 4 4 4 1 5 1 3 4 5 6 4 7 2    8 8 8 5 3 6 0 7 3 2 2 5 7 5 7 5 8 9 6 4 3 6 8 6 10 2 5 6 3 3 6 6 6 6 17 5 10 6   6 11 11 13 12 21 26 18 24 21 24 23 30 18 22 20 24 19 13 17 25 22 17 15 8 13 7    10 8 9 6 7 9 8 7 8 9 7 7 6 12 5 9 9 12 9 12 6 9 7 10 7 7 4 9 7 4 2 7 4 5 8 8 9   7 6 7 5 9 4 8 13 6 5 4 7 9 6 7 7 9 4 4 5 8 10 9 10 6 6 7 9 12 11 8 8 9 11 5 8    7 5 5 8 5 9 10 5 5 11 11 6 8 8 4 8 5 5 5 4 7 4 5 6 5 6 6 7 7 4 2 6 3 2 1 0 0 0   0 0   0.146000 3.250 3.250 8.100      1562352           5           0  0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 0 2 0 1 2 1 1 0 0 1 0 1 2 0 0 0 3 1 2 0 4 4 2 0    0 2 3 2 0 1 3 3 4 0 1 4 3 3 4 5 5 4 2 1 4 2 5 3 2 7 6 3 5 6 5 5 5 1 5 2 7 4 8    7 4 6 5 7 5 3 5 8 1 6 4 6 8 7 6 7 6 3 4 6 3 5 8 4 10 3 3 11 6 5 3 9 6 4 3 17 9   11 11 24 13 15 14 25 26 26 21 17 32 32 22 18 25 29 29 27 24 21 12 23 14 12 11    9 17 7 9 11 3 7 6 5 5 12 3 6 8 7 4 7 11 10 8 9 5 8 2 10 9 8 10 10 7 7 4 7 5 7    7 9 10 8 7 7 16 6 8 10 5 6 6 12 12 7 11 11 8 9 7 8 12 10 7 8 7 11 8 9 7 7 4 9    4 7 14 9 8 8 13 9 8 7 13 5 9 5 7 4 9 5 7 8 7 8 7 3 10 9 3 4 4 4 5 2 6 6 3 5 10   4 4 2 3 0 1 0 0   0.148000 3.300 3.300 8.200      1630559           3           0  0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 4 2 1 1 1 2 1 2 0 2 1 5 0 1 1 4 0 2 1 4 5 3 0    1 1 1 2 1 3 3 3 1 1 1 1 1 3 4 6 6 8 8 4 3 2 7 2 2 1 7 4 4 5 1 10 6 4 4 4 3 3 3   6 11 6 4 5 4 8 5 5 9 4 5 5 7 6 4 13 12 3 6 7 5 2 7 9 7 8 8 4 7 6 4 10 6 8 9 9    9 13 15 17 23 25 13 16 24 22 26 21 27 24 24 21 21 21 15 17 22 25 21 22 17 14     11 8 12 5 9 7 8 5 11 10 6 6 5 9 13 10 9 8 8 8 6 4 9 10 9 9 7 8 7 5 7 8 14 13 5   14 5 12 11 8 9 6 5 4 9 13 7 10 13 11 11 8 5 9 10 8 7 6 7 13 3 13 8 7 13 17 5 8   5 10 7 12 7 6 6 9 7 8 8 11 8 11 9 11 11 8 5 6 10 4 9 3 10 8 7 10 8 7 8 10 10 7   4 11 5 7 8 2 4 3 0 0 1 0 1   0.150000 3.350 3.350 8.300      1707576           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 1 2 1 0 2 0 2 3 1 3 2 2 2 2 0 2 1 4 3 2 2 3    1 2 1 0 2 2 4 2 5 3 3 5 2 8 4 5 4 2 3 6 7 6 1 0 7 4 7 7 6 5 4 3 4 6 6 7 6 2 7    4 4 2 5 5 6 9 3 3 3 6 6 5 3 5 7 8 8 6 8 8 6 8 3 9 6 6 8 8 6 4 8 6 6 10 4 11 6    11 15 23 16 8 17 20 21 19 24 15 14 19 21 30 25 21 15 19 16 18 21 21 15 14 12     16 8 10 12 7 10 9 8 10 10 7 9 8 10 12 6 6 9 11 6 5 9 12 6 7 12 7 5 6 8 5 9 4     11 9 8 8 10 7 6 10 7 11 13 7 4 13 11 8 11 9 16 6 12 11 10 10 19 2 9 11 8 7 8 8   6 13 6 10 12 12 9 12 9 9 8 7 7 9 6 12 8 4 9 9 8 5 7 8 9 5 12 5 7 5 9 10 9 10 3   6 6 8 7 11 3 5 5 4 2 0 0 0 0   0.152000 3.400 3.400 8.400      1777231           3           0  0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 0 1 1 3 1 0 3 4 2 3 3 3 3 3 2 1 1 1 1 3 3 0    1 8 0 0 5 3 7 4 4 4 4 4 3 5 2 2 5 3 6 1 7 6 1 2 2 5 2 1 6 6 8 7 7 5 10 4 1 6 9   3 4 5 3 5 8 4 9 8 11 8 3 2 7 7 9 10 9 10 8 6 8 6 8 7 10 8 7 3 8 4 10 7 6 8 9 6   5 16 9 19 24 23 17 23 24 22 30 21 15 23 27 20 20 20 18 20 23 18 17 15 19 17 18   13 9 4 4 7 12 7 10 4 8 6 10 5 6 13 2 3 8 7 8 7 3 11 8 7 9 7 19 7 8 9 6 14 8 8    11 10 11 13 14 10 16 8 9 13 8 9 9 12 7 12 11 6 9 15 5 9 9 9 11 11 13 6 10 6 4    12 9 9 12 11 8 6 9 16 10 10 10 8 10 10 6 7 4 1 15 6 8 4 9 13 11 8 10 11 9 8 3    3 6 6 7 9 4 6 8 7 4 2 1 2 2 1 0   0.154000 3.450 3.450 8.500      1849489           6           0  0 0 0 0 0 0 0 0 0 0 1 1 3 0 1 2 2 0 1 4 1 1 0 1 0 2 1 0 0 1 1 1 1 6 3 6 1 3 1    3 3 0 6 0 4 2 7 4 6 4 4 3 7 4 5 7 5 5 2 3 9 9 2 5 5 3 9 4 2 7 6 2 8 2 5 7 12 6   5 4 5 10 4 12 10 6 4 14 7 9 10 11 7 7 7 7 3 9 7 4 3 8 7 5 7 9 6 8 9 6 8 8 12 6   5 11 12 13 11 13 21 26 19 23 25 18 23 22 23 23 18 27 20 15 20 25 24 19 18 12     14 13 15 8 15 10 11 7 9 13 11 12 13 11 11 7 11 13 6 5 10 6 6 10 8 14 5 14 11 8   5 9 7 10 10 8 7 15 13 3 13 12 18 15 7 10 9 10 8 15 9 6 8 9 10 10 9 5 7 7 5 10    11 13 12 12 12 10 6 17 10 11 9 4 8 7 6 6 9 12 8 16 18 7 5 10 8 12 10 15 6 13     11 6 10 16 10 11 16 8 9 5 11 10 14 11 5 2 5 7 3 1 1 0 1 0   0.156000 3.500 3.500 8.600      1920727           4           0  0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 2 1 2 0 3 0 1 1 0 1 0 3 0 4 4 1 3 1 2 3 3 4 3    1 2 3 9 5 2 3 7 3 3 6 5 2 6 1 4 3 2 3 6 5 1 8 3 8 5 3 7 6 13 11 9 5 8 7 7 5 8    7 4 8 6 4 10 4 6 5 6 9 9 12 6 7 10 9 9 8 8 3 8 9 8 8 2 12 11 13 8 13 7 8 6 6 9   6 8 16 13 14 16 16 22 20 21 21 17 20 18 19 22 20 11 20 22 21 14 19 15 23 17 15   12 14 19 16 10 11 14 11 9 11 9 12 8 16 14 9 6 18 10 11 7 10 11 17 10 13 8 10     12 9 12 7 7 10 10 11 11 9 8 8 14 10 10 9 14 9 14 13 9 19 16 17 4 11 8 12 11 10   21 6 10 8 9 12 9 7 7 12 7 16 14 10 13 6 13 8 9 10 6 10 8 7 10 4 6 11 19 12 6 7   5 8 11 10 12 13 9 6 10 5 11 11 4 14 10 7 2 6 5 1 2 5 1 1 0 0   0.158000 3.550 3.550 8.700      1999833           3           0  0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 2 2 3 2 2 2 1 2 3 0 1 0 1 3 2 0 0 3 2 3 2 5 7 0    3 4 1 10 7 7 4 5 2 3 4 3 8 3 6 4 4 4 8 2 3 4 5 5 7 1 6 7 8 1 6 8 1 4 4 11 9 4    7 11 9 10 5 6 8 4 3 9 7 9 11 5 5 8 8 4 8 7 8 11 9 12 6 4 13 4 12 10 6 9 11 10    11 10 11 11 11 14 15 14 23 18 17 29 16 26 23 15 19 14 18 19 22 31 13 21 20 12    16 15 14 18 17 15 8 12 14 13 10 10 10 10 10 13 11 6 8 11 8 14 8 10 11 11 8 10    13 5 14 7 12 9 10 10 12 15 18 8 6 9 9 12 8 9 20 14 16 10 11 14 5 5 13 6 11 9     11 15 6 9 13 11 7 8 7 10 8 16 12 11 8 10 14 11 17 11 8 16 13 9 10 5 10 17 13     14 16 8 10 9 11 5 10 9 10 12 8 11 12 11 8 6 7 12 15 13 12 7 13 5 0 3 2 0 0 0 0   0.160000 3.600 3.600 8.800      2073149           3           0  0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 1 2 1 2 2 1 0 2 2 1 0 3 6 4 5 5 2 2 2 5 5 3 6 4    6 4 5 2 4 4 3 2 4 6 3 3 6 5 7 4 5 7 5 3 5 6 13 5 3 10 5 9 7 4 5 6 5 10 6 5 5 6   6 4 14 7 6 11 6 9 10 9 8 5 3 8 10 10 6 6 8 9 5 6 14 7 11 10 9 9 11 13 8 4 5 10   12 6 16 8 8 7 19 20 23 10 16 27 25 23 19 26 21 16 20 21 24 18 25 8 11 13 16 18   13 22 18 9 16 4 16 10 12 13 9 7 9 8 17 11 10 13 10 14 4 9 12 16 8 9 16 17 13     11 14 8 8 13 9 11 15 10 11 14 8 6 4 9 11 18 9 9 8 9 15 11 11 11 9 6 13 13 10 7   8 10 15 14 9 7 4 10 12 17 10 14 13 10 10 12 20 9 7 6 11 15 11 10 8 9 6 10 13     17 6 8 9 6 13 13 16 10 15 5 11 14 11 12 6 5 12 9 4 9 2 4 1 1 0 0 0   0.162000 3.650 3.650 8.900      2156456           5           0  0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 2 0 1 1 3 2 3 4 3 3 2 1 3 6 5 2 3 4 4 3 6 2 3    4 4 5 5 3 4 1 4 5 9 3 3 4 3 3 8 5 6 12 2 10 3 4 6 8 9 8 8 2 2 7 5 8 2 8 9 7 2    6 8 6 5 8 2 7 5 6 13 5 6 8 11 6 10 5 6 3 8 10 11 10 10 14 10 11 8 11 8 12 6 12   5 15 12 13 10 13 13 18 23 12 21 18 21 23 20 30 20 23 26 24 24 21 21 29 19 21     16 23 20 13 19 13 16 11 15 13 13 11 8 11 14 14 13 4 16 15 18 13 9 19 8 11 6 9    14 8 13 12 13 10 13 10 14 11 13 11 8 10 13 11 11 14 11 8 14 11 10 9 14 12 14     18 8 12 7 13 12 10 14 14 8 12 17 11 13 9 12 12 15 7 9 13 17 11 11 11 12 17 12    11 16 15 8 9 12 7 13 15 11 16 7 10 7 14 5 18 10 10 8 8 6 6 13 14 6 9 11 9 9 3    5 1 1 3 0 0   0.164000 3.700 3.700 9.000      2234753           3           0  0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 4 1 4 2 1 3 1 1 3 2 3 3 1 3 6 2 4 4 3 3 3 6 5 2    6 4 1 3 3 7 1 4 4 6 12 4 5 2 6 4 9 3 1 8 11 5 2 7 6 3 8 4 7 3 8 3 9 6 7 8 9 2    7 6 9 6 15 6 9 5 9 4 9 17 15 10 2 10 6 8 12 12 11 12 10 9 7 11 8 7 5 11 10 14    16 7 7 7 13 15 10 16 17 21 19 14 18 24 19 27 27 24 20 22 24 21 20 14 24 17 17    18 32 15 12 13 15 12 8 14 11 11 19 11 14 15 18 10 5 12 11 11 9 15 9 7 9 16 12    9 12 10 15 9 18 7 11 12 14 7 20 8 10 13 14 11 6 6 9 11 8 10 16 8 17 13 17 9 16   11 10 9 13 20 17 14 12 10 13 11 9 9 17 20 10 16 8 14 13 14 18 15 15 8 10 12 11   22 12 13 9 12 9 11 14 19 12 12 8 8 12 11 19 11 11 12 15 11 15 13 9 9 10 9 4 9    4 2 1 0 0   0.166000 3.750 3.750 9.100      2327990           3           0  0 0 0 0 0 0 0 0 0 0 0 0 3 2 2 0 1 2 2 1 1 0 0 3 1 4 2 6 4 2 4 3 2 5 5 2 3 1 3    1 2 10 2 7 4 3 4 3 3 4 3 10 6 9 6 3 8 5 5 3 4 4 6 8 4 4 7 5 5 11 14 5 3 6 8 8    7 10 11 7 17 7 11 10 8 7 8 12 13 11 12 6 13 9 7 7 6 5 8 13 10 10 14 11 11 8 12   15 14 9 13 10 9 18 13 18 12 23 14 17 24 15 23 25 31 19 17 29 19 19 19 26 25 19   17 22 19 19 19 11 11 12 22 21 8 10 18 10 14 19 17 13 14 10 6 9 10 15 11 5 13     13 11 11 17 16 9 7 14 7 19 6 10 13 7 12 18 14 7 12 15 13 13 9 13 13 13 12 12     14 12 19 10 16 18 18 12 8 10 10 9 7 14 9 11 13 12 8 15 12 11 10 12 11 17 15 19   14 14 12 7 7 12 11 15 16 12 11 12 10 19 19 12 14 12 15 11 20 13 7 18 9 15 19     16 11 5 9 8 6 2 4 0 2 0 1   0.168000 3.800 3.800 9.200      2406866           3           0  0 0 0 0 0 0 0 0 0 1 0 2 0 1 0 2 3 2 3 1 2 1 2 2 5 2 1 2 3 2 2 2 5 3 5 3 3 1 3    6 8 6 1 3 9 6 3 6 10 5 5 7 4 5 7 12 9 5 7 5 6 6 8 3 5 4 7 8 5 6 5 8 13 4 10 2    10 9 7 7 16 9 10 9 13 8 12 9 13 15 9 15 9 10 11 6 6 6 7 7 6 8 15 9 8 9 6 12 12   11 14 12 11 13 8 17 18 18 11 14 19 14 25 21 15 10 15 19 27 23 22 24 17 19 18     12 16 22 21 25 9 25 15 19 15 21 15 8 11 13 12 10 12 7 13 11 17 11 13 10 16 19    14 23 11 8 12 13 10 9 17 4 14 10 7 10 17 14 11 11 20 18 13 8 12 6 8 13 12 23     15 14 15 16 9 14 9 13 14 17 11 17 11 10 15 17 11 6 12 12 14 15 17 12 16 16 8     17 15 15 10 15 11 10 15 12 13 9 12 9 12 15 12 6 18 7 15 14 12 21 18 11 10 18     11 19 11 7 11 3 2 5 4 0 1 1   0.170000 3.850 3.850 9.300      2508471           7           0  0 0 0 0 0 0 0 0 0 0 0 0 1 3 1 2 1 4 3 3 1 2 7 0 3 2 2 2 2 5 2 3 2 3 3 4 3 7 3    5 3 4 4 6 2 3 10 4 11 3 13 7 7 5 6 3 8 10 6 6 4 10 11 4 12 7 8 9 7 7 8 4 6 7 9   9 5 9 11 5 14 9 10 7 9 8 8 5 6 11 13 14 10 10 10 10 8 9 9 9 9 14 14 13 11 8 18   9 10 9 16 12 13 15 13 10 17 16 20 14 22 20 26 29 29 27 24 20 37 21 24 13 18 13   28 24 22 25 21 13 14 15 9 11 18 8 16 17 16 13 12 16 11 11 17 15 11 15 10 11 12   13 12 12 20 15 14 15 16 12 17 15 15 12 10 14 14 17 15 19 15 13 13 11 12 16 14    17 16 8 16 12 8 14 13 13 10 10 9 12 11 19 20 13 11 4 15 11 14 11 20 18 18 13     20 12 20 21 15 15 12 13 18 18 11 16 9 14 9 18 11 10 11 20 11 13 17 13 13 12 14   16 10 12 12 23 12 11 12 8 8 1 0 1 2 0   0.172000 3.900 3.900 9.400      2591210           3           0  0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 4 4 3 2 1 3 3 2 3 0 3 6 1 3 1 5 5 4 3 9 9 0 4 7    5 3 5 5 8 7 3 3 5 5 8 5 11 10 8 10 3 6 6 6 7 7 8 8 12 9 6 10 8 7 10 8 8 10 4 6   12 20 4 6 11 7 9 10 7 5 10 6 12 11 7 13 13 16 12 6 8 14 13 9 7 5 14 17 17 10     12 11 6 13 11 17 3 23 13 21 12 21 28 11 23 30 28 23 24 26 26 17 21 15 27 23 33   16 22 25 11 20 22 23 21 20 7 21 13 16 12 16 16 13 18 18 9 13 16 15 9 20 13 19    15 8 9 11 14 13 10 9 10 16 15 14 17 15 19 16 12 14 12 14 14 16 19 19 4 24 8 12   15 16 11 15 14 20 14 13 13 14 16 19 14 13 19 14 18 23 15 15 4 14 17 14 8 10 15   20 11 15 19 12 9 13 12 11 16 12 16 13 14 16 13 16 16 19 19 12 11 10 19 15 15     14 12 5 11 18 17 10 13 12 9 6 2 0 0 1 0   0.174000 3.950 3.950 9.500      2675515           3           0  0 0 0 0 0 0 0 0 0 0 2 0 1 1 0 2 1 2 3 3 1 3 1 3 7 5 3 6 4 3 9 4 5 2 5 3 3 3 6    9 5 5 2 6 8 5 8 4 8 5 6 5 6 4 6 3 7 11 6 9 9 3 6 6 7 6 8 7 9 12 18 6 9 8 11 11   8 14 15 15 11 15 13 9 19 10 15 14 9 4 18 5 8 10 8 10 13 9 12 11 8 8 12 6 15 8    9 9 18 7 17 21 9 13 18 14 21 24 18 22 17 26 15 21 23 25 19 26 23 20 27 17 27     20 26 15 22 15 19 15 16 24 12 15 24 13 13 17 11 7 10 21 15 15 16 13 20 22 12     16 12 16 15 14 18 11 12 14 14 24 10 13 16 19 8 11 18 19 15 15 23 16 16 11 12     18 11 13 14 16 10 14 13 18 12 15 15 14 8 11 17 12 22 13 12 14 15 10 11 15 19     15 12 17 8 21 23 13 19 11 8 12 15 11 14 15 19 15 10 17 9 16 14 18 14 16 14 14    23 14 14 13 16 12 14 15 14 9 14 7 5 2 3 1 1 1   0.176000 4.000 4.000 9.600      2779386           5           0  0 0 0 0 0 0 0 0 0 0 0 2 2 3 0 1 3 0 6 2 6 3 1 5 0 4 1 6 5 1 6 3 6 5 6 2 5 4 5    3 9 8 5 7 5 8 4 12 8 12 6 8 5 7 5 7 10 5 5 6 7 9 7 10 7 10 10 8 12 10 6 13 10    11 12 11 10 10 16 9 6 12 9 11 17 10 11 10 14 11 16 7 11 13 12 10 17 14 11 13     12 10 13 16 16 17 17 15 14 11 8 15 13 27 22 14 19 17 22 22 27 18 28 19 27 32     24 33 21 17 23 12 27 25 20 20 17 22 14 15 22 21 14 9 16 12 19 16 17 16 16 20     14 18 15 14 18 10 12 9 16 12 12 10 13 19 12 12 15 14 15 22 12 11 15 18 19 18     10 6 11 14 10 23 17 14 16 19 10 10 16 19 17 23 16 18 19 18 16 12 14 14 14 13     11 10 24 21 22 26 18 18 18 14 17 5 13 17 11 13 16 14 18 16 9 15 15 18 16 14 21   13 22 17 9 8 16 17 16 16 19 7 20 19 18 16 10 6 10 6 3 5 1 0 0 2   0.178000 4.050 4.050 9.700      2869617           3           0  0 0 0 0 0 0 0 0 0 0 2 2 2 0 1 4 1 3 2 2 1 2 3 2 2 4 4 7 5 6 5 3 6 6 5 7 8 1 5    2 3 5 5 8 10 7 6 10 9 6 8 9 7 8 10 15 4 10 5 8 8 6 11 8 8 11 7 5 8 14 5 11 7     13 10 9 7 8 9 14 12 10 9 11 6 14 15 14 13 11 9 18 18 10 14 14 10 12 16 12 9 8    14 15 6 11 11 12 10 14 12 11 18 13 13 27 16 23 23 20 21 32 20 18 25 22 24 32     25 34 19 23 21 25 22 25 19 23 19 21 16 19 16 18 9 18 6 13 12 13 18 12 8 19 14    14 11 16 13 15 14 21 11 14 14 13 11 20 14 14 26 10 22 16 18 15 20 24 18 19 19    16 14 14 14 21 13 19 18 20 13 17 11 17 14 22 17 15 15 20 8 21 15 16 16 23 17     13 19 21 20 12 15 18 15 19 15 18 17 20 15 13 14 24 18 15 15 14 18 20 19 17 19    20 21 21 15 19 19 17 11 16 16 11 23 10 20 13 10 5 10 2 3 1 1 0   0.180000 4.100 4.100 9.800      2975040           3           0  0 0 0 0 0 0 0 0 1 0 0 1 2 2 4 4 2 4 4 1 2 5 0 3 3 5 2 5 5 4 9 2 7 8 4 8 3 11 6   10 4 7 8 6 6 5 8 8 7 11 4 4 11 12 7 11 7 10 11 7 11 11 10 9 7 13 12 18 8 14 12   14 12 8 8 16 10 10 14 16 10 6 8 15 15 15 22 13 19 18 12 6 11 10 7 12 12 24 15    17 9 17 21 10 17 18 14 14 14 9 22 11 23 17 15 23 32 20 11 12 20 15 23 30 20 25   19 26 29 19 27 23 15 19 11 30 16 21 24 18 18 14 8 6 25 13 21 13 13 19 13 21 25   23 18 14 14 13 20 12 14 8 10 25 14 15 20 15 10 15 16 21 8 15 20 21 20 13 16 15   20 11 18 17 17 9 12 24 19 13 18 17 20 14 15 20 10 23 19 25 8 7 13 14 11 15 18    13 10 12 10 17 11 24 16 17 11 12 13 16 20 14 26 12 17 13 14 16 16 6 20 16 23     22 11 17 16 14 25 19 17 21 22 19 13 19 16 18 10 11 7 4 6 0 0 2   0.182000 4.150 4.150 9.900      3083416           6           0  0 0 0 0 0 0 0 0 0 0 2 1 1 4 1 3 4 3 5 6 2 1 4 2 3 5 6 6 7 2 4 1 11 7 5 2 6 6 8   9 8 12 7 11 9 6 12 7 8 9 6 6 8 11 6 6 8 11 8 11 12 11 13 9 10 7 9 6 11 9 13 12   12 8 14 15 8 9 8 8 11 22 16 6 11 16 15 9 13 12 12 13 11 15 9 9 16 14 14 12 21    12 12 12 16 19 10 15 18 8 16 14 16 16 21 30 22 9 25 19 19 26 23 33 25 22 21 19   21 20 20 21 20 26 20 29 27 25 25 21 20 25 21 21 18 14 19 15 6 20 18 16 20 16     13 13 15 15 15 15 22 16 15 15 11 21 19 11 19 13 14 15 17 21 12 18 12 22 18 21    18 13 23 15 18 9 21 11 14 23 18 21 25 18 22 15 21 23 15 15 16 19 21 18 19 21     17 13 24 23 22 19 14 20 22 15 14 14 20 20 23 13 18 15 18 20 20 24 9 12 17 21     21 12 16 17 16 16 21 26 19 15 21 22 24 15 11 13 13 6 8 1 4 0 1 0   0.184000 4.200 4.200 10.00      3174897           3           0  0 0 0 0 0 0 0 0 0 0 1 1 2 3 0 5 4 3 3 0 7 3 2 4 2 8 6 4 5 9 3 8 6 4 2 7 6 8 7    9 3 5 8 5 9 7 7 6 11 14 7 12 9 9 5 15 12 14 15 12 9 11 5 8 13 11 12 10 9 17 12   11 8 17 11 19 11 15 9 11 7 15 14 16 16 16 7 12 10 14 13 13 16 16 11 15 13 14     12 16 11 12 13 17 10 13 19 11 17 11 13 14 13 10 19 19 23 24 22 24 24 31 19 23    22 28 21 25 29 17 23 17 21 30 22 19 25 27 27 22 23 23 17 25 17 20 17 12 23 21    9 17 20 16 19 16 17 20 9 16 11 22 16 15 12 15 17 23 24 16 16 18 26 11 16 20 18   10 14 17 26 19 17 15 17 19 12 21 20 24 17 27 13 16 18 19 23 14 19 14 10 11 18    19 6 15 21 23 25 17 17 18 21 27 20 17 18 20 25 22 20 18 22 18 17 15 24 16 15     22 18 22 14 20 20 22 18 22 25 19 26 12 19 19 13 12 16 19 14 9 7 5 4 2 0 2   0.186000 4.250 4.250 10.10      3283256           3           0  0 0 0 0 0 0 0 1 0 0 1 1 4 1 5 2 5 5 3 4 6 3 2 4 7 8 2 6 6 4 10 7 8 7 5 4 4 9 8   18 10 7 6 6 13 12 10 13 10 7 15 4 7 10 13 12 8 8 13 5 14 6 9 14 9 10 16 12 13    11 8 12 11 10 13 9 11 15 17 23 18 13 10 12 11 12 14 14 14 10 12 12 16 13 15 13   13 14 18 10 13 17 14 14 14 12 12 8 18 14 23 20 16 19 16 16 16 27 18 21 19 20     19 37 22 21 22 28 24 26 18 21 28 21 22 21 21 22 16 15 13 22 22 27 22 11 13 20    10 17 16 19 20 30 18 25 8 7 22 18 17 14 23 16 17 11 16 24 19 18 22 15 15 23 16   13 15 22 14 8 12 18 13 15 22 17 15 15 17 27 21 19 21 24 17 10 12 14 19 17 22     18 19 17 28 19 15 14 16 28 17 20 15 11 22 18 19 16 21 17 24 19 22 22 20 10 20    18 18 18 21 18 23 18 32 26 21 21 22 20 22 16 17 20 22 21 17 13 13 11 9 5 0 1 1   1   0.188000 4.300 4.300 10.20      3396610           5           0  0 0 0 0 0 0 0 0 0 0 1 2 3 0 2 5 5 4 3 3 5 1 2 3 6 9 3 3 3 8 7 2 9 5 7 5 11 8 9   7 6 9 6 4 5 8 6 10 9 14 10 15 6 7 13 15 10 13 7 15 10 10 11 14 14 6 7 17 13 19   3 13 9 6 13 13 14 10 11 12 16 17 13 10 15 15 19 19 11 11 15 11 13 9 13 20 8 18   14 18 23 23 23 15 19 20 14 11 7 18 16 15 22 28 20 24 22 25 17 20 39 24 26 25     25 33 25 25 25 33 15 29 18 29 18 12 18 23 17 24 28 22 16 20 33 23 18 23 26 23    15 24 16 16 16 16 17 15 15 16 14 11 9 23 17 13 13 18 12 19 20 30 20 20 15 21     19 16 18 20 23 19 15 10 11 15 19 13 22 22 18 19 16 19 23 16 10 25 23 20 21 20    31 19 19 18 15 22 18 14 13 21 18 19 22 19 16 17 21 14 20 26 18 26 22 19 26 19    20 22 15 13 24 23 15 21 21 21 27 18 22 19 24 17 22 16 18 23 10 12 3 5 3 3 0 0   0.190000 4.350 4.350 10.30      3502025           3           0  0 0 0 0 0 0 0 0 0 0 0 3 0 3 2 3 4 4 3 4 5 10 7 6 6 4 5 12 10 6 6 13 10 6 7 14    9 6 13 10 12 16 3 9 9 7 5 6 13 11 10 8 11 19 12 14 13 16 13 14 9 12 14 13 14     16 10 14 7 16 18 16 9 15 11 20 15 10 14 14 11 14 17 10 6 16 10 15 12 17 17 20    15 7 12 23 15 8 13 12 8 16 15 20 16 16 20 14 11 20 24 23 20 16 18 27 25 31 27    27 25 21 31 27 20 23 24 32 17 21 34 27 17 19 19 25 30 27 21 24 28 30 19 26 21    14 16 21 23 27 8 17 21 17 11 23 15 22 15 18 10 17 20 23 18 18 17 19 22 15 22     21 19 23 18 18 26 17 18 26 18 24 15 22 23 23 19 23 25 23 24 26 10 21 16 32 23    18 19 24 21 28 26 22 19 19 14 30 21 24 23 22 21 13 27 20 27 24 15 20 22 22 13    25 14 19 32 21 18 18 23 22 22 14 18 20 24 14 19 20 18 17 24 29 27 20 12 18 17    11 9 2 3 2 1 0   0.192000 4.400 4.400 10.40      3593938           3           0  0 0 0 0 0 0 0 0 0 0 1 0 1 1 2 3 4 7 8 1 5 6 8 3 7 5 4 9 8 8 7 7 9 7 9 9 15 5 7   8 15 14 9 9 13 8 8 15 10 7 10 9 10 14 7 8 18 16 17 11 14 15 13 8 15 8 15 18 16   16 22 12 8 16 13 10 13 13 10 21 11 10 16 16 13 13 17 16 20 23 13 22 16 14 15     22 19 22 15 22 24 16 16 16 19 12 15 16 17 20 18 19 26 17 23 18 32 20 28 36 22    25 30 29 31 36 24 24 21 29 24 32 29 30 23 34 19 33 34 25 20 31 27 24 16 14 21    20 13 24 17 28 13 24 16 26 15 26 21 11 15 20 13 20 18 25 23 18 24 26 22 16 22    14 13 16 20 24 25 19 29 20 15 20 16 25 26 21 22 17 24 22 21 17 23 23 15 19 30    23 17 21 19 18 21 26 14 29 24 20 33 19 15 20 23 28 19 23 25 15 19 17 31 23 18    29 26 25 14 24 25 18 19 19 24 35 31 23 23 14 15 19 11 20 19 24 17 16 9 10 12 3   2 2 0 1   0.194000 4.450 4.450 10.50      3712573           7           0  0 0 0 0 0 0 0 0 0 0 0 1 1 1 5 3 5 4 3 11 3 10 4 6 7 8 5 5 5 8 9 12 7 7 11 8 6    7 9 10 13 10 6 13 9 9 9 11 14 14 12 13 10 6 13 13 15 12 13 19 8 14 13 16 11 13   14 15 9 15 16 13 16 17 17 17 23 18 16 19 10 13 18 16 10 9 21 11 22 14 20 14 18   13 15 12 13 14 16 14 15 20 29 17 14 18 8 15 21 15 19 15 22 20 17 15 23 26 16     26 24 23 23 23 23 30 24 29 28 26 35 33 31 22 23 22 20 37 22 27 33 26 27 26 17    16 18 27 22 21 24 18 18 18 17 15 18 14 19 24 22 15 20 21 15 19 25 15 16 26 19    22 29 20 16 13 15 16 32 24 23 13 33 17 22 18 18 23 24 22 21 20 26 21 16 22 18    18 16 15 26 26 17 22 21 13 25 24 13 23 18 18 25 32 20 24 21 17 19 24 24 23 33    19 19 21 32 18 22 23 19 23 32 18 31 22 25 23 23 31 29 21 16 20 20 15 22 14 12    5 10 9 2 1 0 1   0.196000 4.500 4.500 10.60      3829518           3           0  0 0 0 0 0 0 0 0 0 1 2 2 1 6 2 6 5 9 3 5 6 8 6 3 8 10 7 11 9 4 8 9 5 11 10 13 9   16 13 10 9 5 12 9 15 10 13 9 12 18 14 19 9 13 14 12 13 21 17 17 18 16 13 12 16   14 18 10 15 15 16 11 15 22 17 19 17 11 12 26 12 17 19 18 21 20 27 17 18 19 21    14 19 16 12 16 21 20 18 8 17 17 13 13 18 15 19 15 19 20 28 21 29 27 27 34 24     26 31 25 24 16 17 23 23 30 28 18 28 32 28 37 18 26 18 16 33 21 31 21 20 22 19    20 25 18 18 20 11 17 20 22 23 14 14 17 18 20 25 20 19 20 22 19 16 33 25 21 21    24 18 16 22 29 22 16 27 26 28 21 20 22 17 25 23 20 23 18 16 19 26 22 21 22 23    15 20 19 17 23 19 20 15 22 18 22 26 23 23 31 17 29 18 13 15 19 18 24 22 28 22    17 23 24 26 21 23 25 24 29 26 18 41 24 29 22 27 23 28 16 30 24 18 23 19 17 18    21 17 14 8 2 5 2 0 0   0.198000 4.550 4.550 10.70      3950740           3           0  0 0 0 0 0 0 0 0 1 1 1 2 1 3 7 5 6 7 7 7 4 5 6 4 1 8 9 10 9 8 10 8 12 6 10 8 10   8 11 9 10 15 7 11 8 13 11 13 15 15 17 12 10 8 17 12 9 14 12 14 11 14 21 14 15    20 18 16 8 15 22 24 14 10 18 14 15 16 12 10 16 21 16 25 17 20 17 17 20 15 24     15 17 22 25 17 13 22 18 20 19 11 21 22 21 16 21 24 16 22 17 21 17 24 22 24 35    27 24 28 24 32 37 34 25 24 29 37 37 25 28 21 23 24 22 21 20 25 22 32 19 21 22    24 20 21 20 22 18 27 17 14 20 22 22 22 14 19 20 20 21 23 22 14 20 21 23 20 18    23 20 25 31 24 18 22 14 23 22 21 23 27 27 20 21 18 22 23 24 23 21 18 22 17 22    21 35 15 24 24 12 27 30 27 28 22 31 24 24 19 27 24 28 23 25 26 35 27 22 29 21    24 18 19 26 33 29 31 23 25 19 24 26 21 10 23 24 26 28 20 27 26 17 29 22 18 14    22 8 10 11 4 4 1 2 0   0.200000 4.600 4.600 10.80      4068161           5           0  0 0 0 0 0 0 0 0 0 1 1 0 1 5 5 2 9 3 11 6 9 8 7 7 8 3 3 13 10 8 7 5 8 13 8 7 14   12 10 7 15 13 13 11 12 12 14 12 13 12 10 15 11 14 7 16 15 8 15 13 15 13 18 13    17 21 15 12 13 13 17 18 18 18 16 19 20 17 14 17 24 13 12 18 19 19 13 21 18 26    21 23 16 14 18 19 13 33 13 19 20 14 20 23 14 26 19 22 21 21 16 27 30 25 28 22    32 21 30 27 31 21 30 22 27 27 31 27 21 17 38 41 17 21 20 19 30 24 27 20 20 21    30 20 19 19 31 25 24 13 21 23 19 24 33 24 17 20 17 12 25 23 18 24 11 24 25 22    33 20 11 22 31 21 20 26 27 21 26 24 14 23 23 20 20 26 28 10 20 27 24 22 17 27    28 20 23 23 33 20 24 26 32 33 29 21 25 24 17 18 19 27 26 20 24 26 24 24 26 21    19 24 21 36 32 18 33 33 20 23 25 33 19 27 25 27 24 27 21 21 23 28 18 27 25 19    24 15 17 12 15 7 2 1 0 0 ", "%f ", Inf);
+%! assert(rows (x) == n);
+
+%% Note use fprintf so output not sent to stdout
+%% test/octave.test/io/printf-1.m
+%!test
+%! nm = tmpnam();
+%! fid1 = fopen(nm,"w");
+%! x = fprintf (fid1, "%s: %d\n", "test", 1);
+%! fclose(fid1);
+%! fid2 = fopen(nm,"r");
+%! str = fscanf(fid2,"%s");
+%! fclose(fid2);
+%! unlink(nm);
+%! assert(x,8);
+%! assert(str,"test:1");
+
+%% test/octave.test/io/printf-2.m
+%!error printf (1);
+
+%% test/octave.test/io/printf-3.m
+%!error <... printf:.*> printf ();
+
+%% test/octave.test/io/sprintf-1.m
+%!test
+%! [s, msg, status] = sprintf ("%s: %d\n", "test", 1);
+%! 
+%! assert(s == "test: 1\n" && isstr (msg) && status == 8);
+
+%% test/octave.test/io/sprintf-2.m
+%!error sprintf (1);
+
+%% test/octave.test/io/sprintf-3.m
+%!error <... sprintf:.*> sprintf ();
+
+%% test/octave.test/io/fopen-1.m
+%!test
+%! arch_list = ["native"; "ieee-le"; "ieee-be"; "vaxd"; "vaxg"; "cray"];
+%! 
+%! status = 1;
+%! 
+%! for i = 1:6
+%!   arch = deblank (arch_list (i,:));
+%!   for j = 1:6
+%!     if (j == 1)
+%!       mode_list = ["w"; "r"; "a"];
+%!     elseif (j == 2)
+%!       mode_list = ["w+"; "r+"; "a+"];
+%!     endif
+%!     nm = tmpnam ();
+%!     for k = 1:3
+%!       mode = deblank (mode_list (k,:));
+%!       [id, err] = fopen (nm, mode, arch);
+%!       if (id < 0)
+%!         printf_assert ("open failed: %s (%s, %s): %s\n", nm, mode, arch, err);
+%!         status = 0;
+%!         break;
+%!       else
+%!         fclose (id);
+%!       endif
+%!       tmp_mode = strcat (mode, "b");
+%!       [id, err] = fopen (nm, tmp_mode, arch);
+%!       if (id < 0)
+%!         printf_assert ("open failed: %s (%s, %s): %s\n", nm, tmp_mode, arch, err);
+%!         status = 0;
+%!         break;
+%!       else
+%!         fclose (id);
+%!       endif
+%!       tmp_mode = strcat (mode, "t");
+%!       [id, err] = fopen (nm, tmp_mode, arch);
+%!       if (id < 0)
+%!         printf_assert ("open failed: %s (%s, %s): %s\n", nm, tmp_mode, arch, err);
+%!         status = 0;
+%!         break;
+%!       else
+%!         fclose (id);
+%!       endif
+%!     endfor
+%!     if (status == 0)
+%!       break;
+%!     endif
+%!   endfor
+%!   if (status == 0)
+%!     break;
+%!   endif
+%! endfor
+%! 
+%! assert(status == 1);
+
+%% test/octave.test/io/fopen-2.m
+%!test
+%! s.a = 1;
+%! fail("fopen (s)");
+
+%% test/octave.test/io/fopen-3.m
+%!error fopen ("foo", "x");
+
+%% test/octave.test/io/fopen-4.m
+%! fopen ("foo", "wb", "noodle");
+%! assert(prog_output_assert("error:.*"));
+
+%% test/octave.test/io/fopen-5.m
+%!error <... fopen:.*> fopen ();
+
+%% test/octave.test/io/fopen-6.m
+%!error <... fopen:.*> fopen ("foo", "wb", "native", 1);
+
+%% test/octave.test/io/fclose-1.m
+%!error fclose (0);
+
+%% test/octave.test/io/fclose-2.m
+%!error <... fclose:.*> fclose (1, 2);
+
+%% test/octave.test/io/tmpnam-1.m
+%!assert(isstr (tmpnam ()));
+
+%% test/octave.test/io/tmpnam-2.m
+%!warning tmpnam (1);
+
+%% test/octave.test/io/tmpnam-3.m
+%!warning tmpnam ("foo", 1);
+
+%% test/octave.test/io/tmpnam-4.m
+%!error <... tmpnam:.*> tmpnam (1, 2, 3);
+
+%% test/octave.test/io/binary-io-1.m
+%!test
+%! type_list = ["char"; "char*1"; "integer*1"; "int8";
+%! "schar"; "signed char"; "uchar"; "unsigned char";
+%! "short"; "ushort"; "unsigned short"; "int";
+%! "uint"; "unsigned int"; "long"; "ulong"; "unsigned long";
+%! "float"; "float32"; "real*4"; "double"; "float64";
+%! "real*8"; "int16"; "integer*2"; "int32"; "integer*4"];
+%! 
+%! n = rows (type_list);
+%! 
+%! nm = tmpnam ();
+%! 
+%! id = fopen (nm, "wb");
+%! 
+%! if (id > 0)
+%! 
+%! for i = 1:n
+%! fwrite (id, i, deblank (type_list(i,:)));
+%! endfor
+%! 
+%! fclose (id);
+%! 
+%! id = fopen (nm, "rb");
+%! 
+%! if (id > 0)
+%! 
+%! x = zeros (1, n);
+%! 
+%! for i = 1:n
+%! x(i) = fread (id, [1, 1], deblank (type_list(i,:)));
+%! endfor
+%! 
+%! if (x == 1:n)
+%! printf_assert ("ok\n");
+%! endif
+%! 
+%! endif
+%! 
+%! endif
+%! 
+%! unlink (nm);
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/io/file-pos-1.m
+%!test
+%! nm = tmpnam ();
+%! id = fopen (nm, "wb");
+%! if (id > 0)
+%!   fprintf (id, "%d\n", 1:100);
+%!   fclose (id);
+%!   id = fopen (nm, "rb");
+%!   if (id > 0)
+%!     for i = 1:101
+%!       fgets (id);
+%!     endfor
+%!     if (feof (id))
+%!       fclose (id);
+%!       id = fopen (nm, "rb");
+%!       pos_one = ftell (id);
+%!       s_one = fgets (id);
+%!       for i = 1:48
+%!         s = fgets (id);
+%!       endfor
+%!       pos_fifty = ftell (id);
+%!       s_fifty = fgets (id);
+%!       fseek (id, pos_one, SEEK_SET);
+%!       s_one_x = fgets (id);
+%!       fseek (id, pos_fifty, SEEK_SET);
+%!       s_fifty_x = fgets (id);
+%!       if (s_one == s_one_x && s_fifty == s_fifty_x)
+%!         frewind (id);
+%!         s_one_x = fgets (id);
+%!         if (s_one != s_one_x)
+%!           error("bombed!!");
+%!         endif
+%!       endif
+%!     endif
+%!   endif
+%! endif
+%! unlink (nm);
+
+%% test/octave.test/io/fputs-1.m
+%!error <... fputs:.*> fputs ();
+
+%% test/octave.test/io/fputs-2.m
+%!error <... fputs:.*> fputs (1, "foo", 1);
+
+%% test/octave.test/io/fputs-3.m
+%!assert(fputs (1, 1),-1);
+
+%% test/octave.test/io/fgetl-1.m
+%!error <... fgetl:.*> fgetl ();
+
+%% test/octave.test/io/fgetl-2.m
+%!error <... fgetl:.*> fgetl (1, 2, 3);
+
+%% test/octave.test/io/fgetl-3.m
+%!error fgetl ("foo", 1);
+
+%% test/octave.test/io/fgets-1.m
+%!error <... fgets:.*> fgets ();
+
+%% test/octave.test/io/fgets-2.m
+%!error <... fgets:.*> fgets (1, 2, 3);
+
+%% test/octave.test/io/fgets-3.m
+%!error fgets ("foo", 1);
+
+%% test/octave.test/io/fprintf-1.m
+%!error <... fprintf:.*> fprintf ();
+
+%% test/octave.test/io/fprintf-2.m
+%!error <... fprintf:.*> fprintf (1);
+
+%% test/octave.test/io/fprintf-3.m
+%!test
+%! s.a = 1;
+%! fail("fprintf (s)","... fprintf:.*");
+
+%% test/octave.test/io/fprintf-4.m
+%!error fprintf (1, 1);
+
+%% test/octave.test/io/fprintf-5.m
+%!error fprintf (-1, "foo");
+
+%% test/octave.test/io/fscanf-1.m
+%!error <... fscanf:.*> fscanf ();
+
+%% test/octave.test/io/fscanf-2.m
+%!error <... fscanf:.*> fscanf (1);
+
+%% test/octave.test/io/fscanf-3.m
+%!error fscanf ("foo", "bar");
+
+%% test/octave.test/io/fread-1.m
+%!error <... fread:.*> fread ();
+
+%% test/octave.test/io/fread-2.m
+%!error <... fread:.*> fread (1, 2, "char", 1, "native", 2);
+
+%% test/octave.test/io/fread-3.m
+%!error fread ("foo");
+
+%% test/octave.test/io/fwrite-1.m
+%!error <... fwrite:.*> fwrite ();
+
+%% test/octave.test/io/fwrite-2.m
+%!error <... fwrite:.*> fwrite (1, rand (10), "char", 1, "native", 2);
+
+%% test/octave.test/io/fwrite-3.m
+%!error fwrite ("foo", 1);
+
+%% test/octave.test/io/feof-1.m
+%!error <... feof:.*> feof ();
+
+%% test/octave.test/io/feof-2.m
+%!error <... feof:.*> feof (1, 2);
+
+%% test/octave.test/io/feof-3.m
+%!error feof ("foo");
+
+%% XXX FIXME XXX trimerr in test.m finds and strips ".*ferror:"!!
+%% So use fail for the next two tests instead.
+%% test/octave.test/io/ferror-1.m
+%!test
+%! fail("ferror ();","... ferror:.*");
+
+%% test/octave.test/io/ferror-2.m
+%!test
+%! fail("ferror (1, \"clear\", 2);","... ferror:.*"); 
+
+%% test/octave.test/io/ferror-3.m
+%!error ferror ("foo");
+
+%% test/octave.test/io/ftell-1.m
+%!error <... ftell:.*> ftell ();
+
+%% test/octave.test/io/ftell-2.m
+%!error <... ftell:.*> ftell (1, 2);
+
+%% test/octave.test/io/ftell-3.m
+%!error ftell ("foo");
+
+%% test/octave.test/io/fseek-1.m
+%!error <... fseek:.*> fseek ();
+
+%% test/octave.test/io/fseek-2.m
+%!error <... fseek:.*> fseek (1, 0, SEEK_SET, 1);
+
+%% test/octave.test/io/fseek-3.m
+%!error fseek ("foo", 0, SEEK_SET);
+
+%% test/octave.test/io/frewind-1.m
+%!error <... frewind:.*> frewind ();
+
+%% test/octave.test/io/frewind-2.m
+%!error <... frewind:.*> frewind (1, 2);
+
+%% test/octave.test/io/frewind-3.m
+%!error frewind ("foo");
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_linalg.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_linalg.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,376 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/linalg/cond-1.m
+%!assert(abs (cond ([1, 2; 2, 1]) - 3) < sqrt (eps));
+
+%% test/octave.test/linalg/cond-2.m
+%!assert(cond ([1, 2, 3; 4, 5, 6; 7, 8, 9]) > 1.0e+16);
+
+%% test/octave.test/linalg/cond-3.m
+%!error cond ();
+
+%% test/octave.test/linalg/cond-4.m
+%!error cond (1, 2);
+
+%% test/octave.test/linalg/det-1.m
+%!assert(det ([1, 2; 3, 4]) == -2);
+
+%% test/octave.test/linalg/det-2.m
+%!error <... det:.*> det ();
+
+%% test/octave.test/linalg/det-3.m
+%!error <... det:.*> det (1, 2);
+
+%% test/octave.test/linalg/det-4.m
+%!error det ([1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/linalg/eig-1.m
+%!assert(all (abs (eig ([1, 2; 2, 1]) - [-1; 3]) < sqrt (eps)));
+
+%% test/octave.test/linalg/eig-2.m
+%!test
+%! [v, d] = eig ([1, 2; 2, 1]);
+%! x = 1 / sqrt (2);
+%! assert(((abs (d - [-1, 0; 0, 3]) < sqrt (eps))
+%! && (abs (v - [-x, x; x, x]) < sqrt (eps))));
+
+%% test/octave.test/linalg/eig-3.m
+%!error <... eig:.*> eig ();
+
+%% test/octave.test/linalg/eig-4.m
+%!error <... eig:.*> eig ([1, 2; 3, 4], 2);
+
+%% test/octave.test/linalg/eig-5.m
+%!error eig ([1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/linalg/expm-1.m
+%!test
+%! arg = [-49, 24; -64, 31];
+%! result = [-0.735758758144742, 0.551819099658089;
+%! -1.471517599088239, 1.103638240715556];
+%! assert(all (all (abs (expm (arg) - result) < 128*eps)));
+
+%% test/octave.test/linalg/expm-2.m
+%!test
+%! arg = [1, 1; 0, 1];
+%! result = [2.718281828459045, 2.718281828459045;
+%! 0.000000000000000, 2.718281828459045];
+%! assert(all (all (abs (expm (arg) - result) < 4*eps)));
+
+%% test/octave.test/linalg/expm-3.m
+%!test
+%! arg = diag ([6, 6, 6], 1);
+%! result = [1, 6, 18, 36;
+%! 0, 1,  6, 18;
+%! 0, 0,  1,  6;
+%! 0, 0,  0,  1];
+%! assert(all (all (expm (arg) == result)));
+
+%% test/octave.test/linalg/expm-4.m
+%!error <expm:> expm();
+
+%% test/octave.test/linalg/expm-5.m
+%!error <expm:> expm(1,2);
+
+%% test/octave.test/linalg/expm-6.m
+%% test/octave.test/linalg/inv-1.m
+%!assert(all (all (abs (inv ([1, 2; 3, 4]) - [-2, 1; 1.5, -0.5]) < sqrt (eps))));
+
+%% test/octave.test/linalg/inv-2.m
+%!error <... inv:.*> inv ();
+
+%% test/octave.test/linalg/inv-3.m
+%!error <... inv:.*> inv ([1, 2; 3, 4], 2);
+
+%% test/octave.test/linalg/inv-4.m
+%!error inv ([1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/linalg/trace-1.m
+%!assert(trace ([1, 2; 3, 4]) == 5);
+
+%% test/octave.test/linalg/trace-2.m
+%!assert(trace ([1, 2; 3, 4; 5, 6]) == 5);
+
+%% test/octave.test/linalg/trace-3.m
+%!assert(trace ([1, 3, 5; 2, 4, 6]) == 5);
+
+%% test/octave.test/linalg/trace-4.m
+%!error trace ();
+
+%% test/octave.test/linalg/trace-5.m
+%!error trace (1, 2);
+
+%% test/octave.test/linalg/chol-1.m
+%!test
+%! rt2 = sqrt (2);
+%! assert(all (all (abs (chol ([2, 1; 1, 1]) - [rt2, 1/rt2; 0, 1/rt2]) < sqrt (eps))));
+
+%% test/octave.test/linalg/chol-2.m
+%!error chol ([1, 2; 3, 4]);
+
+%% test/octave.test/linalg/chol-3.m
+%!error chol ([1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/linalg/chol-4.m
+%!error <... chol:.*> chol ();
+
+%% test/octave.test/linalg/chol-5.m
+%!error <... chol:.*> chol (1, 2);
+
+%% test/octave.test/linalg/hess-1.m
+%!test
+%! a = [1, 2, 3; 5, 4, 6; 8, 7, 9];
+%! [p, h] = hess (a);
+%! assert(size (p) == [3, 3] && size (h) == [3, 3] && abs (a - p * h * p') < sqrt (eps));
+
+%% test/octave.test/linalg/hess-2.m
+%!error <... hess:.*> hess ();
+
+%% test/octave.test/linalg/hess-3.m
+%!error <... hess:.*> hess ([1, 2; 3, 4], 2);
+
+%% test/octave.test/linalg/hess-4.m
+%!error hess ([1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/linalg/lu-1.m
+%!assert(all (all (lu ([1, 2; 3, 4]) - [1/3, 1; 1, 0] < eps)));
+
+%% test/octave.test/linalg/lu-2.m
+%!test
+%! [l, u] = lu ([1, 2; 3, 4]);
+%! assert(((abs (l - [1/3, 1; 1, 0]) < sqrt (eps))
+%! && abs (u - [3, 4; 0, 2/3]) < sqrt (eps)));
+
+%% test/octave.test/linalg/lu-3.m
+%!test
+%! [l, u, p] = lu ([1, 2; 3, 4]);
+%! assert((abs (l - [1, 0; 1/3, 1]) < sqrt (eps)
+%! && abs (u - [3, 4; 0, 2/3]) < sqrt (eps)
+%! && abs (p - [0, 1; 1, 0]) < sqrt (eps)));
+
+%% test/octave.test/linalg/lu-4.m
+%!error <... lu:.*> lu ();
+
+%% test/octave.test/linalg/lu-5.m
+%!error <... lu:.*> lu ([1, 2; 3, 4], 2);
+
+%% test/octave.test/linalg/lu-6.m
+%!test
+%! [l u p] = lu ([1, 2; 3, 4; 5, 6]);
+%! assert((abs (l - [1, 0; 1/5, 1; 3/5, 1/2]) < sqrt (eps)
+%! && abs (u - [5, 6; 0, 4/5]) < sqrt (eps)
+%! && abs (p - [0, 0, 1; 1, 0, 0; 0 1 0]) < sqrt (eps)));
+
+%% test/octave.test/linalg/qr-1.m
+%!test
+%! a = [0, 2, 1; 2, 1, 2];
+%! 
+%! [q, r] = qr (a);
+%! 
+%! [qe, re] = qr (a, 0);
+%! 
+%! assert((size (q) == [2, 2] && size (r) == [2, 3]
+%! && abs (q * r - a) < sqrt (eps)
+%! && size (qe) == [2, 2] && size (re) == [2, 3]
+%! && abs (qe * re - a) < sqrt (eps)));
+
+%% test/octave.test/linalg/qr-2.m
+%!test
+%! a = [0, 2, 1; 2, 1, 2];
+%! 
+%! [q, r, p] = qr (a);  # not giving right dimensions. XXX FIXME XXX
+%! 
+%! [qe, re, pe] = qr (a, 0);
+%! 
+%! assert((size (q) == [2, 2] && size (r) == [2, 3] && size (p) == [3, 3]
+%! && abs (q * r - a * p) < sqrt (eps)
+%! && size (qe) == [2, 2] && size (re) == [2, 3] && size (pe) == [1, 3]
+%! && abs (qe * re - a(:,pe)) < sqrt (eps)));
+
+%% test/octave.test/linalg/qr-3.m
+%!test
+%! a = [0, 2; 2, 1; 1, 2];
+%! 
+%! [q, r] = qr (a);
+%! 
+%! [qe, re] = qr (a, 0);
+%! 
+%! assert((size (q) == [3, 3] && size (r) == [3, 2]
+%! && abs (a - q * r) < sqrt (eps)
+%! && size (qe) == [3, 2] && size (re) == [2, 2]
+%! && abs (a - qe * re) < sqrt (eps)));
+
+%% test/octave.test/linalg/qr-4.m
+%!test
+%! a = [0, 2; 2, 1; 1, 2];
+%! 
+%! [q, r, p] = qr (a);
+%! 
+%! [qe, re, pe] = qr (a, 0);
+%! 
+%! assert((size (q) == [3, 3] && size (r) == [3, 2] && size (p) == [2, 2]
+%! && abs (a * p - q * r) < sqrt (eps)
+%! && size (qe) == [3, 2] && size (re) == [2, 2] && size (pe) == [1, 2]
+%! && abs (a(:,pe) - qe * re) < sqrt (eps)));
+
+%% test/octave.test/linalg/qr-5.m
+%!error <... qr:.*> qr ();
+
+%% test/octave.test/linalg/qr-6.m
+%!error <... qr:.*> qr ([1, 2; 3, 4], 0, 2);
+
+%% test/octave.test/linalg/qr-7.m
+%!function retval = testqr (q, r, a, p)
+%!  tol = 10*eps;
+%!  retval = 0;
+%!  if (nargin == 3)
+%!    n1 = norm (q*r-a);
+%!    n2 = norm (q'*q-eye(columns(q)));
+%!    retval = (n1 < tol && n2 < tol);
+%!  else
+%!    n1 = norm (q'*q-eye(columns(q)));
+%!    retval = (n1 < tol);
+%!    if (isvector (p))
+%!      n2 = norm (q*r-a(:,p));
+%!      retval = (retval && n2 < tol);
+%!    else
+%!      n2 = norm (q*r - a*p);
+%!      retval = (retval && n2 < tol);
+%!    endif
+%!  endif
+%!test
+%! 
+%! t = ones (24, 1);
+%! j = 1;
+%! 
+%! if 0 # eliminate big matrix tests
+%! a = rand(5000,20);
+%! [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
+%! 
+%! a = a+1i*eps;
+%! [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
+%! endif
+%! 
+%! a = [ ones(1,15); sqrt(eps)*eye(15) ];
+%! [q,r]=qr(a); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a'); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a'); t(j++) = testqr(q,r,a',p);
+%! 
+%! a = a+1i*eps;
+%! [q,r]=qr(a); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a'); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a'); t(j++) = testqr(q,r,a',p);
+%! 
+%! a = [ ones(1,15); sqrt(eps)*eye(15) ];
+%! [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
+%! 
+%! a = a+1i*eps;
+%! [q,r]=qr(a,0); t(j++) = testqr(q,r,a);
+%! [q,r]=qr(a',0); t(j++) = testqr(q,r,a');
+%! [q,r,p]=qr(a,0); t(j++) = testqr(q,r,a,p);
+%! [q,r,p]=qr(a',0); t(j++) = testqr(q,r,a',p);
+%! 
+%! a = [
+%! 611   196  -192   407    -8   -52   -49    29
+%! 196   899   113  -192   -71   -43    -8   -44
+%! -192   113   899   196    61    49     8    52
+%! 407  -192   196   611     8    44    59   -23
+%! -8   -71    61     8   411  -599   208   208
+%! -52   -43    49    44  -599   411   208   208
+%! -49    -8     8    59   208   208    99  -911
+%! 29   -44    52   -23   208   208  -911    99
+%! ];
+%! [q,r] = qr(a);
+%! 
+%! assert(all (t) && norm(q*r-a) < 5000*eps);
+
+%% test/octave.test/linalg/schur-1.m
+%!test
+%! a = [1, 2, 3; 4, 5, 9; 7, 8, 6];
+%! [u, s] = schur (a);
+%! assert(size (u) == [3, 3] && size (s) == [3, 3] && abs (s - u' * a * u) < sqrt (eps));
+
+%% test/octave.test/linalg/schur-2.m
+%!error <... schur:.*> schur ();
+
+%% test/octave.test/linalg/schur-3.m
+%!test
+%! warn_num_to_str = 1;
+%! fail("schur ([1, 2; 3, 4], 2)","warning");
+
+%% test/octave.test/linalg/schur-4.m
+%!error schur ([1, 2, 3; 4, 5, 6]);
+
+%% test/octave.test/linalg/svd-1.m
+%!assert(all (abs (svd ([1, 2; 2, 1]) - [3; 1]) < sqrt (eps)));
+
+%% test/octave.test/linalg/svd-2.m
+%!test
+%! [u, s, v] = svd ([1, 2; 2, 1]);
+%! x = 1 / sqrt (2);
+%! assert(((abs (u - [-x, -x; -x, x]) < sqrt (eps))
+%! && (abs (s - [3, 0; 0, 1]) < sqrt (eps))
+%! && (abs (v - [-x, x; -x, -x]) < sqrt (eps))));
+
+%% test/octave.test/linalg/svd-3.m
+%!test
+%! a = [1, 2, 3; 4, 5, 6];
+%! [u, s, v] = svd (a);
+%! assert((size (u) == [2, 2] && size (s) == [2, 3] && size (v) == [3, 3]
+%! && abs (a - u * s * v') < sqrt (eps)));
+
+%% test/octave.test/linalg/svd-4.m
+%!test
+%! a = [1, 2; 3, 4; 5, 6];
+%! [u, s, v] = svd (a);
+%! assert((size (u) == [3, 3] && size (s) == [3, 2] && size (v) == [2, 2]
+%! && abs (a - u * s * v') < sqrt (eps)));
+
+%% test/octave.test/linalg/svd-5.m
+%!test
+%! a = [1, 2, 3; 4, 5, 6];
+%! [u, s, v] = svd (a, 1);
+%! assert((size (u) == [2, 2] && size (s) == [2, 2] && size (v) == [3, 2]
+%! && abs (a - u * s * v') < sqrt (eps)));
+
+%% test/octave.test/linalg/svd-6.m
+%!test
+%! a = [1, 2; 3, 4; 5, 6];
+%! [u, s, v] = svd (a, 1);
+%! assert((size (u) == [3, 2] && size (s) == [2, 2] && size (v) == [2, 2]
+%! && abs (a - u * s * v') < sqrt (eps)));
+
+%% test/octave.test/linalg/svd-7.m
+%!error <... svd:.*> svd ();
+
+%% test/octave.test/linalg/svd-8.m
+%!error <... svd:.*> svd ([1, 2; 4, 5], 2, 3);
+
+%% test/octave.test/linalg/svd-9.m
+%!error <... svd:.*> [u, v] = svd ([1, 2; 3, 4]);
+
+%% test/octave.test/linalg/syl-1.m
+%!test
+%! x = syl ([1, 2; 3, 4], [5, 6; 7, 8], [9, 10; 11, 12]);
+%! assert(all (all (abs (x - [-1/2, -2/3; -2/3, -1/2]) < sqrt (eps))));
+
+%% test/octave.test/linalg/syl-2.m
+%!error <... syl:.*> syl ();
+
+%% test/octave.test/linalg/syl-3.m
+%!error <... syl:.*> syl (1, 2, 3, 4);
+
+%% test/octave.test/linalg/syl-4.m
+%!error syl ([1, 2; 3, 4], [1, 2, 3; 4, 5, 6], [4, 3]);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_logical-wfi-f.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_logical-wfi-f.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,354 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/logical-wfi-f/s-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/s-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 2;
+%! assert(a(1) == 2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/s-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 2;
+%! assert(a(1) == 2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/s-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = 2;
+%! assert(all (a(logical ([1,1])) == [2,2]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/v-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8,7,6];
+%! assert(isempty (a(logical ([0,0,0,0]))));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/v-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([1,1,1,1])) == [9,8,7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/v-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([0,1,1,0])) == [8,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/v-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([1,1])) == [9,9]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(isempty (a(logical ([0,0,0,0]))));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1,1,1])) == [9;7;8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1,1,0])) == [7;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),logical (0:1)) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),2:-1:1) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),logical ([0,1])) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),[2,1]) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),:) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),1) == 7);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),logical ([1,1])) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(2:-1:1,logical (0:1)) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(2:-1:1,logical ([0,1])) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),logical (0:1)) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),2:-1:1) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-16.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),logical ([0,1])) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-17.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),[2,1]) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-18.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),:) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-19.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),1) == 7);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-20.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),logical ([1,1])) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-21.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a([2,1],logical (0:1)) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-22.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a([2,1],logical ([0,1])) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-23.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a([2,1],logical ([1,1])) == [7,6;9,8])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-24.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(:,logical (0:1)) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-25.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(:,logical ([0,1])) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-26.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(:,logical ([1,1])) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-27.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(1,logical (0:1)) == 8);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-28.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(a(1,logical ([0,1])) == 8);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-29.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(1,logical ([1,1])) == [9,8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-30.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),logical (0:1)) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-31.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-32.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),logical ([0,1])) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-33.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-34.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),:) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-35.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),1) == [9;7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-f/m-36.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 0;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_logical-wfi-t.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_logical-wfi-t.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,354 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/logical-wfi-t/s-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [];
+%! fail("a(0);");
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/s-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 2;
+%! assert(a(1) == 2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/s-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 2;
+%! assert(a(1) == 2);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/s-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = 2;
+%! assert(all (a(logical ([1,1])) == [2,2]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/v-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8,7,6];
+%! assert(isempty (a(logical ([0,0,0,0]))));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/v-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([1,1,1,1])) == [9,8,7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/v-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([0,1,1,0])) == [8,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/v-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8,7,6];
+%! assert(all (a(logical ([1,1])) == [9,9]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-1.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! isempty (a(logical ([0,0,0,0])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-2.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! all (a(logical ([1,1,1,1])) == [9;7;8;6]);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-3.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! all (a(logical ([0,1,1,0])) == [7;8]);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-4.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),logical (0:1)) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-5.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),2:-1:1) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-6.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),logical ([0,1])) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-7.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),[2,1]) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-8.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),:) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-9.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical (0:1),1) == 7);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-10.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical (0:1),logical ([1,1])) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-11.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(2:-1:1,logical (0:1)) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-12.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(2:-1:1,logical ([0,1])) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-13.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-14.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),logical (0:1)) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-15.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),2:-1:1) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-16.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),logical ([0,1])) == 6);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-17.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),[2,1]) == [6,7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-18.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),:) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-19.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(logical ([0,1]),1) == 7);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-20.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([0,1]),logical ([1,1])) == [7,6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-21.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a([2,1],logical (0:1)) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-22.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a([2,1],logical ([0,1])) == [6;8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-23.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a([2,1],logical ([1,1])) == [7,6;9,8])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-24.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(:,logical (0:1)) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-25.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(:,logical ([0,1])) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-26.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(:,logical ([1,1])) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-27.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(1,logical (0:1)) == 8);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-28.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(a(1,logical ([0,1])) == 8);
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-29.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(1,logical ([1,1])) == [9,8]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-30.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),logical (0:1)) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-31.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-32.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),logical ([0,1])) == [8;6]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-33.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-34.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),:) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-35.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (a(logical ([1,1]),1) == [9;7]));
+%! warn_fortran_indexing = wfi;
+
+%% test/octave.test/logical-wfi-t/m-36.m
+%!test
+%! wfi = warn_fortran_indexing;
+%! warn_fortran_indexing = 1;
+%! a = [9,8;7,6];
+%! assert(all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6])));
+%! warn_fortran_indexing = wfi;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_matrix.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_matrix.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,446 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/matrix/all-1.m
+%!test
+%! x = ones (3);
+%! x(1,1) = 0;
+%! assert((all (all (rand (3) + 1) == [1, 1, 1]) == 1
+%! && all (all (x) == [0, 1, 1]) == 1
+%! && all (x, 1) == [0, 1, 1]
+%! && all (x, 2) == [0; 1; 1]));
+
+%% test/octave.test/matrix/all-2.m
+%!error <... all:.*> all ();
+
+%% test/octave.test/matrix/all-3.m
+%!error <... all:.*> all (1, 2, 3);
+
+%% test/octave.test/matrix/any-1.m
+%!test
+%! x = zeros (3);
+%! x(3,3) = 1;
+%! assert((all (any (x) == [0, 0, 1]) == 1
+%! && all (any (ones (3)) == [1, 1, 1]) == 1
+%! && any (x, 1) == [0, 0, 1]
+%! && any (x, 2) == [0; 0; 1]));
+
+%% test/octave.test/matrix/any-2.m
+%!error <... any:.*> any ();
+
+%% test/octave.test/matrix/any-3.m
+%!error <... any:.*> any (1, 2, 3);
+
+%% test/octave.test/matrix/diff-1.m
+%!assert((diff ([1, 2, 3, 4]) == [1, 1, 1]
+%! && diff ([1, 3, 7, 19], 2) == [2, 8]
+%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1]) == [4, 2; 3, 3; 1, -1; -6, -5]
+%! && diff ([1, 2; 5, 4; 8, 7; 9, 6; 3, 1], 3) == [-1, -5; -5, 0]
+%! && isempty (diff (1))));
+
+%% test/octave.test/matrix/diff-2.m
+%!error diff ([1, 2; 3, 4], -1);
+
+%% test/octave.test/matrix/diff-3.m
+%!error diff ("foo");
+
+%% test/octave.test/matrix/diff-4.m
+%!error diff ();
+
+%% test/octave.test/matrix/diff-5.m
+%!error diff (1, 2, 3, 4);
+
+%% test/octave.test/matrix/find-1.m
+%!assert((find ([1, 0, 1, 0, 1]) == [1, 3, 5]
+%! && find ([1; 0; 3; 0; 1]) == [1; 3; 5]
+%! && find ([0, 0, 2; 0, 3, 0; -1, 0, 0]) == [3; 5; 7]));
+
+%% test/octave.test/matrix/find-2.m
+%!test
+%! [i, j, v] = find ([0, 0, 2; 0, 3, 0; -1, 0, 0]);
+%! 
+%! assert(i == [3; 2; 1] && j == [1; 2; 3] && v == [-1; 3; 2]);
+
+%% test/octave.test/matrix/find-3.m
+%!error <... find:.*> find ();
+
+%% test/octave.test/matrix/find-4.m
+%!error <... find:.*> find (1, 2);
+
+%% test/octave.test/matrix/fliplr-1.m
+%!assert((fliplr ([1, 2; 3, 4]) == [2, 1; 4, 3]
+%! && fliplr ([1, 2; 3, 4; 5, 6]) == [2, 1; 4, 3; 6, 5]
+%! && fliplr ([1, 2, 3; 4, 5, 6]) == [3, 2, 1; 6, 5, 4]));
+
+%% test/octave.test/matrix/fliplr-2.m
+%!error <usage.*fliplr> fliplr();
+
+%% test/octave.test/matrix/fliplr-3.m
+%!error fliplr (1, 2);
+
+%% test/octave.test/matrix/flipud-1.m
+%!assert((flipud ([1, 2; 3, 4]) == [3, 4; 1, 2]
+%! && flipud ([1, 2; 3, 4; 5, 6]) == [5, 6; 3, 4; 1, 2]
+%! && flipud ([1, 2, 3; 4, 5, 6]) == [4, 5, 6; 1, 2, 3]));
+
+%% test/octave.test/matrix/flipud-2.m
+%!error flipud ();
+
+%% test/octave.test/matrix/flipud-3.m
+%!error flipud (1, 2);
+
+%% test/octave.test/matrix/rot90-1.m
+%!test
+%! x1 = [1, 2;
+%! 3, 4];
+%! x2 = [2, 4;
+%! 1, 3];
+%! x3 = [4, 3;
+%! 2, 1];
+%! x4 = [3, 1;
+%! 4, 2];
+%! 
+%! assert((rot90 (x1)== x2 && rot90 (x1, 2) == x3 && rot90 (x1, 3) == x4
+%! && rot90 (x1, 4) == x1 && rot90 (x1, 5) == x2 && rot90 (x1, -1) == x4));
+
+%% test/octave.test/matrix/rot90-2.m
+%!error rot90 ();
+
+%% test/octave.test/matrix/rot90-3.m
+%!error rot90 (1, 2, 3);
+
+%% test/octave.test/matrix/reshape-1.m
+%!assert((size (reshape (rand (4, 4), 2, 8)) == [2, 8]
+%! && size (reshape (rand (4, 4), 8, 2)) == [8, 2]
+%! && size (reshape (rand (15, 4), 1, 60)) == [1, 60]
+%! && size (reshape (rand (15, 4), 60, 1)) == [60, 1]));
+
+%% test/octave.test/matrix/reshape-2.m
+%!test
+%! s.a = 1;
+%! fail("reshape (s, 2, 3)");
+
+%% test/octave.test/matrix/reshape-3.m
+%!error <... reshape:.*> reshape ();
+
+%% test/octave.test/matrix/reshape-4.m
+%!error reshape (1, 2, 3, 4);
+
+%% test/octave.test/matrix/shift-1.m
+%!test
+%! a = [1, 2, 3];
+%! b = [4, 5, 6];
+%! c = [7, 8, 9];
+%! 
+%! r = [a, b, c];
+%! m = [a; b; c];
+%! 
+%! assert((shift (r, 3) == [c, a, b]
+%! && shift (r, -6) == [c, a, b]
+%! && shift (r, -3) == [b, c, a]
+%! && shift (m, 1) == [c; a; b]
+%! && shift (m, -2) == [c; a; b]));
+
+%% test/octave.test/matrix/shift-2.m
+%!error shift ();
+
+%% test/octave.test/matrix/shift-3.m
+%!error shift (1, 2, 3, 4);
+
+%% test/octave.test/matrix/sort-1.m
+%!test
+%! a = [1, 2; 2, 3; 3, 1];
+%! s = [1, 1; 2, 2; 3, 3];
+%! i = [1, 3; 2, 1; 3, 2];
+%! [xs, xi] = sort (a);
+%! assert(sort (a) == s && xs == s && xi == i);
+
+%% test/octave.test/matrix/sort-2.m
+%!error <... sort:.*> sort ();
+
+%% test/octave.test/matrix/sort-3.m
+%!error <... sort:.*> sort (1, 2, 3, 4);
+
+%% test/octave.test/matrix/tril-1.m
+%!test
+%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12];
+%! 
+%! l0 = [1, 0, 0; 4, 5, 0; 7, 8, 9; 10, 11, 12];
+%! l1 = [1, 2, 0; 4, 5, 6; 7, 8, 9; 10, 11, 12];
+%! l2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12];
+%! lm1 = [0, 0, 0; 4, 0, 0; 7, 8, 0; 10, 11, 12];
+%! lm2 = [0, 0, 0; 0, 0, 0; 7, 0, 0; 10, 11, 0];
+%! lm3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 10, 0, 0];
+%! lm4 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0];
+%! 
+%! assert((tril (a, -4) == lm4 && tril (a, -3) == lm3
+%! && tril (a, -2) == lm2 && tril (a, -1) == lm1
+%! && tril (a) == l0 && tril (a, 1) == l1 && tril (a, 2) == l2));
+
+%% test/octave.test/matrix/tril-2.m
+%!error tril ();
+
+%% test/octave.test/matrix/tril-3.m
+%!error tril (1, 2, 3);
+
+%% test/octave.test/matrix/triu-1.m
+%!test
+%! a = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12];
+%! 
+%! u0 = [1, 2, 3; 0, 5, 6; 0, 0, 9; 0, 0, 0];
+%! u1 = [0, 2, 3; 0, 0, 6; 0, 0, 0; 0, 0, 0];
+%! u2 = [0, 0, 3; 0, 0, 0; 0, 0, 0; 0, 0, 0];
+%! u3 = [0, 0, 0; 0, 0, 0; 0, 0, 0; 0, 0, 0];
+%! um1 = [1, 2, 3; 4, 5, 6; 0, 8, 9; 0, 0, 12];
+%! um2 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 0, 11, 12];
+%! um3 = [1, 2, 3; 4, 5, 6; 7, 8, 9; 10, 11, 12];
+%! 
+%! assert((triu (a, -3) == um3 && triu (a, -2) == um2
+%! && triu (a, -1) == um1 && triu (a) == u0 && triu (a, 1) == u1
+%! && triu (a, 2) == u2 && triu (a, 3) == u3));
+
+%% test/octave.test/matrix/triu-2.m
+%!error triu ();
+
+%% test/octave.test/matrix/triu-3.m
+%!error triu (1, 2, 3);
+
+%% test/octave.test/matrix/vec-1.m
+%!assert(vec ([1, 2; 3, 4]) == [1; 3; 2; 4] && vec ([1, 3, 2, 4]) == [1; 3; 2; 4]);
+
+%% test/octave.test/matrix/vec-2.m
+%!error vec ();
+
+%% test/octave.test/matrix/vec-3.m
+%!error vec (1, 2);
+
+%% test/octave.test/matrix/vech-1.m
+%!assert(all (vech ([1, 2, 3; 4, 5, 6; 7, 8, 9]) == [1; 4; 7; 5; 8; 9]));
+
+%% test/octave.test/matrix/vech-2.m
+%!error vech ();
+
+%% test/octave.test/matrix/vech-3.m
+%!error vech (1, 2);
+
+%% test/octave.test/matrix/eye-1.m
+%!test
+%! i33 = [1, 0, 0; 0, 1, 0; 0, 0, 1];
+%! i23 = [1, 0, 0; 0, 1, 0];
+%! assert((eye (3) == i33 && eye (size (i33)) == i33 && eye (3, 3) == i33
+%! && eye (2, 3) == i23 && eye (3, 2) == i23'));
+
+%% test/octave.test/matrix/eye-2.m
+%!error <... eye:.*> eye (1, 2, 3);
+
+%% test/octave.test/matrix/ones-1.m
+%!test
+%! x33 = [1, 1, 1; 1, 1, 1; 1, 1, 1];
+%! x23 = [1, 1, 1; 1, 1, 1];
+%! assert((ones (3) == x33 && ones (size (x33)) == x33 && ones (3, 3) == x33
+%! && ones (2, 3) == x23 && ones (3, 2) == x23'));
+
+%% test/octave.test/matrix/ones-2.m
+%!assert(all (size (ones (3, 4, 5)) == [3, 4, 5]));
+
+%% test/octave.test/matrix/zeros-1.m
+%!test
+%! x33 = [0, 0, 0; 0, 0, 0; 0, 0, 0];
+%! x23 = [0, 0, 0; 0, 0, 0];
+%! assert((zeros (3) == x33 && zeros (size (x33)) == x33 && zeros (3, 3) == x33
+%! && zeros (2, 3) == x23 && zeros (3, 2) == x23'));
+
+%% test/octave.test/matrix/zeros-2.m
+%!assert(all (size (zeros (3, 4, 5)) == [3, 4, 5]));
+
+%% test/octave.test/matrix/rand-1.m
+%!test
+%! rand ("seed", 0.5);
+%! r1 = rand (100);
+%! rand ("seed", 0.5);
+%! r2 = rand (100);
+%! assert(rand (100) < 1 && rand (100) > 0 && r1 == r2);
+
+%% test/octave.test/matrix/rand-2.m
+%!assert(all (size (rand (1, 2, 3)) == [1, 2, 3]));
+
+%% test/octave.test/matrix/randn-1.m
+%!test
+%! randn ("seed", 0.5);
+%! r1 = randn (100);
+%! randn ("seed", 0.5);
+%! r2 = randn (100);
+%! assert(all (all (r1 == r2)));
+
+%% test/octave.test/matrix/randn-2.m
+%!assert(all (size (randn (1, 2, 3)) == [1, 2, 3]));
+
+%% test/octave.test/matrix/diag-1.m
+%!test
+%! d = [1; 2; 3];
+%! 
+%! d0 = [1, 0, 0;
+%! 0, 2, 0;
+%! 0, 0, 3];
+%! 
+%! d1 = [0, 1, 0, 0;
+%! 0, 0, 2, 0;
+%! 0, 0, 0, 3;
+%! 0, 0, 0, 0];
+%! 
+%! d2 = [0, 0, 1, 0, 0;
+%! 0, 0, 0, 2, 0;
+%! 0, 0, 0, 0, 3;
+%! 0, 0, 0, 0, 0;
+%! 0, 0, 0, 0, 0];
+%! 
+%! dm1 = [0, 0, 0, 0;
+%! 1, 0, 0, 0;
+%! 0, 2, 0, 0;
+%! 0, 0, 3, 0];
+%! 
+%! dm2 = [0, 0, 0, 0, 0;
+%! 0, 0, 0, 0, 0;
+%! 1, 0, 0, 0, 0;
+%! 0, 2, 0, 0, 0;
+%! 0, 0, 3, 0, 0];
+%! 
+%! assert((diag (d) == d0 && diag (d, 1) == d1 && diag (d, 2) == d2
+%! && diag (d, -1) == dm1 && diag (d, -2) == dm2
+%! && diag (d0) == d && diag (d1, 1) == d && diag (dm1, -1) == d));
+
+%% test/octave.test/matrix/diag-2.m
+%!error <... diag:.*> diag ();
+
+%% test/octave.test/matrix/diag-3.m
+%!error <... diag:.*> diag (1, 2, 3);
+
+%% test/octave.test/matrix/linspace-1.m
+%!test
+%! x1 = linspace (1, 2);
+%! x2 = linspace (1, 2, 10);
+%! x3 = linspace (1, -2, 10);
+%! assert((size (x1) == [1, 100] && x1(1) == 1 && x1(100) == 2
+%! && size (x2) == [1, 10] && x2(1) == 1 && x2(10) == 2
+%! && size (x3) == [1, 10] && x3(1) == 1 && x3(10) == -2));
+
+%% test/octave.test/matrix/linspace-2.m
+%!test
+%! warn_fortran_indexing = 0;
+%! assert(all (linspace ([1, 2; 3, 4], 5, 6) == linspace (1, 5, 6)));
+
+%% test/octave.test/matrix/linspace-3.m
+%!error <... linspace:.*> linspace ();
+
+%% test/octave.test/matrix/linspace-4.m
+%!error <... linspace:.*> linspace (1, 2, 3, 4);
+
+%% test/octave.test/matrix/linspace-5.m
+%!test
+%! warn_fortran_indexing = 1;
+%! fail("linspace ([1, 2; 3, 4], 5, 6)","warning");
+
+%% test/octave.test/matrix/logspace-1.m
+%!test
+%! x1 = logspace (1, 2);
+%! x2 = logspace (1, 2, 10);
+%! x3 = logspace (1, -2, 10);
+%! x4 = logspace (1, pi, 10);
+%! assert((size (x1) == [1, 50] && x1(1) == 10 && x1(50) == 100
+%! && size (x2) == [1, 10] && x2(1) == 10 && x2(10) == 100
+%! && size (x3) == [1, 10] && x3(1) == 10 && x3(10) == 0.01
+%! && size (x4) == [1, 10] && x4(1) == 10 && abs (x4(10) - pi) < sqrt (eps)));
+
+%% test/octave.test/matrix/logspace-2.m
+%!error logspace ([1, 2; 3, 4], 5, 6);
+
+%% test/octave.test/matrix/logspace-3.m
+%!error logspace ();
+
+%% test/octave.test/matrix/logspace-4.m
+%!error logspace (1, 2, 3, 4);
+
+%% test/octave.test/matrix/sylvester_matrix-1.m
+%!assert((sylvester_matrix (1) == [1, 1; 1, -1]
+%! && (sylvester_matrix (2)
+%! == [1, 1, 1, 1; 1, -1, 1, -1; 1, 1, -1, -1; 1, -1, -1, 1])));
+
+%% test/octave.test/matrix/sylvester_matrix-2.m
+%!error sylvester_matrix ([1, 2; 3, 4]);
+
+%% test/octave.test/matrix/sylvester_matrix-3.m
+%!error sylvester_matrix ();
+
+%% test/octave.test/matrix/sylvester_matrix-4.m
+%!error sylvester_matrix (1, 2);
+
+%% test/octave.test/matrix/hankel-1.m
+%!assert((hankel (1) == 1 && hankel ([1, 2]) == [1, 2; 2, 0]
+%! && hankel ([1, 2], [2; -1; -3]) == [1, 2, -1; 2, -1, -3]));
+
+%% test/octave.test/matrix/hankel-2.m
+%!error hankel ([1, 2; 3, 4], [1, 2; 3, 4]);
+
+%% test/octave.test/matrix/hankel-3.m
+%!error hankel ();
+
+%% test/octave.test/matrix/hankel-4.m
+%!error hankel (1, 2, 3);
+
+%% test/octave.test/matrix/hilb-1.m
+%!assert((hilb (2) == [1, 1/2; 1/2, 1/3]
+%! && hilb (3) == [1, 1/2, 1/3; 1/2, 1/3, 1/4; 1/3, 1/4, 1/5]));
+
+%% test/octave.test/matrix/hilb-2.m
+%!error hilb ();
+
+%% test/octave.test/matrix/hilb-3.m
+%!error hilb (1, 2);
+
+%% test/octave.test/matrix/invhilb-1.m
+%!test
+%! result4 = [16, -120, 240, -140;
+%! -120, 1200, -2700, 1680;
+%! 240, -2700, 6480, -4200;
+%! -140, 1680, -4200, 2800];
+%! 
+%! assert((invhilb (1) == 1 && invhilb (2) == [4, -6; -6, 12]
+%! && invhilb (4) == result4
+%! && abs (invhilb (7) * hilb (7) - eye (7)) < sqrt (eps)));
+
+%% test/octave.test/matrix/invhilb-2.m
+%!error invhilb ([1, 2]);
+
+%% test/octave.test/matrix/invhilb-3.m
+%!error invhilb ();
+
+%% test/octave.test/matrix/invhilb-4.m
+%!error invhilb (1, 2);
+
+%% test/octave.test/matrix/toeplitz-1.m
+%!assert((toeplitz (1) == 1
+%! && toeplitz ([1, 2, 3], [1; -3; -5]) == [1, -3, -5; 2, 1, -3; 3, 2, 1]
+%! && toeplitz ([1, 2, 3], [1; -3i; -5i]) == [1, -3i, -5i; 2, 1, -3i; 3, 2, 1]));
+
+%% test/octave.test/matrix/toeplitz-2.m
+%!error toeplitz ([1, 2; 3, 4], 1);
+
+%% test/octave.test/matrix/toeplitz-3.m
+%!error toeplitz ();
+
+%% test/octave.test/matrix/toeplitz-4.m
+%!error toeplitz (1, 2, 3);
+
+%% test/octave.test/matrix/vander-1.m
+%!assert((vander (1) == 1 && vander ([1, 2, 3]) == vander ([1; 2; 3])
+%! && vander ([1, 2, 3]) == [1, 1, 1; 4, 2, 1; 9, 3, 1]
+%! && vander ([1, 2, 3]*i) == [-1, i, 1; -4, 2i, 1; -9, 3i, 1]));
+
+%% test/octave.test/matrix/vander-2.m
+%!error vander ([1, 2; 3, 4]);
+
+%% test/octave.test/matrix/vander-3.m
+%!error vander ();
+
+%% test/octave.test/matrix/vander-4.m
+%!error vander (1, 2);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_nonlin.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_nonlin.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,88 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/nonlin/fsolve-1.m
+%!function retval = f (p) 
+%!  x = p(1);
+%!  y = p(2);
+%!  z = p(3);
+%!  retval = zeros (3, 1);
+%!  retval(1) = sin(x) + y**2 + log(z) - 7;
+%!  retval(2) = 3*x + 2**y -z**3 + 1;
+%!  retval(3) = x + y + z - 5;
+%!test
+%! x_opt = [ 0.599054;
+%! 2.395931;
+%! 2.005014 ];
+%! tol = 1.0e-5;
+%! [x, info] = fsolve ("f", [ 0.5, 2.0, 2.5 ]);
+%! val = f (x);
+%! info_bad = (info != 1);
+%! solution_bad = sum (abs (x - x_opt) > tol);
+%! value_bad = sum (abs (val) > tol);
+%! if (info_bad)
+%!   printf_assert ("info bad\n");
+%! else
+%!   printf_assert ("info good\n");
+%! endif
+%! if (solution_bad)
+%!   printf_assert ("solution bad\n");
+%! else
+%!   printf_assert ("solution good\n");
+%! endif
+%! if (value_bad)
+%!   printf_assert ("value bad\n");
+%! else
+%!   printf_assert ("value good\n");
+%! endif
+%! assert(prog_output_assert("info good\nsolution good\nvalue good"));
+
+%% test/octave.test/nonlin/fsolve-2.m
+%!function retval = f (p)
+%!  x = p(1);
+%!  y = p(2);
+%!  z = p(3);
+%!  w = p(4);
+%!  retval = zeros (4, 1);
+%!  retval(1) = 3*x + 4*y + exp (z + w) - 1.007;
+%!  retval(2) = 6*x - 4*y + exp (3*z + w) - 11;
+%!  retval(3) = x^4 - 4*y^2 + 6*z - 8*w - 20;
+%!  retval(4) = x^2 + 2*y^3 + z - w - 4;
+%!test
+%! x_opt = [ -0.767297326653401;
+%! 0.590671081117440;
+%! 1.47190018629642;
+%! -1.52719341133957 ];
+%! tol = 1.0e-5;
+%! [x, info] = fsolve ("f", [-1, 1, 2, -1]);
+%! val = f (x);
+%! info_bad = (info != 1);
+%! solution_bad = sum (abs (x - x_opt) > tol);
+%! value_bad = sum (abs (val) > tol);
+%! if (info_bad)
+%!   printf_assert ("info bad\n");
+%! else
+%!   printf_assert ("info good\n");
+%! endif
+%! if (solution_bad)
+%!   printf_assert ("solution bad\n");
+%! else
+%!   printf_assert ("solution good\n");
+%! endif
+%! if (value_bad)
+%!   printf_assert ("value bad\n");
+%! else
+%!   printf_assert ("value good\n");
+%! endif
+%! assert(prog_output_assert("info good\nsolution good\nvalue good"));
+
+%% test/octave.test/nonlin/fsolve_options-1.m
+%!test
+%! fsolve_options ("tolerance", eps);
+%! assert(fsolve_options ("tolerance") == eps);
+
+%% test/octave.test/nonlin/fsolve_options-2.m
+%!error <... fsolve_options:.*> fsolve_options ();
+
+%% test/octave.test/nonlin/fsolve_options-3.m
+%!error <... fsolve_options:.*> fsolve_options ("foo", 1, 2);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_number.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_number.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,190 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/number/ismatrix-1.m
+%!assert(ismatrix (1));
+
+%% test/octave.test/number/ismatrix-2.m
+%!assert(ismatrix ([1, 2, 3]));
+
+%% test/octave.test/number/ismatrix-3.m
+%% Yes, this is right, ismatrix() checks for non-empty matrices.
+%!assert(
+%! ismatrix ([]) == 0);
+
+%% test/octave.test/number/ismatrix-4.m
+%!assert(ismatrix ([1, 2; 3, 4]));
+
+%% test/octave.test/number/ismatrix-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix ("t")));
+
+%% test/octave.test/number/ismatrix-6.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix ("test")));
+
+%% test/octave.test/number/ismatrix-7.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(ismatrix (["test"; "ing"])));
+
+%% test/octave.test/number/ismatrix-8.m
+%!test
+%! s.a = 1;
+%! assert(!(ismatrix (s)));
+
+%% test/octave.test/number/ismatrix-9.m
+%!error <... ismatrix:.*> ismatrix ();
+
+%% test/octave.test/number/ismatrix-10.m
+%!error <... ismatrix:.*> ismatrix ([1, 2; 3, 4], 2);
+
+%% test/octave.test/number/isvector-1.m
+%!assert(isvector (1));
+
+%% test/octave.test/number/isvector-2.m
+%!assert(isvector ([1; 2; 3]));
+
+%% test/octave.test/number/isvector-3.m
+%!assert(!(isvector ([])));
+
+%% test/octave.test/number/isvector-4.m
+%!assert(!(isvector ([1, 2; 3, 4])));
+
+%% test/octave.test/number/isvector-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(isvector ("t")));
+
+%% test/octave.test/number/isvector-6.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(isvector ("test")));
+
+%% test/octave.test/number/isvector-7.m
+%!assert(!(isvector (["test"; "ing"])));
+
+%% test/octave.test/number/isvector-8.m
+%!test
+%! s.a = 1;
+%! assert(!(isvector (s)));
+
+%% test/octave.test/number/isvector-9.m
+%!error isvector ();
+
+%% test/octave.test/number/isvector-10.m
+%!error isvector ([1, 2], 2);
+
+%% test/octave.test/number/isscalar-1.m
+%!assert(isscalar (1));
+
+%% test/octave.test/number/isscalar-2.m
+%!assert(!(isscalar ([1, 2])));
+
+%% test/octave.test/number/isscalar-3.m
+%!assert(!(isscalar ([])));
+
+%% test/octave.test/number/isscalar-4.m
+%!assert(!(isscalar ([1, 2; 3, 4])));
+
+%% test/octave.test/number/isscalar-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(isscalar ("t")));
+
+%% test/octave.test/number/isscalar-6.m
+%!assert(!(isscalar ("test")));
+
+%% test/octave.test/number/isscalar-7.m
+%!assert(!(isscalar (["test"; "ing"])));
+
+%% test/octave.test/number/isscalar-8.m
+%!test
+%! s.a = 1;
+%! assert(!(isscalar (s)));
+
+%% test/octave.test/number/isscalar-9.m
+%!error isscalar ();
+
+%% test/octave.test/number/isscalar-10.m
+%!error isscalar (1, 2);
+
+%% test/octave.test/number/issquare-1.m
+%!assert(issquare (1));
+
+%% test/octave.test/number/issquare-2.m
+%!assert(!(issquare ([1, 2])));
+
+%% test/octave.test/number/issquare-3.m
+%!assert(!(issquare ([])));
+
+%% test/octave.test/number/issquare-4.m
+%!assert(issquare ([1, 2; 3, 4]) == 2);
+
+%% test/octave.test/number/issquare-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(issquare ("t")));
+
+%% test/octave.test/number/issquare-6.m
+%!assert(!(issquare ("test")));
+
+%% test/octave.test/number/issquare-7.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(issquare (["test"; "ing"; "1"; "2"])));
+
+%% test/octave.test/number/issquare-8.m
+%!test
+%! s.a = 1;
+%! assert(!(issquare (s)));
+
+%% test/octave.test/number/issquare-9.m
+%!assert(!(issquare ([1, 2; 3, 4; 5, 6])));
+
+%% test/octave.test/number/issquare-10.m
+%!error issquare ();
+
+%% test/octave.test/number/issquare-11.m
+%!error issquare ([1, 2; 3, 4], 2);
+
+%% test/octave.test/number/issymmetric-1.m
+%!assert(issymmetric (1));
+
+%% test/octave.test/number/issymmetric-2.m
+%!assert(!(issymmetric ([1, 2])));
+
+%% test/octave.test/number/issymmetric-3.m
+%!assert(!(issymmetric ([])));
+
+%% test/octave.test/number/issymmetric-4.m
+%!assert(issymmetric ([1, 2; 2, 1]) == 2);
+
+%% test/octave.test/number/issymmetric-5.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(issymmetric ("t")));
+
+%% test/octave.test/number/issymmetric-6.m
+%!assert(!(issymmetric ("test")));
+
+%% test/octave.test/number/issymmetric-7.m
+%!test
+%! warn_str_to_num = 0;
+%! assert(!(issymmetric (["te"; "et"])));
+
+%% test/octave.test/number/issymmetric-8.m
+%!test
+%! s.a = 1;
+%! assert(!(issymmetric (s)));
+
+%% test/octave.test/number/issymmetric-9.m
+%!assert(issymmetric ([1, 2.1; 2, 1.1], 0.2) == 2);
+
+%% test/octave.test/number/issymmetric-10.m
+%!error issymmetric ([1, 2; 2, 1], 0, 0);
+
+%% test/octave.test/number/issymmetric-11.m
+%!error issymmetric ();
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_optim.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_optim.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_plot.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_plot.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_poly.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_poly.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,176 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/poly/compan-1.m
+%!assert(all (all (compan ([1, 2, 3]) == [-2, -3; 1, 0])));
+
+%% test/octave.test/poly/compan-2.m
+%!assert(all (all (compan ([1; 2; 3]) == [-2, -3; 1, 0])));
+
+%% test/octave.test/poly/compan-3.m
+%!assert(isempty (compan (4)));
+
+%% test/octave.test/poly/compan-4.m
+%!assert(all (all (compan ([3, 2, 1]) == [-2/3, -1/3; 1, 0])));
+
+%% test/octave.test/poly/compan-5.m
+%!error compan ([1,2;3,4]);
+
+%% test/octave.test/poly/compan-6.m
+%!error compan ([]);
+
+%% test/octave.test/poly/conv-1.m
+%!assert(all (all (conv (ones (3, 1), ones (3, 1)) == [1, 2, 3, 2, 1])));
+
+%% test/octave.test/poly/conv-2.m
+%!assert(all (all (conv (ones (1, 3), ones (3, 1)) == [1, 2, 3, 2, 1])));
+
+%% test/octave.test/poly/conv-3.m
+%!assert(all (all (conv (3, [1, 2, 3]) == [3, 6, 9])));
+
+%% test/octave.test/poly/conv-4.m
+%!error conv ([1, 2; 3, 4], 3);
+
+%% test/octave.test/poly/conv-5.m
+%!assert(conv (2, 3),6);
+
+%% test/octave.test/poly/conv-6.m
+%!error conv (2, []);
+
+%% test/octave.test/poly/deconv-1.m
+%!test
+%! [b, r] = deconv ([3, 6, 9, 9], [1, 2, 3]);
+%! assert(all (all (b == [3, 0])) && all (all (r == [0, 0, 0, 9])));
+
+%% test/octave.test/poly/deconv-2.m
+%!test
+%! [b, r] = deconv ([3, 6], [1, 2, 3]);
+%! assert(b == 0 && all (all (r == [0, 3, 6])));
+
+%% test/octave.test/poly/deconv-3.m
+%!test
+%! [b, r] = deconv ([3, 6], [1; 2; 3]);
+%! assert(b == 0 && all (all (r == [0, 3, 6])));
+
+%% test/octave.test/poly/deconv-4.m
+%!error [b, r] = deconv ([3, 6], [1, 2; 3, 4]);;
+
+%% test/octave.test/poly/deconv-5.m
+%!error <number of rows must match> [b, r] = deconv ([3; 6], [1, 2, 3]);
+
+%% test/octave.test/poly/poly-1.m
+%!assert(all (all (poly ([1, 2, 3]) == [1, -6, 11, -6])));
+
+%% test/octave.test/poly/poly-2.m
+%!assert(all (all (abs (poly ([1, 2; 3, 4]) - [1, -5, -2]) < sqrt (eps))));
+
+%% test/octave.test/poly/poly-3.m
+%!error poly ([1, 2, 3; 4, 5, 6]);
+
+%% test/octave.test/poly/poly-4.m
+%!assert(poly ([]),1);
+
+%% test/octave.test/poly/polyderiv-1.m
+%!assert(all (all (polyderiv ([1, 2, 3]) == [2, 2])));
+
+%% test/octave.test/poly/polyderiv-2.m
+%!assert(polyderiv (13) == 0);
+
+%% test/octave.test/poly/polyderiv-3.m
+%!error polyderiv ([]);
+
+%% test/octave.test/poly/polyderiv-4.m
+%!error polyderiv ([1, 2; 3, 4]);
+
+%% test/octave.test/poly/polyfit-1.m
+%!test
+%! x = [-2, -1, 0, 1, 2];
+%! assert(all (all (abs (polyfit (x, x.^2+x+1, 2) - [1, 1, 1]) < sqrt (eps))));
+
+%% test/octave.test/poly/polyfit-2.m
+%!test
+%! x = [-2, -1, 0, 1, 2];
+%! assert(all (all (abs (polyfit (x, x.^2+x+1, 3) - [0, 1, 1, 1]) < sqrt (eps))));
+
+%% test/octave.test/poly/polyfit-3.m
+%!error polyfit ([1, 2; 3, 4], [1, 2; 3, 4], 4);
+
+%% test/octave.test/poly/polyfit-4.m
+%!test
+%! x = [-2, -1, 0, 1, 2];
+%! fail("polyfit (x, x.^2+x+1)");
+
+%% test/octave.test/poly/polyfit-5.m
+%!test
+%! x = [-2, -1, 0, 1, 2];
+%! fail("polyfit (x, x.^2+x+1, [])");
+
+%% test/octave.test/poly/polyinteg-1.m
+%!assert(all (all (polyinteg ([2, 2]) == [1, 2, 0])));
+
+%% test/octave.test/poly/polyinteg-2.m
+%!assert(isempty (polyinteg ([])));
+
+%% test/octave.test/poly/polyinteg-3.m
+%!assert(all (all (polyinteg (3) == [3, 0])));
+
+%% test/octave.test/poly/polyinteg-4.m
+%!error polyinteg ([1, 2; 3, 4]);
+
+%% test/octave.test/poly/polyreduce-1.m
+%!assert(all (all (polyreduce ([0, 0, 1, 2, 3]) == [1, 2, 3])));
+
+%% test/octave.test/poly/polyreduce-2.m
+%!assert(all (all (polyreduce ([1, 2, 3, 0, 0]) == [1, 2, 3, 0, 0])));
+
+%% test/octave.test/poly/polyreduce-3.m
+%!assert(all (all (polyreduce ([1, 0, 3]) == [1, 0, 3])));
+
+%% test/octave.test/poly/polyreduce-4.m
+%!assert(isempty (polyreduce ([])));
+
+%% test/octave.test/poly/polyreduce-5.m
+%!error polyreduce ([1, 2; 3, 4]);
+
+%% test/octave.test/poly/polyval-1.m
+%!assert(polyval ([1, 1, 1], 2) == 7);
+
+%% test/octave.test/poly/polyval-2.m
+%!assert(all (all (polyval ([1, 1, 1], [0; 1; 2]) == [1; 3; 7])));
+
+%% test/octave.test/poly/polyval-3.m
+%!assert(isempty (polyval ([1, 1, 1], [])));
+
+%% test/octave.test/poly/polyval-4.m
+%!assert(all (all (polyval ([1, 1, 1], [-1, 0; 1, 2]) == [1, 1; 3, 7])));
+
+%% test/octave.test/poly/polyval-5.m
+%!error polyval ([1, 2; 3, 4], [-1, 0; 1, 2]);
+
+%% test/octave.test/poly/polyval-6.m
+%!assert(isempty (polyval ([], [-1, 0; 1, 2])));
+
+%% test/octave.test/poly/polyvalm-1.m
+%!assert(isempty (polyvalm ([], [1, 2; 3, 4])));
+
+%% test/octave.test/poly/polyvalm-2.m
+%!error polyvalm ([1, 1, 1], [1, 2; 3, 4; 5, 6]);
+
+%% test/octave.test/poly/residue-1.m
+%!test
+%! b = [1, 1, 1];
+%! a = [1, -5, 8, -4];
+%! [r, p, k, e] = residue (b, a);
+%! assert((abs (r - [-2; 7; 3]) < 1e-6
+%! && abs (p - [2; 2; 1]) < 1e-7
+%! && isempty (k)
+%! && e == [1; 2; 1]));
+
+%% test/octave.test/poly/roots-1.m
+%!assert(all (all (abs (roots ([1, -6, 11, -6]) - [3; 2; 1]) < sqrt (eps))));
+
+%% test/octave.test/poly/roots-2.m
+%!assert(isempty (roots ([])));
+
+%% test/octave.test/poly/roots-3.m
+%!error roots ([1, 2; 3, 4]);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_prefer.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_prefer.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,235 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/prefer/prefer-1.m
+%!test
+%! m = [3 2];
+%! assert(all (m == (3:-1:2)));
+
+%% test/octave.test/prefer/prefer-2.m
+%!test
+%! m = [3,
+%! 2];
+%! assert(all (m == (3:-1:2)'));
+
+%% test/octave.test/prefer/prefer-3.m
+%!test
+%! a = 2;
+%! assert([a - 1],1);
+
+%% test/octave.test/prefer/prefer-4.m
+%!test
+%! m = [3,2];
+%! fail("[m ']");
+
+%% test/octave.test/prefer/prefer-5.m
+%!assert(all ([3 2] == (3:-1:2)));
+
+%% test/octave.test/prefer/prefer-6.m
+%!assert(all ([3, 2] == (3:-1:2)));
+
+%% test/octave.test/prefer/prefer-7.m
+%!test
+%! m = [3,2];
+%! assert(all ([m (1)] == (3:-1:1)));
+
+%% test/octave.test/prefer/prefer-8.m
+%!test
+%! m = [3,2];
+%! assert([m(1)],3);
+
+%% test/octave.test/prefer/prefer-9.m
+%!test
+%! m = [3,2];
+%! assert(all ([m (1)] == (3:-1:1)));
+
+%% test/octave.test/prefer/prefer-10.m
+%!test
+%! a = 2;
+%! assert([a- 1],1);
+
+%% test/octave.test/prefer/prefer-11.m
+%!test
+%! a = 1;
+%! assert(all ([a -1] == (1:-2:-1)));
+
+%% test/octave.test/prefer/prefer-12.m
+%!test
+%! wsn = warn_str_to_num;
+%! warn_str_to_num = 0;
+%! assert("d" + 0,100);
+%! warn_str_to_num = wsn;
+
+%% test/octave.test/prefer/prefer-13.m
+%!test
+%! wsn = warn_str_to_num;
+%! warn_str_to_num = 1;
+%! fail("'d' + 0","warning");
+%! warn_str_to_num = wsn;
+
+%% test/octave.test/prefer/prefer-14.m
+%!test
+%! wir = warn_imag_to_real;
+%! warn_imag_to_real = 0;
+%! assert(eye (1+i),1);
+%! warn_imag_to_real = wir;
+
+%% test/octave.test/prefer/prefer-15.m
+%!test
+%! wir = warn_imag_to_real;
+%! warn_imag_to_real = 1;
+%! fail("eye (1+i)","warning");
+%! warn_imag_to_real = wir;
+
+%% test/octave.test/prefer/prefer-17.m
+%!test
+%! wrre = warn_resize_on_range_error;
+%! warn_resize_on_range_error = 0;
+%! clear a; 
+%! a(2) = 1; a(3) = 2; 
+%! assert(all (a == [0,1,2]));
+%! warn_resize_on_range_error = wrre;
+
+%% test/octave.test/prefer/prefer-18.m
+%!test
+%! clear a; 
+%! a(1) = 1; a(2) = 2;
+%! assert(all (a == [1,2]));
+
+%% XXX FIXME XXX How the hell do I test this one in test/assert 
+%% test/octave.test/prefer/prefer-19.m
+%!#test
+%! pid = print_answer_id_name
+%! print_answer_id_name = 0;
+%! a = 1
+%! print_answer_id_name = pid;
+
+%% XXX FIXME XXX How the hell do I test this one in test/assert 
+%% test/octave.test/prefer/prefer-20.m
+%!#test
+%! pid = print_answer_id_name
+%! print_answer_id_name = 1;
+%! a = 1
+%! print_answer_id_name = pid;
+
+%% test/octave.test/prefer/prefer-21.m
+%!test
+%! ped = print_empty_dimensions;
+%! print_empty_dimensions = 0;
+%! a = cell (1, 1);
+%! b = type -q a;
+%! assert(!isempty(findstr(b,"[]")));
+%! assert(isempty(findstr(b,"[](0x0)")));
+%! print_empty_dimensions = ped;
+
+%% test/octave.test/prefer/prefer-22.m
+%!test
+%! ped = print_empty_dimensions;
+%! print_empty_dimensions = 1;
+%! a = cell (1, 1);
+%! b = type -q a;
+%! assert(!isempty(findstr(b,"[](0x0)")));
+%! print_empty_dimensions = ped;
+
+%% test/octave.test/prefer/prefer-23.m
+%!assert(all (size (inv ([])) == [0, 0]));
+
+%% test/octave.test/prefer/prefer-24.m
+%!assert(all (svd ([]) == zeros (0, 1)));
+
+%% XXX FIXME XXX return_last_computed_value no longer exists!!
+%% Remove the next two tests
+%% test/octave.test/prefer/prefer-25.m
+%% test/octave.test/prefer/prefer-26.m
+
+%% test/octave.test/prefer/prefer-27.m
+%!test
+%! sp = save_precision;
+%! save_precision = 1;
+%! x = pi;
+%! nm = tmpnam();
+%! save("-text",nm,"x");
+%! clear x;
+%! load(nm);
+%! unlink(nm);
+%! assert(x,3);
+%! save_precision = sp;
+
+%% test/octave.test/prefer/prefer-28.m
+%!test
+%! sp = save_precision;
+%! save_precision = 5;
+%! x = pi;
+%! nm = tmpnam();
+%! save("-text",nm,"x");
+%! clear x;
+%! load(nm);
+%! unlink(nm);
+%! assert(x,3.1416);
+%! save_precision = sp;
+
+%% XXX FIXME XXX Same problem as above!!!
+%% test/octave.test/prefer/prefer-29.m
+%!function f ()
+%! 1
+%!#test
+%! sf = silent_functions;
+%! silent_functions = 0;
+%! f
+%! assert(??);
+%! silent_functions = sf;
+
+%% XXX FIXME XXX Same problem as above!!!
+%% test/octave.test/prefer/prefer-30.m
+%!function f ()
+%! 1
+%!#test
+%! sf = silent_functions;
+%! silent_functions = 1;
+%! f
+%! assert(??);
+%! silent_functions = sf;
+
+%% test/octave.test/prefer/prefer-32.m
+%!test
+%! wndz = warn_neg_dim_as_zero;
+%! warn_neg_dim_as_zero = 1;
+%! fail("eye (-1) == []","warning");
+%! warn_neg_dim_as_zero = wndz;
+
+%% test/octave.test/prefer/prefer-33.m
+%!test
+%! wndz = warn_neg_dim_as_zero;
+%! warn_neg_dim_as_zero = 0;
+%! assert(all (size (eye (-1)) == [0, 0]));
+%! warn_neg_dim_as_zero = wndz;
+
+%% test/octave.test/prefer/prefer-34.m
+%!test
+%! watv = warn_assign_as_truth_value;
+%! warn_assign_as_truth_value = 0;
+%! if (x = 1) 1; endif
+%! warn_assign_as_truth_value = watv;
+
+%% test/octave.test/prefer/prefer-35.m
+%!test
+%! watv = warn_assign_as_truth_value;
+%! warn_assign_as_truth_value = 1;
+%! fail("if (x = 1) 1; endif","warning");
+%! warn_assign_as_truth_value = watv;
+
+%% test/octave.test/prefer/prefer-38.m
+%!test
+%! wdbz = warn_divide_by_zero;
+%! warn_divide_by_zero = 0;
+%! assert(isinf (1/0));
+%! warn_divide_by_zero = wdbz;
+
+%% test/octave.test/prefer/prefer-39.m
+%!test
+%! wdbz = warn_divide_by_zero;
+%! warn_divide_by_zero = 1;
+%! a = 1;
+%! b = 0;
+%! fail("isinf (a/b);","warning")
+%! warn_divide_by_zero = wdbz;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_quad.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_quad.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,34 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/quad/quad-1.m
+%!function y = f (x) 
+%! y = x + 1;
+%!test
+%! [v, ier, nfun, err] = quad ("f", 0, 5);
+%! assert(ier == 0 && abs (v - 17.5) < sqrt (eps) && nfun > 0 && 
+%!        err < sqrt (eps))
+
+%% test/octave.test/quad/quad-2.m
+%!function y = f (x)
+%!  y = x .* sin (1 ./ x) .* sqrt (abs (1 - x));
+%!test
+%! [v, ier, nfun, err] = quad ("f", 0, 3);
+%! assert((ier == 0 || ier == 1) && abs (v - 1.98194122455795) < sqrt (eps) && nfun > 0);
+
+%% test/octave.test/quad/quad-3.m
+%!error <... quad:.*> quad ();
+
+%% test/octave.test/quad/quad-4.m
+%!error <... quad:.*> quad ("f", 1, 2, 3, 4, 5);
+
+%% test/octave.test/quad/quad_options-1.m
+%!test
+%! quad_options ("absolute tolerance", eps);
+%! assert(quad_options ("absolute tolerance") == eps);
+
+%% test/octave.test/quad/quad_options-2.m
+%!error <... quad_options:.*> quad_options ();
+
+%% test/octave.test/quad/quad_options-3.m
+%!error <... quad_options:.*> quad_options (1, 2, 3);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_recursion.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_recursion.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,24 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/recursion/recursion-1.m
+%!function y = f (x)
+%!  if (x == 1)
+%!    y = x;
+%!    return;
+%!  else
+%!    y = x * f (x-1);
+%!  endif
+%!test
+%! assert(f (5),120);
+
+%% test/octave.test/recursion/recursion-2.m
+%!function y = f (x)
+%!  if (x == 1)
+%!    y = x;
+%!    return;
+%!  else
+%!    y = f (x-1) * x;
+%!  endif
+%!test
+%! assert(f (5),120);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_return.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_return.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,13 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/return/return-1.m
+%!function y = f ()
+%!  y = 1;
+%!  return
+%!  y = 2;
+%!assert(f(),1)
+
+%% test/octave.test/return/return-2.m
+%!test
+%! return;
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_set.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_set.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,59 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/set/create_set-1.m
+%!assert(all (all (create_set ([1, 2; 3, 4; 2, 4]) == [1, 2, 3, 4])));
+
+%% test/octave.test/set/create_set-2.m
+%!assert(all (all (create_set ([1; 2; 3; 4; 2; 4]) == [1, 2, 3, 4])));
+
+%% test/octave.test/set/create_set-3.m
+%!assert(isempty (create_set ([])));
+
+%% test/octave.test/set/create_set-4.m
+%!error create_set (1, 2);
+
+%% test/octave.test/set/union-1.m
+%!assert(all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5])));
+
+%% test/octave.test/set/union-2.m
+%!assert(all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5])));
+
+%% test/octave.test/set/union-3.m
+%!assert(all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9])));
+
+%% test/octave.test/set/union-4.m
+%!error union (1);
+
+%% test/octave.test/set/union-5.m
+%!error union (1, 2, 3);
+
+%% test/octave.test/set/intersection-1.m
+%!assert(all (all (intersection ([1, 2, 3], [2, 3, 5]) == [2, 3])));
+
+%% test/octave.test/set/intersection-2.m
+%!assert(all (all (intersection ([1; 2; 3], [2, 3, 5]) == [2, 3])));
+
+%% test/octave.test/set/intersection-3.m
+%!assert(isempty (intersection ([1, 2, 3], [4; 5; 6])));
+
+%% test/octave.test/set/intersection-4.m
+%!error intersection (1);
+
+%% test/octave.test/set/intersection-5.m
+%!error intersection (1, 2, 5);
+
+%% test/octave.test/set/complement-1.m
+%!assert(all (all (complement ([1, 2, 3], [3; 4; 5; 6]) == [4, 5, 6])));
+
+%% test/octave.test/set/complement-2.m
+%!assert(all (all (complement ([1, 2, 3], [3, 4, 5, 6]) == [4, 5, 6])));
+
+%% test/octave.test/set/complement-3.m
+%!assert(isempty (complement ([1, 2, 3], [3, 2, 1])));
+
+%% test/octave.test/set/complement-4.m
+%!error complement (1);
+
+%% test/octave.test/set/complement-5.m
+%!error complement (1, 2, 3);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_signal.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_signal.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,165 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/signal/detrend-1.m
+%% detrend-1.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! N=32;
+%! x = (0:1:N-1)/N + 2;
+%! y = detrend(x);
+%! assert(all (all (abs (y) < 10*eps)));
+
+%% test/octave.test/signal/detrend-2.m
+%% detrend-2.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! N=32;
+%! t = (0:1:N-1)/N;
+%! x = t .* t + 2;
+%! y = detrend(x,2);
+%! assert(all (all (abs (y) < 30*eps)));
+
+%% test/octave.test/signal/detrend-3.m
+%% detrend-3.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! N=32;
+%! t = (0:1:N-1)/N;
+%! x = [t;4*t-3]';
+%! y = detrend(x);
+%! assert(all (all (abs (y) < 20*eps)));
+
+%% test/octave.test/signal/fft-1.m
+%% fft-1.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! N=64;
+%! n=4;
+%! t = 2*pi*(0:1:N-1)/N;
+%! s = cos(n*t);
+%! S = fft(s);
+%! 
+%! answer = 0*t;
+%! answer(n+1) = N/2;
+%! answer(N-n+1) = N/2;
+%! 
+%! assert(all( abs(S-answer) < 4*N*eps ));
+
+%% test/octave.test/signal/ifft-1.m
+%% ifft-1.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! N=64;
+%! n=7;
+%! t = 2*pi*(0:1:N-1)/N;
+%! s = cos(n*t);
+%! 
+%! S = 0*t;
+%! S(n+1) = N/2;
+%! S(N-n+1) = N/2;
+%! 
+%! assert(all( abs(ifft(S)-s) < 4*N*eps ));
+
+%% test/octave.test/signal/fft2-1.m
+%% fft2-1.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! M=16;
+%! N=8;
+%! 
+%! m=5;
+%! n=3;
+%! 
+%! x = 2*pi*(0:1:M-1)/M;
+%! y = 2*pi*(0:1:N-1)/N;
+%! sx = cos(m*x);
+%! sy = sin(n*y);
+%! s=kron(sx',sy);
+%! S = fft2(s);
+%! answer = kron(fft(sx)',fft(sy));
+%! assert(all( all( abs(S-answer) < 4*M*N*eps ) ));
+
+%% test/octave.test/signal/ifft2-1.m
+%% ifft2-1.m
+%%
+%% Author: David Billinghurst (David.Billinghurst@riotinto.com.au)
+%%         Comalco Research and Technology
+%%         02 May 2000
+%!test
+%! M=12;
+%! N=7;
+%! 
+%! m=3;
+%! n=2;
+%! 
+%! x = 2*pi*(0:1:M-1)/M;
+%! y = 2*pi*(0:1:N-1)/N;
+%! 
+%! sx = cos(m*x);
+%! sy = cos(n*y);
+%! 
+%! S = kron(fft(sx)',fft(sy));
+%! answer=kron(sx',sy);
+%! s = ifft2(S);
+%! 
+%! assert(all( all( abs(s-answer) < 30*eps ) ));
+
+%% test/octave.test/signal/unwrap-1.m
+%!function t = assert(a,b,tol)
+%!  if (nargin == 1)
+%!    t = all(a(:));
+%!  else
+%!    if (nargin == 2)
+%!      tol = 0;
+%!    endif
+%!    if (any (size(a) != size(b)))
+%!      t = 0;
+%!    elseif (any (abs(a(:) - b(:)) > tol))
+%!      t = 0;
+%!    else
+%!      t = 1;
+%!    endif
+%!  endif
+%!
+%!test
+%! 
+%! i = 0;
+%! t = [];
+%! 
+%! r = [0:100];                        # original vector
+%! w = r - 2*pi*floor((r+pi)/(2*pi));  # wrapped into [-pi,pi]
+%! tol = 1e3*eps;                      # maximum expected deviation
+%! 
+%! t(++i) = assert(r, unwrap(w), tol);               #unwrap single row
+%! t(++i) = assert(r', unwrap(w'), tol);             #unwrap single column
+%! t(++i) = assert([r',r'], unwrap([w',w']), tol);   #unwrap 2 columns
+%! t(++i) = assert([r;r], unwrap([w;w],[],2), tol);  #verify that dim works
+%! t(++i) = assert(r+10, unwrap(10+w), tol);         #verify that r(1)>pi works
+%! 
+%! t(++i) = assert(w', unwrap(w',[],2));  #unwrap col by rows should not change it
+%! t(++i) = assert(w, unwrap(w,[],1));    #unwrap row by cols should not change it
+%! t(++i) = assert([w;w], unwrap([w;w])); #unwrap 2 rows by cols should not change them
+%! 
+%! ## verify that setting tolerance too low will cause bad results.
+%! t(++i) = assert(any(abs(r - unwrap(w,0.8)) > 100));
+%! 
+%! assert(all(t));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_stats.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_stats.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,96 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/stats/mean-1.m
+%!test
+%! x = -10:10;
+%! y = x';
+%! z = [y, y+10];
+%! assert(mean (x) == 0 && mean (y) == 0 && mean (z) == [0, 10]);
+
+%% test/octave.test/stats/mean-2.m
+%!error mean ();
+
+%% test/octave.test/stats/mean-3.m
+%!error mean (1, 2, 3);
+
+%% test/octave.test/stats/median-1.m
+%!test
+%! x = [1, 2, 3, 4, 5, 6];
+%! x2 = x';
+%! y = [1, 2, 3, 4, 5, 6, 7];
+%! y2 = y';
+%! 
+%! assert((median (x) == median (x2) && median (x) == 3.5
+%! && median (y) == median (y2) && median (y) == 4
+%! && median ([x2, 2*x2]) == [3.5, 7]
+%! && median ([y2, 3*y2]) == [4, 12]));
+
+%% test/octave.test/stats/median-2.m
+%!error median ();
+
+%% test/octave.test/stats/median-3.m
+%!error median (1, 2, 3);
+
+%% test/octave.test/stats/std-1.m
+%!test
+%! x = ones (10, 2);
+%! y = [1, 3];
+%! assert(std (x) == [0, 0] && abs (std (y) - sqrt (2)) < sqrt (eps));
+
+%% test/octave.test/stats/std-2.m
+%!error std ();
+
+%% test/octave.test/stats/std-3.m
+%!error std (1, 2, 3, 4);
+
+%% test/octave.test/stats/cov-1.m
+%!test
+%! x = rand (10);
+%! cx1 = cov (x);
+%! cx2 = cov (x, x);
+%! assert(size (cx1) == [10, 10] && size (cx2) == [10, 10] && cx1 == cx2);
+
+%% test/octave.test/stats/cov-2.m
+%!error cov ();
+
+%% test/octave.test/stats/cov-3.m
+%!error cov (1, 2, 3);
+
+%% test/octave.test/stats/corrcoef-1.m
+%!test
+%! x = rand (10);
+%! cc1 = corrcoef (x);
+%! cc2 = corrcoef (x, x);
+%! assert((size (cc1) == [10, 10] && size (cc2) == [10, 10]
+%! && abs (cc1 - cc2) < sqrt (eps)));
+
+%% test/octave.test/stats/corrcoef-2.m
+%!error corrcoef ();
+
+%% test/octave.test/stats/corrcoef-3.m
+%!error corrcoef (1, 2, 3);
+
+%% test/octave.test/stats/kurtosis-1.m
+%!test
+%! x = [-1; 0; 0; 0; 1];
+%! y = [x, 2*x];
+%! assert(all (abs (kurtosis (y) - [-1.4, -1.4]) < sqrt (eps)));
+
+%% test/octave.test/stats/kurtosis-2.m
+%!error kurtosis ();
+
+%% test/octave.test/stats/kurtosis-3.m
+%!error kurtosis (1, 2, 3);
+
+%% test/octave.test/stats/mahalanobis-2.m
+%!error mahalanobis ();
+
+%% test/octave.test/stats/mahalanobis-3.m
+%!error mahalanobis (1, 2, 3);
+
+%% test/octave.test/stats/skewness-2.m
+%!error skewness ();
+
+%% test/octave.test/stats/skewness-3.m
+%!error skewness (1, 2, 3);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_string.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_string.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,597 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/string/str-esc-1.m
+%!test
+%! x = 7;
+%! if (strcmp ("\a", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-2.m
+%!test
+%! x = 8;
+%! if (strcmp ("\b", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-3.m
+%!test
+%! x = 12;
+%! if (strcmp ("\f", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-4.m
+%!test
+%! x = 10;
+%! if (strcmp ("\n", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-5.m
+%!test
+%! x = 13;
+%! if (strcmp ("\r", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-6.m
+%!test
+%! x = 9;
+%! if (strcmp ("\t", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-7.m
+%!test
+%! x = 11;
+%! if (strcmp ("\v", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-8.m
+%!test
+%! x = 92;
+%! if (strcmp ("\\", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-9.m
+%!test
+%! x = 39;
+%! if (strcmp ("\'", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-10.m
+%!test
+%! x = 34;
+%! if (strcmp ("\"", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/string/str-esc-11.m
+%!test
+%! x = 120;
+%! fail('strcmp ("\x", setstr (x))',"warning",".*unrecognized escape sequence.*");
+
+%% test/octave.test/string/str-esc-12.m
+%!test
+%! x = [7, 8, 12, 10, 13, 9, 11, 92, 39, 34];
+%! if (strcmp ("\a\b\f\n\r\t\v\\\'\"", setstr (x)))
+%! printf_assert ("ok\n");
+%! endif
+%! assert(prog_output_assert("ok"));
+
+%% XXX FIXME XXX
+%% Why do the next two tests fail?
+%% test/octave.test/string/string_fill_char-1.m
+%!#test
+%! sfc = string_fill_char;
+%! string_fill_char = "X";
+%! str = ["these"; "are"; "strings"];
+%! assert(str,["theseXX"; "areXXXX"; "strings"]);
+%! string_fill_char = sfc;
+
+%% test/octave.test/string/string_fill_char-2.m
+%!#test
+%! sfc = string_fill_char;
+%! string_fill_char = " ";
+%! str = ["these"; "are"; "strings"];
+%! assert(str,["these  "; "are    "; "strings"]);
+%! string_fill_char = sfc;
+
+%% test/octave.test/string/ischar-1.m
+%!assert(!(ischar (1)));
+
+%% test/octave.test/string/ischar-2.m
+%!assert(!(ischar ([1, 2])));
+
+%% test/octave.test/string/ischar-3.m
+%!assert(!(ischar ([])));
+
+%% test/octave.test/string/ischar-4.m
+%!assert(!(ischar ([1, 2; 3, 4])));
+
+%% test/octave.test/string/ischar-5.m
+%!assert(ischar (""));
+
+%% test/octave.test/string/ischar-6.m
+%!assert(ischar ("t"));
+
+%% test/octave.test/string/ischar-7.m
+%!assert(ischar ("test"));
+
+%% test/octave.test/string/ischar-8.m
+%!assert(ischar (["test"; "ing"]));
+
+%% test/octave.test/string/ischar-9.m
+%!test
+%! s.a = "test";
+%! assert(!(ischar (s)));
+
+%% test/octave.test/string/ischar-10.m
+%!error <... ischar:.*> ischar ();
+
+%% test/octave.test/string/ischar-11.m
+%!error <... ischar:.*> ischar ("test", 1);
+
+%% test/octave.test/string/blanks-1.m
+%!assert(strcmp (blanks (3), "   "));
+
+%% test/octave.test/string/blanks-2.m
+%!error blanks ();
+
+%% test/octave.test/string/blanks-3.m
+%!error blanks (1, 2);
+
+%% test/octave.test/string/char-1.m
+%!assert(strcmp (char ([65, 83, 67, 73, 73]), "ASCII"));
+
+%% test/octave.test/string/char-2.m
+%!error <... char:.*> char ();
+
+%% test/octave.test/string/char-3.m
+%!test
+%! x = char ("foo", "bar", "foobar");
+%! assert((strcmp (x(1,:), "foo   ")
+%! && strcmp (x(2,:), "bar   ")
+%! && strcmp (x(3,:), "foobar")));
+
+%% test/octave.test/string/int2str-1.m
+%!assert(strcmp (int2str (-123), "-123") && strcmp (int2str (1.2), "1"));
+
+%% test/octave.test/string/int2str-2.m
+%!error int2str ();
+
+%% test/octave.test/string/int2str-3.m
+%!error int2str (1, 2);
+
+%% test/octave.test/string/num2str-1.m
+%!assert((strcmp (num2str (123), "123") && strcmp (num2str (1.23), "1.23")));
+
+%% test/octave.test/string/num2str-2.m
+%!error num2str ();
+
+%% test/octave.test/string/num2str-3.m
+%!error num2str (1, 2, 3);
+
+%% test/octave.test/string/strcat-1.m
+%!assert((strcmp (strcat ("foo", "bar"), "foobar")
+%! && strcmp (strcat (["a"; "bb"], ["foo"; "bar"]), ["a foo"; "bbbar"])));
+
+%% test/octave.test/string/strcat-2.m
+%!error strcat ();
+
+%% test/octave.test/string/strcat-3.m
+%!error strcat (1, 2);
+
+%% test/octave.test/string/str2mat-1.m
+%!assert(strcmp (str2mat ("a", "bb", "ccc"), ["a  "; "bb "; "ccc"]));
+
+%% test/octave.test/string/str2mat-2.m
+%!error str2mat ();
+
+%% test/octave.test/string/str2mat-3.m
+%!assert(all (str2mat (1, 2, 3) == setstr ([1; 2; 3])));
+
+%% test/octave.test/string/deblank-1.m
+%!assert(strcmp (deblank (" f o o  "), " f o o"));
+
+%% test/octave.test/string/deblank-2.m
+%!error deblank ();
+
+%% test/octave.test/string/deblank-3.m
+%!error deblank ("foo", "bar");
+
+%% test/octave.test/string/deblank-4.m
+%!error deblank (1);
+
+%% test/octave.test/string/findstr-1.m
+%!assert((findstr ("abababa", "a") == [1, 3, 5, 7]
+%! && findstr ("abababa", "aba") == [1, 3, 5]
+%! && findstr ("abababa", "aba", 0) == [1, 5]));
+
+%% test/octave.test/string/findstr-2.m
+%!error findstr ();
+
+%% test/octave.test/string/findstr-3.m
+%!error findstr ("foo", "bar", 3, 4);
+
+%% test/octave.test/string/index-1.m
+%!assert(index ("foobarbaz", "b") == 4 && index ("foobarbaz", "z") == 9);
+
+%% test/octave.test/string/index-2.m
+%!error index ();
+
+%% test/octave.test/string/index-3.m
+%!error index ("foo", "bar", 3);
+
+%% test/octave.test/string/rindex-1.m
+%!assert(rindex ("foobarbaz", "b") == 7 && rindex ("foobarbaz", "o") == 3);
+
+%% test/octave.test/string/rindex-2.m
+%!error rindex ();
+
+%% test/octave.test/string/rindex-3.m
+%!error rindex ("foo", "bar", 3);
+
+%% test/octave.test/string/split-1.m
+%!assert(all (all (split ("Test string", "t") == ["Tes "; " s  "; "ring"])));
+
+%% test/octave.test/string/split-2.m
+%!error split ();
+
+%% test/octave.test/string/split-3.m
+%!assert(all (strcmp (split ("foo bar baz", " ", 2), ["foo"; "bar baz"])));
+
+%% test/octave.test/string/split-4.m
+%!error split ("foo", "bar", 3, 4);
+
+%% test/octave.test/string/strrep-1.m
+%!assert(strcmp (strrep ("This is a test string", "is", "&%$"),
+%! "Th&%$ &%$ a test string"));
+
+%% test/octave.test/string/strrep-2.m
+%!error strrep ();
+
+%% test/octave.test/string/strrep-3.m
+%!error strrep ("foo", "bar", 3, 4);
+
+%% test/octave.test/string/substr-1.m
+%!assert(strcmp (substr ("This is a test string", 6, 9), "is a test"));
+
+%% test/octave.test/string/substr-2.m
+%!error substr ();
+
+%% test/octave.test/string/substr-3.m
+%!error substr ("foo", 2, 3, 4);
+
+%% test/octave.test/string/strcmp-1.m
+%!assert(strcmp ("foobar", "foobar") && strcmp ("fooba", "foobar") == 0);
+
+%% test/octave.test/string/strcmp-2.m
+%!error <... strcmp:.*> strcmp ();
+
+%% test/octave.test/string/strcmp-3.m
+%!error <... strcmp:.*> strcmp ("foo", "bar", 3);
+
+%% test/octave.test/string/bin2dec-1.m
+%!assert(bin2dec ("1110") == 14);
+
+%% test/octave.test/string/bin2dec-2.m
+%!error bin2dec ();
+
+%% test/octave.test/string/bin2dec-3.m
+%!error bin2dec ("str", 1);
+
+%% test/octave.test/string/dec2bin-1.m
+%!assert(strcmp (dec2bin (14), "1110"));
+
+%% test/octave.test/string/dec2bin-2.m
+%!error dec2bin ();
+
+%% test/octave.test/string/dec2bin-3.m
+%!assert(strcmp (dec2bin (14, 6), "001110")
+%! );
+
+%% test/octave.test/string/dec2bin-4.m
+%!error dec2bin (1, 2, 3);
+
+%% test/octave.test/string/dec2hex-1.m
+%!assert(strcmp (tolower (dec2hex (2748)), "abc"));
+
+%% test/octave.test/string/dec2hex-2.m
+%!error dec2hex ();
+
+%% test/octave.test/string/dec2hex-3.m
+%!assert(strcmp (tolower (dec2hex (2748, 5)), "00abc"));
+
+%% test/octave.test/string/dec2hex-4.m
+%!error dec2hex (1, 2, 3);
+
+%% test/octave.test/string/hex2dec-1.m
+%!assert(hex2dec ("12b") == 299 && hex2dec ("12B") == 299);
+
+%% test/octave.test/string/hex2dec-2.m
+%!error hex2dec ();
+
+%% test/octave.test/string/hex2dec-3.m
+%!error hex2dec ("str", 1);
+
+%% test/octave.test/string/str2num-1.m
+%!assert(str2num ("-1.3e2") == -130 && str2num ("[1, 2; 3, 4]") == [1, 2; 3, 4]);
+
+%% test/octave.test/string/str2num-2.m
+%!error str2num ();
+
+%% test/octave.test/string/str2num-3.m
+%!error str2num ("string", 1);
+
+%% test/octave.test/string/undo_string_escapes-1.m
+%!assert(strcmp (undo_string_escapes ("abc\a\b\n\r\t\v\f123"),
+%! "abc\\a\\b\\n\\r\\t\\v\\f123"));
+
+%% test/octave.test/string/undo_string_escapes-2.m
+%!error <... undo_string_escapes:.*> undo_string_escapes ();
+
+%% test/octave.test/string/undo_string_escapes-3.m
+%!error <... undo_string_escapes:.*> undo_string_escapes ("string", 2);
+
+%% test/octave.test/string/toascii-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = 0:127;
+%! 
+%! assert(all (toascii (charset) == result));
+
+%% test/octave.test/string/toascii-3.m
+%!error toascii (1, 2);
+
+%% test/octave.test/string/toascii-3.m
+%!error toascii (1, 2);
+
+%% test/octave.test/string/tolower-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = charset;
+%! 
+%! result ((toascii("A"):toascii("Z"))+1) \
+%! = result ((toascii("a"):toascii("z"))+1);
+%! 
+%! assert(all (tolower (charset) == result));
+
+%% test/octave.test/string/tolower-3.m
+%!error tolower (1, 2);
+
+%% test/octave.test/string/tolower-3.m
+%!error tolower (1, 2);
+
+%% test/octave.test/string/toupper-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = charset;
+%! 
+%! result ((toascii("a"):toascii("z"))+1) \
+%! = result ((toascii("A"):toascii("Z"))+1);
+%! 
+%! assert(all (toupper (charset) == result));
+
+%% test/octave.test/string/toupper-3.m
+%!error toupper (1, 2);
+
+%% test/octave.test/string/toupper-3.m
+%!error toupper (1, 2);
+
+%% test/octave.test/string/isalnum-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("A"):toascii("Z"))+1) = 1;
+%! result ((toascii("0"):toascii("9"))+1) = 1;
+%! result ((toascii("a"):toascii("z"))+1) = 1;
+%! 
+%! assert(all (isalnum (charset) == result));
+
+%% test/octave.test/string/isalnum-2.m
+%!error isalnum (1, 2);
+
+%% test/octave.test/string/isalnum-3.m
+%!error isalnum ();
+
+%% test/octave.test/string/isalpha-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("A"):toascii("Z"))+1) = 1;
+%! result ((toascii("a"):toascii("z"))+1) = 1;
+%! 
+%! assert(all (isalpha (charset) == result));
+
+%% test/octave.test/string/isalpha-2.m
+%!error isalpha (1, 2);
+
+%% test/octave.test/string/isalpha-3.m
+%!error isalpha ();
+
+%% test/octave.test/string/isascii-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = ones (1, 128);
+%! 
+%! assert(all (isascii (charset) == result));
+
+%% test/octave.test/string/isascii-2.m
+%!error isascii (1, 2);
+
+%% test/octave.test/string/isascii-3.m
+%!error isascii ();
+
+%% test/octave.test/string/iscntrl-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result (1:32) = 1;
+%! result (128) = 1;
+%! 
+%! assert(all (iscntrl (charset) == result));
+
+%% test/octave.test/string/iscntrl-2.m
+%!error iscntrl (1, 2);
+
+%% test/octave.test/string/iscntrl-3.m
+%!error iscntrl ();
+
+%% test/octave.test/string/isdigit-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("0"):toascii("9"))+1) = 1;
+%! 
+%! assert(all (isdigit (charset) == result));
+
+%% test/octave.test/string/isdigit-2.m
+%!error isdigit (1, 2);
+
+%% test/octave.test/string/isdigit-3.m
+%!error isdigit ();
+
+%% test/octave.test/string/isgraph-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result (34:127) = 1;
+%! 
+%! assert(all (isgraph (charset) == result));
+
+%% test/octave.test/string/isgraph-2.m
+%!error isgraph (1, 2);
+
+%% test/octave.test/string/isgraph-3.m
+%!error isgraph ();
+
+%% test/octave.test/string/islower-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("a"):toascii("z"))+1) = 1;
+%! 
+%! assert(all (islower (charset) == result));
+
+%% test/octave.test/string/islower-2.m
+%!error islower (1, 2);
+
+%% test/octave.test/string/islower-3.m
+%!error islower ();
+
+%% test/octave.test/string/isprint-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result (33:127) = 1;
+%! 
+%! assert(all (isprint (charset) == result));
+
+%% test/octave.test/string/isprint-2.m
+%!error isprint (1, 2);
+
+%% test/octave.test/string/isprint-3.m
+%!error isprint ();
+
+%% test/octave.test/string/ispunct-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result (34:48) = 1;
+%! result (59:65) = 1;
+%! result (92:97) = 1;
+%! result (124:127) = 1;
+%! 
+%! assert(all (ispunct (charset) == result));
+
+%% test/octave.test/string/ispunct-2.m
+%!error ispunct (1, 2);
+
+%% test/octave.test/string/ispunct-3.m
+%!error ispunct ();
+
+%% test/octave.test/string/isspace-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result (toascii (" \f\n\r\t\v")+1) = 1;
+%! 
+%! assert(all (isspace (charset) == result));
+
+%% test/octave.test/string/isspace-2.m
+%!error isspace (1, 2);
+
+%% test/octave.test/string/isspace-3.m
+%!error isspace ();
+
+%% test/octave.test/string/isupper-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("A"):toascii("Z"))+1) = 1;
+%! 
+%! assert(all (isupper (charset) == result));
+
+%% test/octave.test/string/isupper-2.m
+%!error isupper (1, 2);
+
+%% test/octave.test/string/isupper-3.m
+%!error isupper ();
+
+%% test/octave.test/string/isxdigit-1.m
+%!test
+%! charset = setstr (0:127);
+%! 
+%! result = zeros (1, 128);
+%! 
+%! result ((toascii("A"):toascii("F"))+1) = 1;
+%! result ((toascii("0"):toascii("9"))+1) = 1;
+%! result ((toascii("a"):toascii("f"))+1) = 1;
+%! 
+%! assert(all (isxdigit (charset) == result));
+
+%% test/octave.test/string/isxdigit-2.m
+%!error isxdigit (1, 2);
+
+%% test/octave.test/string/isxdigit-3.m
+%!error isxdigit ();
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_struct.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_struct.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,93 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/struct/fieldnames-1.m
+%!test
+%! s.a = 1;
+%! c = fieldnames (s);
+%! assert(iscell (c) && strcmp (c{1}, "a"));
+
+%% test/octave.test/struct/fieldnames-2.m
+%!test
+%! s.a.b = 1;
+%! c = fieldnames (s.a);
+%! assert(iscell (c) && strcmp (c{1}, "b"));
+
+%% test/octave.test/struct/fieldnames-3.m
+%!error <... fieldnames:.*> fieldnames ();
+
+%% test/octave.test/struct/fieldnames-4.m
+%!test
+%! s.a = 1;
+%! fail("fieldnames (s, 1)","eldnames:.*");
+
+%% test/octave.test/struct/fieldnames-5.m
+%!error fieldnames (1);
+
+%% test/octave.test/struct/isfield-1.m
+%!test
+%! s.aaa = 1;
+%! s.a = 2;
+%! assert(isfield (s, "a"));
+
+%% test/octave.test/struct/isfield-2.m
+%!test
+%! s.aaa = 1;
+%! s.a = 2;
+%! assert(!(isfield (s, "b")));
+
+%% test/octave.test/struct/isfield-3.m
+%!error <... isfield:.*> isfield ();
+
+%% test/octave.test/struct/isfield-4.m
+%!test
+%! s.aaa = 1;
+%! s.a = 2;
+%! fail("isfield (s, 'a', 3);","field:.*");
+
+%% test/octave.test/struct/isfield-5.m
+%!assert(isfield (1, "m") == 0);
+
+%% test/octave.test/struct/isfield-6.m
+%!test
+%! s.a = 2;
+%! assert(isfield (s, 2) == 0);
+
+%% test/octave.test/struct/isstruct-1.m
+%!assert(!(isstruct (1)));
+
+%% test/octave.test/struct/isstruct-2.m
+%!assert(!(isstruct ([1, 2])));
+
+%% test/octave.test/struct/isstruct-3.m
+%!assert(!(isstruct ([])));
+
+%% test/octave.test/struct/isstruct-4.m
+%!assert(!(isstruct ([1, 2; 3, 4])));
+
+%% test/octave.test/struct/isstruct-5.m
+%!assert(!(isstruct ("t")));
+
+%% test/octave.test/struct/isstruct-6.m
+%!assert(!(isstruct ("test")));
+
+%% test/octave.test/struct/isstruct-7.m
+%!assert(!(isstruct (["test"; "ing"])));
+
+%% test/octave.test/struct/isstruct-8.m
+%!test
+%! s.a = 1;
+%! assert(isstruct (s));
+
+%% test/octave.test/struct/isstruct-9.m
+%!test
+%! s.a.b = 1;
+%! assert(isstruct (s.a));
+
+%% test/octave.test/struct/isstruct-10.m
+%!error <... isstruct:.*> isstruct ();
+
+%% test/octave.test/struct/isstruct-11.m
+%!test
+%! s.a = 1;
+%! fail("isstruct (s, 1)","struct:.*");
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_switch.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_switch.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,68 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/switch/switch-1.m
+%!test
+%! a = 1;
+%! b = 2;
+%! c = 3;
+%! 
+%! switch 0 case 1 x = a; case 2 x = b; otherwise x = c; endswitch
+%! switch 1 case 1 y = a; case 2 y = b; otherwise y = c; endswitch
+%! switch 2 case 1 z = a; case 2 z = b; otherwise z = c; endswitch
+%! switch 3 case 1 p = a; case 2 p = b; otherwise p = c; endswitch
+%! 
+%! assert(x == c && y == a && z == b && p == c);
+
+%% test/octave.test/switch/switch-2.m
+%!test
+%! a = 1;
+%! b = 2;
+%! c = 3;
+%! 
+%! x = zeros (1, 4);
+%! 
+%! k = 1;
+%! 
+%! for i = 0:3
+%! switch (i)
+%! case a
+%! x(k) = a;
+%! case b
+%! x(k) = b;
+%! otherwise
+%! x(k) = c;
+%! endswitch
+%! k++;
+%! endfor
+%! 
+%! assert(all (x == [3, 1, 2, 3]));
+
+%% test/octave.test/switch/switch-3.m
+%!test
+%! a = 1;
+%! b = 2;
+%! c = 3;
+%! 
+%! x = zeros (1, 4);
+%! 
+%! k = 1;
+%! 
+%! for i = 0:3
+%! switch (i)
+%! case a
+%! x(k) = a;
+%! endswitch
+%! k++;
+%! endfor
+%! 
+%! assert(all (x == [0, 1, 0, 0]));
+
+%% test/octave.test/switch/switch-4.m
+%!error <syntax error> eval("switch endswitch");
+
+%% test/octave.test/switch/switch-5.m
+%!error <syntax error> eval("switch case endswitch");
+
+%% test/octave.test/switch/switch-6.m
+%!error <syntax error> eval("switch 1 default 1; endswitch");
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_system.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_system.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,592 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/system/time-1.m
+%!assert(time () > 0);
+
+%% test/octave.test/system/ctime-1.m
+%!test
+%! t = time ();
+%! assert(strcmp (asctime (localtime (t)), ctime (t)));
+
+%% test/octave.test/system/ctime-2.m
+%!error ctime ();
+
+%% test/octave.test/system/ctime-3.m
+%!error ctime (1, 2);
+
+%% test/octave.test/system/gmtime-1.m
+%!test
+%! ts = gmtime (time ());
+%! assert((isstruct (ts)
+%! && struct_contains (ts, "usec")
+%! && struct_contains (ts, "year")
+%! && struct_contains (ts, "mon")
+%! && struct_contains (ts, "mday")
+%! && struct_contains (ts, "sec")
+%! && struct_contains (ts, "min")
+%! && struct_contains (ts, "wday")
+%! && struct_contains (ts, "hour")
+%! && struct_contains (ts, "isdst")
+%! && struct_contains (ts, "yday")));
+
+%% test/octave.test/system/gmtime-2.m
+%!error <... gmtime:.*> gmtime ();
+
+%% test/octave.test/system/gmtime-3.m
+%!error <... gmtime:.*> gmtime (1, 2);
+
+%% test/octave.test/system/localtime-1.m
+%!test
+%! ts = localtime (time ());
+%! assert((isstruct (ts)
+%! && struct_contains (ts, "usec")
+%! && struct_contains (ts, "year")
+%! && struct_contains (ts, "mon")
+%! && struct_contains (ts, "mday")
+%! && struct_contains (ts, "sec")
+%! && struct_contains (ts, "min")
+%! && struct_contains (ts, "wday")
+%! && struct_contains (ts, "hour")
+%! && struct_contains (ts, "isdst")
+%! && struct_contains (ts, "yday")));
+
+%% test/octave.test/system/localtime-2.m
+%!error <... localtime:.*> localtime ();
+
+%% test/octave.test/system/localtime-3.m
+%!error <... localtime:.*> localtime (1, 2);
+
+%% test/octave.test/system/mktime-1.m
+%!test
+%! t = time ();
+%! assert(fix (mktime (localtime (t))) == fix (t));
+
+%% test/octave.test/system/mktime-2.m
+%!error <... mktime:.*> mktime ();
+
+%% test/octave.test/system/mktime-3.m
+%!error <... mktime:.*> mktime (1, 2, 3);
+
+%% test/octave.test/system/asctime-1.m
+%!test
+%! t = time ();
+%! assert(strcmp (asctime (localtime (t)), ctime (t)));
+
+%% test/octave.test/system/asctime-2.m
+%!error asctime ();
+
+%% test/octave.test/system/asctime-3.m
+%!error asctime (1, 2);
+
+%% test/octave.test/system/strftime-1.m
+%!assert((isstr (strftime ("%%%n%t%H%I%k%l", localtime (time ())))
+%! && isstr (strftime ("%M%p%r%R%s%S%T", localtime (time ())))
+%! && isstr (strftime ("%X%Z%z%a%A%b%B", localtime (time ())))
+%! && isstr (strftime ("%c%C%d%e%D%h%j", localtime (time ())))
+%! && isstr (strftime ("%m%U%w%W%x%y%Y", localtime (time ())))));
+
+%% test/octave.test/system/strftime-2.m
+%!error <... strftime:.*> strftime ();
+
+%% test/octave.test/system/strftime-3.m
+%!error <... strftime:.*> strftime ("foo", localtime (time ()), 1);
+
+%% test/octave.test/system/clock-1.m
+%!test
+%! t1 = clock;
+%! t2 = str2num (strftime ("[%Y, %m, %d, %H, %M, %S]", localtime (time ())));
+%! assert(etime (t1, t2) < 1);
+
+%% test/octave.test/system/date-1.m
+%!assert(strcmp (date (), strftime ("%d-%b-%Y", localtime (time ()))));
+
+%% test/octave.test/system/etime-1.m
+%!test
+%! t1 = [1993, 8, 20, 4, 56, 1];
+%! t2 = [1993, 8, 21, 4, 56, 1];
+%! t3 = [1993, 8, 20, 5, 56, 1];
+%! t4 = [1993, 8, 20, 4, 57, 1];
+%! t5 = [1993, 8, 20, 4, 56, 14];
+%! 
+%! assert((etime (t2, t1) == 86400 && etime (t3, t1) == 3600
+%! && etime (t4, t1) == 60 && etime (t5, t1) == 13));
+
+%% test/octave.test/system/etime-2.m
+%!error etime ();
+
+%% test/octave.test/system/etime-3.m
+%!error etime (1, 2, 3);
+
+%% test/octave.test/system/cputime-1.m
+%!test
+%! [t1, u1, s1] = cputime ();
+%! for i = 1:200
+%! sin (i);
+%! endfor
+%! [t2, u2, s2] = cputime ();
+%! assert(t1 == u1 + s1 && t2 == u2 + s2 && t2 >= t1 && u2 >= u2 && s2 >= s2);
+
+%% test/octave.test/system/is_leap_year-1.m
+%!assert((is_leap_year (2000) == 1 && is_leap_year (1976) == 1
+%! && is_leap_year (1000) == 0 && is_leap_year (1800) == 0
+%! && is_leap_year (1600) == 1));
+
+%% test/octave.test/system/is_leap_year-2.m
+%!error is_leap_year (1, 2);
+
+%% test/octave.test/system/tic-toc-1.m
+%!test
+%! tic ();
+%! sleep (2);
+%! assert(toc () > 0);
+
+%% test/octave.test/system/pause-1.m
+%!test
+%! pause (0);
+%! printf_assert ("ok\n");
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/system/pause-2.m
+%!error <... pause:.*> pause (1, 2);
+
+%% test/octave.test/system/sleep-1.m
+%!test
+%! sleep (0);
+%! printf_assert ("ok\n");
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/system/sleep-2.m
+%!error <... sleep:.*> sleep ();
+
+%% test/octave.test/system/sleep-3.m
+%!error <... sleep:.*> sleep (1, 2);
+
+%% test/octave.test/system/usleep-1.m
+%!test
+%! usleep (0);
+%! printf_assert ("ok\n");
+%! assert(prog_output_assert("ok"));
+
+%% test/octave.test/system/usleep-2.m
+%!error <... usleep:.*> usleep ();
+
+%% test/octave.test/system/usleep-3.m
+%!error <... usleep:.*> usleep (1, 2);
+
+%% test/octave.test/system/rename-1.m
+%!test
+%! from = tmpnam ();
+%! to = tmpnam ();
+%! id = fopen (from, "wb");
+%! if (id > 0 && fclose (id) == 0)
+%!   [s, e] = stat (from);
+%!   if (! e)
+%!     if (rename (from, to) == 0)
+%!       [s, e] = stat (from);
+%!       if (e < 0)
+%!         [s, e] = stat (to);
+%!         assert(e == 0);
+%!         unlink (to);
+%!       endif
+%!     endif
+%!   endif
+%! endif
+
+%% test/octave.test/system/rename-2.m
+%!error <... rename:.*> rename ();
+
+%% test/octave.test/system/rename-3.m
+%!error <... rename:.*> rename ("foo", "bar", 1);
+
+%% test/octave.test/system/unlink-1.m
+%!test
+%! nm = tmpnam ();
+%! if ((id = fopen (nm, "wb")) > 0)
+%!   [s, err] = stat (nm);
+%!   if (! err && fclose (id) == 0 && unlink (nm) == 0)
+%!     [s, err] = stat (nm);
+%!     assert(err < 0);
+%!   endif
+%! endif
+
+%% test/octave.test/system/unlink-2.m
+%!error <... unlink:.*> unlink ();
+
+%% test/octave.test/system/unlink-3.m
+%!error <... unlink:.*> unlink ("foo", 1);
+
+%% test/octave.test/system/readdir-1.m
+%!test
+%! [files, status, msg] = readdir ("/");
+%! assert(iscell (files) && status == 0 && msg == "");
+
+%% test/octave.test/system/readdir-2.m
+%!error <... readdir:.*> readdir ();
+
+%% test/octave.test/system/readdir-3.m
+%!error <... readdir:.*> readdir ("foo", 1);
+
+%% test/octave.test/system/mk-rm-dir-1.m
+%!test
+%! nm = tmpnam ();
+%! e1 = mkdir (nm);
+%! [s2, e2] = stat (nm);
+%! e3 = rmdir (nm);
+%! [s4, e4] = stat (nm);
+%! assert((e1 && strcmp (s2.modestr(1), "d") && e3 && e4 < 0));
+
+%% test/octave.test/system/mkdir-1.m
+%!error <... mkdir:.*> mkdir ();
+
+%% test/octave.test/system/mkdir-2.m
+%!error <... mkdir:.*> mkdir ("foo", 1);
+
+%% test/octave.test/system/rmdir-1.m
+%!error <... rmdir:.*> rmdir ();
+
+%% test/octave.test/system/rmdir-2.m
+%!assert(!rmdir ("foo", 1));
+
+%% XXX FIXME XXX This test messes up the path it seems!! Why?
+%% test/octave.test/system/umask-1.m
+%!#test
+%! umask (0);
+%! nm = tmpnam ();
+%! id = fopen (nm, "wb");
+%! s1 = stat (nm);
+%! fclose (id);
+%! unlink (nm);
+%! 
+%! umask (777);
+%! nm = tmpnam ();
+%! id = fopen (nm, "wb");
+%! s2 = stat (nm);
+%! fclose (id);
+%! unlink (nm);
+%! 
+%! assert(strcmp (s1.modestr, "-rw-rw-rw-") && strcmp (s2.modestr, "----------"));
+
+%% test/octave.test/system/umask-2.m
+%!error <... umask:.*> umask ();
+
+%% test/octave.test/system/umask-3.m
+%!error <... umask:.*> umask (1, 2);
+
+%% test/octave.test/system/stat-1.m
+%!test
+%! [s, err, msg] = stat ("/");
+%! assert((err == 0
+%! && isstruct (s)
+%! && struct_contains (s, "dev")
+%! && struct_contains (s, "ino")
+%! && struct_contains (s, "modestr")
+%! && struct_contains (s, "nlink")
+%! && struct_contains (s, "uid")
+%! && struct_contains (s, "gid")
+%! && struct_contains (s, "size")
+%! && struct_contains (s, "atime")
+%! && struct_contains (s, "mtime")
+%! && struct_contains (s, "ctime")
+%! && isstr (msg)));
+
+%% test/octave.test/system/stat-2.m
+%!error <... stat:.*> stat ();
+
+%% test/octave.test/system/stat-3.m
+%!error <... stat:.*> stat ("foo", 1);
+
+%% test/octave.test/system/lstat-1.m
+%!test
+%! [s, err, msg] = lstat ("/");
+%! assert((err == 0
+%! && isstruct (s)
+%! && struct_contains (s, "dev")
+%! && struct_contains (s, "ino")
+%! && struct_contains (s, "modestr")
+%! && struct_contains (s, "nlink")
+%! && struct_contains (s, "uid")
+%! && struct_contains (s, "gid")
+%! && struct_contains (s, "size")
+%! && struct_contains (s, "atime")
+%! && struct_contains (s, "mtime")
+%! && struct_contains (s, "ctime")
+%! && isstr (msg)));
+
+%% test/octave.test/system/lstat-2.m
+%!error <... lstat:.*> lstat ();
+
+%% test/octave.test/system/lstat-3.m
+%!error <... lstat:.*> lstat ("foo", 1);
+
+%% test/octave.test/system/glob-1.m
+%!assert(iscell (glob ("/*")));
+
+%% test/octave.test/system/glob-2.m
+%!error <... glob:*> glob ();
+
+%% test/octave.test/system/glob-3.m
+%!error <... glob:.*> glob ("foo", 1);
+
+%% test/octave.test/system/fnmatch-1.m
+%!test
+%! string_fill_char = setstr (0);
+%! assert((fnmatch ("a*a", ["aba"; "xxxba"; "aa"]) == [1; 0; 1]
+%! && fnmatch (["a*a"; "b*b"], "bob")
+%! && fnmatch ("x[0-5]*", ["x1"; "x6"]) == [1; 0]
+%! && fnmatch ("x[0-5]*", ["x1"; "x6"; "x001"]) == [1; 0; 1]
+%! && fnmatch ("x???y", ["xabcy"; "xy"]) == [1; 0]));
+
+%% test/octave.test/system/fnmatch-2.m
+%!error <... fnmatch:.*> fnmatch ();
+
+%% test/octave.test/system/fnmatch-3.m
+%!error <... fnmatch:.*> fnmatch ("foo", "bar", 3);
+
+%% test/octave.test/system/file_in_path-1.m
+%!assert(isstr (file_in_path (LOADPATH, "date.m")));
+
+%% test/octave.test/system/file_in_path-2.m
+%!error <invalid option> file_in_path ("foo", "bar", 1);
+
+%% test/octave.test/system/file_in_path-3.m
+%!error <... file_in_path:.*> file_in_path ();
+
+%% test/octave.test/system/file_in_path-4.m
+%!error <... file_in_path:.*> file_in_path ("foo", "bar", "baz", "ooka");
+
+%% test/octave.test/system/tilde_expand-1.m
+%!test
+%! x = getpwuid (getuid ());
+%! assert((strcmp (x.dir, tilde_expand ("~"))
+%! && strcmp (x.dir, tilde_expand (sprintf ("~%s", x.name)))
+%! && strcmp ("foobar", tilde_expand ("foobar"))));
+
+%% test/octave.test/system/tilde_expand-2.m
+%!error <... tilde_expand:.*> tilde_expand ();
+
+%% test/octave.test/system/tilde_expand-3.m
+%!error <... tilde_expand:.*> tilde_expand ("str", 2);
+
+%% test/octave.test/system/getpgrp-1.m
+%!assert(getpgrp () > 0);
+
+%% test/octave.test/system/getpgrp-2.m
+%!error <... getpgrp> getpgrp (1);
+
+%% test/octave.test/system/getpid-1.m
+%!assert(getpid () > 0);
+
+%% test/octave.test/system/getpid-2.m
+%!error <... getpid> getpid (1);
+
+%% test/octave.test/system/getppid-1.m
+%!assert(getppid () > 0);
+
+%% test/octave.test/system/getppid-2.m
+%!error <... getppid> getppid (1);
+
+%% test/octave.test/system/geteuid-1.m
+%!assert(geteuid () >= 0);
+
+%% test/octave.test/system/geteuid-2.m
+%!error <... geteuid> geteuid (1);
+
+%% test/octave.test/system/getuid-1.m
+%!assert(getuid () >= 0);
+
+%% test/octave.test/system/getuid-2.m
+%!error <... getuid> getuid (1);
+
+%% test/octave.test/system/getegid-1.m
+%!assert(getegid () >= 0);
+
+%% test/octave.test/system/getegid-2.m
+%!error <... getegid> getegid (1);
+
+%% test/octave.test/system/getgid-1.m
+%!assert(getgid () >= 0);
+
+%% test/octave.test/system/getgid-2.m
+%!error <... getgid> getgid (1);
+
+%% test/octave.test/system/getenv-1.m
+%!assert(strcmp (getenv ("HOME"), tilde_expand ("~")));
+
+%% test/octave.test/system/getenv-2.m
+%!error <... getenv:.*> getenv ();
+
+%% test/octave.test/system/getenv-3.m
+%!error <... getenv:.*> getenv ("foo", 1);
+
+%% test/octave.test/system/getenv-4.m
+%!test
+%! wns = warn_num_to_str;
+%! warn_num_to_str = 1;
+%! fail("getenv (1)","warning");
+%! warn_num_to_str = wns;
+
+%% test/octave.test/system/putenv-1.m
+%!test
+%! putenv ("foobar", "baz");
+%! assert(strcmp (getenv ("foobar"), "baz"));
+
+%% test/octave.test/system/putenv-2.m
+%!error <... putenv:.*> putenv ();
+
+%% test/octave.test/system/putenv-3.m
+%!error <... putenv:.*> putenv ("foo", "bar", 1);
+
+%% test/octave.test/system/putenv-4.m
+%!test
+%! wns = warn_num_to_str;
+%! warn_num_to_str = 1;
+%! fail("putenv (1, 2)","warning");
+%! warn_num_to_str = wns;
+
+%% test/octave.test/system/cd-1.m
+%!test
+%! xdir = pwd ();
+%! cd /
+%! d1 = pwd ();
+%! cd (xdir);
+%! assert("/", d1);
+%! assert(pwd(), xdir);
+
+%% test/octave.test/system/cd-2.m
+%!error cd (1);
+
+%% test/octave.test/system/pwd-1.m
+%!assert(isstr (pwd ()));
+
+%% test/octave.test/system/ls-1.m
+%!error ls (1);
+
+%% test/octave.test/system/getpwent-1.m
+%!test
+%! s = getpwent ();
+%! assert((isstruct (s)
+%! && struct_contains (s, "name")
+%! && struct_contains (s, "passwd")
+%! && struct_contains (s, "uid")
+%! && struct_contains (s, "gid")
+%! && struct_contains (s, "gecos")
+%! && struct_contains (s, "dir")
+%! && struct_contains (s, "shell")));
+
+%% test/octave.test/system/getpwent-2.m
+%!error <... getpwent:.*> getpwent (1);
+
+%% test/octave.test/system/getpwuid-1.m
+%!test
+%! x = getpwent ();
+%! y = getpwuid (x.uid);
+%! 
+%! assert(strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
+
+%% test/octave.test/system/getpwuid-2.m
+%!error <... getpwuid:.*> getpwuid ();
+
+%% test/octave.test/system/getpwuid-3.m
+%!error <... getpwuid:.*> getpwuid (1, 2);
+
+%% test/octave.test/system/getpwnam-1.m
+%!test
+%! x = getpwent ();
+%! y = getpwnam (x.name);
+%! 
+%! assert(strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
+
+%% test/octave.test/system/getpwnam-2.m
+%!error <... getpwnam:.*> getpwnam ();
+
+%% test/octave.test/system/getpwnam-3.m
+%!error <... getpwnam:.*> getpwnam ("foo", 1);
+
+%% test/octave.test/system/setpwent-1.m
+%!test
+%! x = getpwent ();
+%! setpwent ();
+%! y = getpwent ();
+%! 
+%! assert(strcmp (x.name, y.name) && x.uid == y.uid && x.gid == y.gid);
+
+%% test/octave.test/system/setpwent-2.m
+%!error <... setpwent:.*> setpwent (1);
+
+%% test/octave.test/system/endpwent-1.m
+%!error <... endpwent:.*> endpwent (1);
+
+%% test/octave.test/system/getgrent-1.m
+%!test
+%! x = getgrent ();
+%! assert((isstruct (x)
+%! && struct_contains (x, "name")
+%! && struct_contains (x, "passwd")
+%! && struct_contains (x, "gid")
+%! && struct_contains (x, "mem")));
+
+%% test/octave.test/system/getgrent-2.m
+%!error <... getgrent:.*> getgrent (1);
+
+%% test/octave.test/system/getgrgid-1.m
+%!test
+%! x = getgrent ();
+%! y = getgrgid (x.gid);
+%! 
+%! assert(strcmp (x.name, y.name) && x.gid == y.gid);
+
+%% test/octave.test/system/getgrgid-2.m
+%!error <... getgrgid:.*> getgrgid ();
+
+%% test/octave.test/system/getgrgid-3.m
+%!error <... getgrgid:.*> getgrgid (1, 2);
+
+%% test/octave.test/system/getgrnam-1.m
+%!test
+%! x = getgrent ();
+%! y = getgrnam (x.name);
+%! 
+%! assert(strcmp (x.name, y.name) && x.gid == y.gid);
+
+%% test/octave.test/system/getgrnam-2.m
+%!error <... getgrnam:.*> getgrnam ();
+
+%% test/octave.test/system/getgrnam-3.m
+%!error <... getgrnam:.*> getgrnam ("foo", 1);
+
+%% test/octave.test/system/setgrent-1.m
+%!test
+%! x = getgrent ();
+%! setgrent ();
+%! y = getgrent ();
+%! 
+%! assert(strcmp (x.name, y.name) && x.gid == y.gid);
+
+%% test/octave.test/system/setgrent-2.m
+%!error <... setgrent:.*> setgrent (1);
+
+%% test/octave.test/system/endgrent-1.m
+%!error <... endgrent:.*> endgrent (1);
+
+%% test/octave.test/system/computer-1.m
+%!assert((isstr (computer ())
+%! && computer () == octave_config_info ("canonical_host_type")));
+
+%% test/octave.test/system/computer-2.m
+%!warning a =computer(2);
+
+%% test/octave.test/system/isieee-1.m
+%!assert(isieee () == 1 || isieee () == 0);
+
+%% test/octave.test/system/version-1.m
+%!assert(isstr (version ()) && strcmp (version (), OCTAVE_VERSION));
+
+%% test/octave.test/system/version-2.m
+%!warning version (1);
+
+%% test/octave.test/system/octave_config_info-1.m
+%!assert(isstruct (octave_config_info ()));
+
+%% test/octave.test/system/getrusage-1.m
+%!assert(isstruct (getrusage ()));
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_transpose.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_transpose.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,22 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/transpose/transpose-1.m
+%!test
+%! scalar = 2;
+%! assert(scalar',2);
+
+%% test/octave.test/transpose/transpose-2.m
+%!test
+%! range = 1:4;
+%! assert(range',[1;2;3;4]);
+
+%% test/octave.test/transpose/transpose-3.m
+%!test
+%! vector = [1;2;3;4];
+%! assert(vector',[1,2,3,4]);
+
+%% test/octave.test/transpose/transpose-4.m
+%!test
+%! matrix = [1,2;3,4];
+%! assert(matrix',[1,3;2,4]);
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_try.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_try.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,123 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/try/try-1.m
+%!test
+%! try
+%! catch
+%!   error("Shoudn't get here");
+%! end_try_catch
+
+%% test/octave.test/try/try-2.m
+%!test
+%! try
+%!   clear a
+%!   a;
+%! catch
+%! end_try_catch
+%! a = 1;
+%! assert(a,1);
+
+%% test/octave.test/try/try-3.m
+%!test
+%! clear x;
+%! try
+%!   clear a
+%!   a;
+%!   x = 1;
+%! catch
+%! end_try_catch
+%! a = 2;
+%! assert(!exist('x'))
+%! assert(a,2)
+
+%% test/octave.test/try/try-4.m
+%!test
+%! try
+%!   clear a
+%!   a;
+%! catch
+%!   x = 1;
+%! end_try_catch
+%! assert(exist('x'))
+
+%% test/octave.test/try/try-5.m
+%!test
+%! try
+%!   clear a;
+%!   a;
+%!   error("Shoudn't get here");
+%! catch
+%!   assert (strcmp(lasterr()(1:20), "error: `a' undefined"))
+%! end_try_catch
+%! assert (strcmp(lasterr()(1:20), "error: `a' undefined"))
+
+%% test/octave.test/try/try-6.m
+%!test 
+%! try
+%!   error ("user-defined error")
+%! catch
+%!   assert(lasterr,"error: user-defined error\n");
+%! end_try_catch
+
+%% test/octave.test/try/try-7.m
+%!function ms = mangle (s)
+%!  ## Wrap angle brackets around S.
+%!  ms = strcat ("<", s, ">");
+%!test
+%! try
+%!   clear a
+%!   a;
+%!   error("Shoudn't get here");
+%! catch
+%!   assert(strcmp(mangle (lasterr)(1:21),"<error: `a' undefined"))
+%! end_try_catch
+
+
+%% test/octave.test/try/try-8.m
+%!test
+%! try
+%!   try
+%!     clear a
+%!     a;
+%!     error("Shoudn't get here");
+%!   catch
+%!     assert(strcmp(lasterr()(1:20), "error: `a' undefined"))
+%!   end_try_catch
+%!   clear b
+%!   b;
+%!   error("Shoudn't get here");
+%! catch
+%!   assert(strcmp(lasterr()(1:20), "error: `b' undefined"))
+%! end_try_catch
+
+%% test/octave.test/try/try-9.m
+%!test
+%! try
+%!   clear a
+%!   a;
+%!   error("Shoudn't get here");
+%! catch
+%!   try
+%!     assert(strcmp(lasterr()(1:20), "error: `a' undefined"))
+%!     clear b
+%!     b;
+%!     error("Shoudn't get here");
+%!   catch
+%!     assert(strcmp(lasterr()(1:20), "error: `b' undefined"))
+%!   end_try_catch
+%! end_try_catch
+
+%% test/octave.test/try/try-10.m
+%!test
+%! try
+%!   try
+%!     clear a
+%!     a;
+%!     error("Shoudn't get here");
+%!   catch
+%!     error(strcat("rethrow: ",lasterr));
+%!   end_try_catch
+%! catch
+%!   assert(strcmp(lasterr()(1:36), "error: rethrow: error: `a' undefined"))
+%! end_try_catch
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_unix.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_unix.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,2 @@
+%% Automatically generated from DejaGNU files
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_unwind.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_unwind.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,40 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/unwind/unwind-1.m
+%!function y = f (x)
+%!  global g;
+%!  save_g = g;
+%!  unwind_protect
+%!    g = 0;
+%!    y = g;
+%!    [1,2;x];
+%!    g = 1;
+%!    y = [y, g];
+%!  unwind_protect_cleanup
+%!    g = save_g;
+%!    y = [y, g];
+%!  end_unwind_protect
+%!test
+%! global g = -1;
+%! y = f ([3,4]);
+%! assert(y,[0,1,-1]);
+
+%% test/octave.test/unwind/unwind-2.m
+%!function y = f (x)
+%!  global g;
+%!  save_g = g;
+%!  unwind_protect
+%!    g = 0;
+%!    y = g;
+%!    [1,2;x];
+%!    g = 1;
+%!    y = [y, g];
+%!  unwind_protect_cleanup
+%!    g = save_g;
+%!    y = [y, g];
+%!    assert(y,[0,-1]);
+%!  end_unwind_protect
+%!test
+%! global g = -1;
+%! fail("y = f (3);","number of columns must match");
+
diff -r f812a0680d05 -r 1ad66ea35fe5 test/test_while.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/test_while.m	Fri Jan 06 00:24:06 2006 +0000
@@ -0,0 +1,54 @@
+%% Automatically generated from DejaGNU files
+
+%% test/octave.test/while/while-1.m
+%!test
+%! i = 0;
+%! while (eye (2))
+%! i++;
+%! printf_assert ("%d\n", i);
+%! endwhile;
+%! assert(prog_output_assert(""));
+
+%% test/octave.test/while/while-2.m
+%!test
+%! i = 5;
+%! while (--i)
+%! printf_assert ("%d", i);
+%! endwhile
+%! printf_assert ("\n");
+%! assert(prog_output_assert("4321"));
+
+%% test/octave.test/while/while-3.m
+%!test
+%! i = 5;
+%! while (i)
+%! i--;
+%! printf_assert ("%d", i);
+%! endwhile
+%! printf_assert ("\n");
+%! assert(prog_output_assert("43210"));
+
+%% test/octave.test/while/while-4.m
+%!test
+%! i = 0;
+%! while (i++ < 20)
+%! if (i > 2)
+%! break;
+%! endif
+%! printf_assert ("%d", i);
+%! endwhile;
+%! printf_assert ("\n");
+%! assert(prog_output_assert("12"));
+
+%% test/octave.test/while/while-5.m
+%!test
+%! i = 0;
+%! while (++i < 5)
+%! if (i < 3)
+%! continue;
+%! endif
+%! printf_assert ("%d", i);
+%! endwhile
+%! printf_assert ("\n");
+%! assert(prog_output_assert("34"));
+