Mercurial > hg > octave-nkf

diff liboctave/Array.cc @ 6389:f427b33aeb4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-07 09:13:50 by jwe]
author jwe
date Wed, 07 Mar 2007 09:13:50 +0000
parents 4109a2386346
children e8c42df3d234
line wrap: on
line diff
--- a/liboctave/Array.cc
+++ b/liboctave/Array.cc
@@ -2516,6 +2516,16 @@
 
   if (n != 0)
     {
+      dim_vector lhs_dims = lhs.dims ();
+
+      if (lhs_len == 0 && ! lhs_dims.all_zero ())
+	{
+	  (*current_liboctave_error_handler)
+	    ("A(I) = X: unable to resize A");
+
+	  retval = 0;
+	}
+
       if (rhs_len == n || rhs_len == 1)
 	{
 	  octave_idx_type max_idx = lhs_idx.max () + 1;