fpcsrc/tests/webtbs/uw15909.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

unit uw15909;
{$mode Delphi}

{$inline on}

interface

    procedure foo(const s: widestring; const n: integer); inline;

    function bar(const s, fmt: widestring): integer;

implementation

procedure foo(const s: widestring; const n: integer);
begin
    bar(s, '%d')
end;


    function bar(const s, fmt: widestring): integer;
      begin
        if (s<>'abc') or
           (fmt<>'%d') then
          begin
            writeln('"',s,'"');
            halt(1);
          end;
        result:=0;
      end;

end.