Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbs / tb0092.pp
Size: Mime:
{ Old file: tbs0109.pp }
{ syntax error not detected when using a set as pointer OK 0.99.1 (FK) }

Type T = (aa,bb,cc,dd,ee,ff,gg,hh);
     Tset = set of t;

Var a: Tset;

Begin
  If (aa in a) Then begin end;
  {it seems that correct code is generated, but the syntax is wrong}
End.