fpc/tests/webtbs/tw40144.pp

{ %NORUN }

program tw40144;

{$Mode objfpc}{$H+}
{$ModeSwitch anonymousfunctions}
{$ModeSwitch functionreferences}
{$ModeSwitch nestedprocvars}

type
  TVoidFunc = reference to procedure;
  TFuncMaker = reference to function(const thing: string): TVoidFunc;

procedure main;
  var
    cool_bingo: TVoidFunc;
    coolifier: TFuncMaker;
  begin
    cool_bingo := default(TVoidFunc);
    coolifier := default(TFuncMaker);
    coolifier := function (const thing: string): TVoidFunc
    var
      func: TVoidFunc;
    begin
      result := default(TVoidFunc); // <-- This is line 23
      func := procedure begin writeln('cool ', thing) end;
      result := func;
    end;
    cool_bingo := coolifier('bingo');
    cool_bingo();
  end;

begin
  main;
end.