mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
15 lines
249 B
ObjectPascal
15 lines
249 B
ObjectPascal
program project1;
|
|
{$ifdef fpc}
|
|
{$mode objfpc}{$H+}
|
|
{$endif}
|
|
uses SysUtils, uw17220;
|
|
|
|
var
|
|
A, B: int64;
|
|
begin
|
|
writeln(uw17220.IntToHEX(16, 0)); {Here ERROR: called SysUtils.IntToHEX }
|
|
if uw17220.IntToHEX(16, 0)<>'passed' then
|
|
halt(1);
|
|
end.
|
|
|