Scopedenums and 'anonymous' enumerated

Summary

The scopedenum directive should not work on implicit sets

System Information

• Operating system: N/A
• Processor architecture: N/A
• Compiler version: 3.3.1
• Device: N/A

Steps to reproduce

Compile the below program. You get an 'identifier a not found' error:

ts2.pas(12,13) Error: Identifier not found "a"

Delphi compiles the program without error.

Example Project

{$scopedenums on}

Type
  TSet = set of (a,b);
  
var
  S : TSet;  
  
begin
  S:=[];
  Include(S,a);
end. 

What is the current bug behavior?

FPC returns an error.

What is the expected (correct) behavior?

FPC compiles the program.