paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-03-06 13:53:10 +00:00
parent 0a9b1e5b63
commit c816e71deb
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw3529.pp Normal file
View File

@ -0,0 +1,19 @@
{ Source provided for Free Pascal Bug Report 3529 }
{ Submitted by "Alexey Barkovoy" on 2005-01-07 }
{ e-mail: clootie@ixbt.com }
var
v1, v2: Variant;
S1, S2: AnsiString;
begin
S1:= 'aa';
S2:= 'bb';
v1:= S1;
v2:= S2;
if v1 = v2 then
begin
WriteLn('Equal');
halt(1);
end
else
writeln('not-equal');
end.