IE2002072301
FPC Trunk, Win11x64
program test;
{$mode objfpc}
type
TSetOfChar = set of char;
TMyObject=class
class function Method(setofchar: TSetOfChar): Boolean; inline;
end;
class function TMyObject.Method(setofchar: TSetOfChar): Boolean;
var sym: char=#0;
begin
Result:=sym in setofchar;
end;
begin
TMyObject.Method([]);
end.
Output:
>fpc.exe IE2002072301.pas
Free Pascal Compiler version 3.3.1-15576-gb3c1f294ba [2024/04/14] for x86_64
Copyright (c) 1993-2024 by Florian Klaempfl and others
Target OS: Win64 for x64
Compiling IE2002072301.pas
IE2002072301.pas(16,3) Fatal: Internal error 2002072301
Fatal: Compilation aborted