mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 04:39:34 +02:00
19 lines
356 B
ObjectPascal
19 lines
356 B
ObjectPascal
{ Checks whether the %x format string supports qwords.
|
|
This is a variation of tb0488a
|
|
}
|
|
|
|
uses {$ifdef unix}cwstring, {$endif}SysUtils,erroru;
|
|
|
|
procedure Check(a,b:ansistring);
|
|
begin
|
|
if a<>b then
|
|
begin
|
|
writeln(a,' should be equal to ',b);
|
|
error;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
check(WideFormat('%x', [$FFFFFFF]),'FFFFFFF');
|
|
end.
|