mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
22 lines
383 B
ObjectPascal
22 lines
383 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3028 }
|
|
{ Submitted by "Vincent Snijders" on 2004-03-28 }
|
|
{ e-mail: vslist@zonnet.nl }
|
|
program caseconstant;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
const
|
|
c1 = -(551);
|
|
c2 = -551;
|
|
|
|
begin
|
|
writeln(c1,' $', hexstr(c1, 8));
|
|
writeln(c2,' $', hexstr(c2, 8));
|
|
if (c1<>c2) then
|
|
begin
|
|
writeln('Failed');
|
|
halt(1);
|
|
end
|
|
else writeln('OK');
|
|
end.
|