Mercurial > octave
view test/bug-53579.tst @ 32083:4e30fd192118
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sun, 07 May 2023 18:15:23 +0200 |
parents | 13362cd35b72 |
children |
line wrap: on
line source
%!function [raa, rbb, igaa, igbb] = sub1 (aa, bb) %! global aa bb; %! aa = 1; %! raa = aa; %! rbb = bb; %! igaa = isglobal ("aa"); %! igbb = isglobal ("bb"); %!endfunction %!test <*53579> %! global aa bb; %! assert (isglobal ("aa")); %! assert (isglobal ("bb")); %! aa = 3; %! xx = 5; %! warning ('off', 'Octave:global-local-conflict', 'local'); %! [raa, rbb, igaa, igbb] = sub1 (aa, xx); %! assert (raa, 1); %! assert (rbb, []); %! assert (igaa); %! assert (igbb); %! assert (xx, 5); %! clear -global aa bb; # cleanup after test