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.0.0 / tests / webtbf / tw4139.pp
Size: Mime:
{ %fail }
{ %opt=-Sew -vw }

{ Source provided for Free Pascal Bug Report 4139 }
{ Submitted by "Christian Iversen" on  2005-06-29 }
{ e-mail: chrivers@iversen-net.dk }

{$mode delphi}

type
  Foobar = (a, b, c, d);

const
  Test = c;

const
  List = [a, c];

{$IF Test in List}
  {$MESSAGE WARN 'This should work'}
{$IFEND}

begin
end.