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 / tbf / tb0210a.pp
Size: Mime:
{ %fail }

// check whether enums can NOT be casted to object references; this 
// should NOT work in objfpc mode (see also tbs/tb0554.pp)
{$mode objfpc}

{$packenum 2}
type
  TEnum = (a, b, c);
  
var
  e : TEnum;
  o : TObject;

begin
  e := TEnum(o);
end.