*** liboctave/ArrayN.cc	Tue Jul 29 15:09:51 2003
--- ../../ArrayN-new.cc	Wed Jul 30 11:22:07 2003
*************** operator << (std::ostream& os, const Arr
*** 396,401 ****
--- 396,407 ----
  
        Array<int> ra_idx (n_dims,0);
  
+       if (n_dims < 1)
+         {
+           (*current_liboctave_error_handler)
+             ("std::operator <<: problems with dimensions (= 0)!");
+           return os;
+         }

        int m = 1; //Number of times the first 2d-array is to be displayed.
        for(int i = 2; i < n_dims; i++)
*************** operator << (std::ostream& os, const Arr
*** 423,429 ****
  	            os << "\n";
  	          }
  	        break;
! 	      case 1:  // 1-dimensional
  	        rows = a_dims(0);
  	        for (int k = 0; k < rows; k++)
  	          {
--- 429,435 ----
  	            os << "\n";
  	          }
  	        break;
! 	      default:  // 1-dimensional or 1-dimensional equivalent
  	        rows = a_dims(0);
  	        for (int k = 0; k < rows; k++)
  	          {
*************** operator << (std::ostream& os, const Arr
*** 431,439 ****
  		    os << " " << a.elem(ra_idx);
  	          }
  	        break;
- 	      default:
- 	        (*current_liboctave_error_handler)
- 	          ("std::operator <<: problems with dimensions (= 0)!");
  	    }
            os << "\n";
          }
--- 437,442 ----