fpcsrc/tests/webtbs/tw3492.pp


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

{$mode fpc}

resourcestring
  s = 'OK';

var t:ansistring;

begin
  t:=s;
  if t<>'OK' then
    begin
      writeln('Resourcestring error!');
      halt(1);
    end
  else
    writeln(s);
end.