Skip to content

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
To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information