{ %FAIL }
{ %TARGET=darwin,iphonesim,ios }

{ a C-block may not reference itself }

program tblock6;

{$mode objfpc}
{$modeswitch cblocks}
{$modeswitch functionreferences}

type
  TBlock = reference to function(l: specialize TArray<TBlock>): LongInt; cdecl; cblock;

begin
end.