function tst_fcn_dup ()
  subfcn1 ();
  subfcn2 ();
endfunction

function subfcn1 ()
  disp ("First definition of subfcn1");
endfunction

function subfcn2 ()
  disp ("calling subfcn2");
endfunction

function subfcn1 ()
  disp ("Second definition of subfcn1");
endfunction
