mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 09:09:30 +02:00
26 lines
264 B
ObjectPascal
26 lines
264 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
program tw31675;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes,
|
|
{$if declared(useheaptrace)}
|
|
uw31675,
|
|
{$endif}
|
|
SysUtils
|
|
;
|
|
|
|
var
|
|
i: Boolean = false;
|
|
begin
|
|
{$if declared(foo)}
|
|
i := true;
|
|
{$endif}
|
|
if not i then
|
|
Halt(1);
|
|
WriteLn('ok');
|
|
end.
|
|
|