Skip to content

Internal error 200511152

I found that the following program in FPC 3.2.X generates an internal error (always, not randomly):

program Project1;
{$mode ObjFPC}
 
procedure AddGroup;
 
  generic procedure Add<T>(const X : T; const Y : T; out Z : T);
  begin
    Z:=X+Y;
  end;
 
  var
    R : integer;
 
  begin
    specialize Add<integer>(4,5,R);
  end;
 
begin
   AddGroup;
end.

I reported this problem years ago on Mantis, but in the conversion it disappeared

(https://forum.lazarus.freepascal.org/index.php/topic,54896.msg408068.html?PHPSESSID=cpu87tdh5bqnl1d5hd4f8sjdb7#msg408068)

Edited by FPK
To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information