fpcsrc/tests/tbs/tb0462.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

{ %version=1.1 }

{$ifdef fpc}
{$ifdef unix}
uses
  cwstring;
{$endif}
{$endif}

type
  RR = record
    RA : WideString;
  end;

const
  Z : RR = (RA: 'B');

begin
  if z.ra<>'B' then
    begin
      writeln('error');
      halt(1);
    end;
end.