# HG changeset patch
# User jwe
# Date 1078901823 0
# Node ID f9262b65c7d9186c660ca8f429868fbe81917466
# Parent  4ec7d24b4943394da6e5c75745056ab130058c9c
[project @ 2004-03-10 06:57:03 by jwe]

diff -r 4ec7d24b4943 -r f9262b65c7d9 liboctave/Array.cc
--- a/liboctave/Array.cc	Wed Mar 10 06:14:52 2004 +0000
+++ b/liboctave/Array.cc	Wed Mar 10 06:57:03 2004 +0000
@@ -1971,6 +1971,8 @@
 
   int orig_len = nr * nc;
 
+  dim_vector idx_orig_dims = idx_arg.orig_dimensions ();
+
   int idx_orig_rows = idx_arg.orig_rows ();
   int idx_orig_columns = idx_arg.orig_columns ();
 
@@ -1992,7 +1994,7 @@
       if (len == 0 && idx_arg.one_zero_only ())
 	retval = Array<T> (tmp, dim_vector (0, 0));
       else
-	retval = Array<T> (tmp, dim_vector (idx_orig_rows, idx_orig_columns));
+	retval = Array<T> (tmp, idx_orig_dims);
     }
   else if (nr == 1 || nc == 1)
     {
@@ -2013,7 +2015,7 @@
 	    retval = Array<T> (tmp, dim_vector (len, 1));
 	}
       else
-	retval = Array<T> (tmp, dim_vector (idx_orig_rows, idx_orig_columns));
+	retval = Array<T> (tmp, idx_orig_dims);
     }
   else
     {
diff -r 4ec7d24b4943 -r f9262b65c7d9 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Wed Mar 10 06:14:52 2004 +0000
+++ b/liboctave/ChangeLog	Wed Mar 10 06:57:03 2004 +0000
@@ -1,3 +1,8 @@
+2004-03-10  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* Array.cc (Array<T>::index2): Allow result to be N-d if indexing
+	a scalar or vector with an N-d array.
+
 2004-03-09  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* Array.cc (Array<T>::index2): If scalar or vector is indexed by