summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw17220.pp
blob: 842ab4a63ce3a6a9b9640da5d3eaf377de97f807 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.