Mercurial > octave

view test/bug-54490.tst @ 30270:8d7671609955 stable release-6-4-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 6.4.0 released. * configure.ac (AC_INIT): Set version to 6.4.0. (OCTAVE_MINOR_VERSION): Now 4. (OCTAVE_PATCH_VERSION): Now 0. (OCTAVE_RELEASE_DATE): Set to "2021-10-30". * etc/icons/org.octave.Octave.appdata.xml: Add release info for version 6.4.0. * CITATION: Update for 6.4.0. * NEWS: Update release date.
author John W. Eaton <jwe@octave.org>
date Sat, 30 Oct 2021 10:20:24 -0400
parents cc9da21511c1
children 2838bbd84b87
line wrap: on
line source

%!function out = bug54490 ()
%!  global k;
%!  k = 1;
%!  out = 3;
%!endfunction

%!test
%! global k;
%! k = 2;
%! a = [5, 6];
%! a(k) = bug54490 ();
%! assert (a, [5, 3]);
%! k = 2;
%! a = [5, 6];
%! [a(k)] = bug54490 ();
%! assert (a, [5, 3]);
%! clear -global k;  # cleanup after test