view test/bug-53579.tst @ 31184:68ec7f275f0e

fftw: Limit the default number of threads used by FFTW to 3. * liboctave/numeric/oct-fftw.cc (fftw_planner::fftw_planner): Limit the default number of threads used by FFTW to 3. * libinterp/dldfcn/fftw.cc (Ffftw): Document new default number of threads used by FFTW. See: https://octave.discourse.group/t/3121
author Markus Mützel <markus.muetzel@gmx.de>
date Thu, 11 Aug 2022 19:57:11 +0200
parents 34617dd78f02
children 332a6ccac881
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;
%! [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