view test/bug-53027/ntest53027a.m @ 30249:bc22395f60fa

maint: merge stable to default.
author John W. Eaton <jwe@octave.org>
date Fri, 22 Oct 2021 12:05:59 -0400
parents 2b040946dc69
children
line wrap: on
line source

function [m_exist, n_exist] = ntest53027a ()
  global x
  x = 3;
  n_exist = nest ();
  m_exist = exist ("x", 'var');
  function n_exist = nest ()
    x = 1;
    clear x
    n_exist = exist ("x", "var");
  endfunction
endfunction