fpcsrc/tests/tbs/tb0518.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{$mode delphi}
type
  tc = class
    constructor create(const n: ansistring);
  end;

constructor tc.create;
begin
  if (n <> 'abc') then halt(1);
end;

begin
  tc.create('abc');
end.