mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
15 lines
181 B
ObjectPascal
15 lines
181 B
ObjectPascal
{ %opt=-Seh }
|
|
{ %norun }
|
|
program test;
|
|
|
|
const
|
|
TheVersion = 1;
|
|
|
|
begin
|
|
{$if TheVersion >= 1}
|
|
writeln('Version 1 or higher');
|
|
{$else}
|
|
writeln('Version < 1');
|
|
{$endif}
|
|
end.
|