view test/fcn-handle/bug60845.m @ 31197:8d4c87e88d0e

maint: Merge stable to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Tue, 23 Aug 2022 19:45:19 +0200
parents 6d1224698acf
children
line wrap: on
line source

function output = bug60845 (varargin)
  ## ahandle is a boolean variable
  [Ahandle, static, fcn_handle] = checkInput (varargin{:});

  ## execute nested function using handle
  output = fcn_handle ();

  function [Ahandle, static, fcn_handle] = checkInput (varargin)
    ## initialize
    Ahandle = true;
    static = false;
    ## get a handle to nested (sibling) function.
    fcn_handle = @nestfcn;
  endfunction

  function r = nestfcn ()
    if (islogical (Ahandle))
      r = true;
    else
      r = false;
    end
  endfunction
endfunction