paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 35 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@36 -
This commit is contained in:
fpc 2005-05-19 22:19:57 +00:00
parent 65e2594da4
commit 0e8c2c83fa
3 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6128,6 +6128,8 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
tests/webtbs/tw3898.pp svneol=native#text/plain
tests/webtbs/tw3899.pp svneol=native#text/plain
tests/webtbs/tw3900.pp svneol=native#text/plain
tests/webtbs/tw3953a.pp svneol=native#text/plain
tests/webtbs/tw3953b.pp svneol=native#text/plain
tests/webtbs/tw3973.pp svneol=native#text/plain
tests/webtbs/tw3977.pp svneol=native#text/plain
tests/webtbs/tw3977.txt svneol=native#text/plain

18
tests/webtbs/tw3953a.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 3953 }
{ Submitted by "Jesus Reyes A." on 2005-05-08 }
{ e-mail: jesusrmx@yahoo.com.mx }
program CompareBooleanVars;
uses variants;
var
A,B: Variant;
begin
A := True;
B := True;
if A=B then
WriteLn('A and B are equal')
else
begin
WriteLn('A and B are NOT equal');
halt(1);
end;
end.

18
tests/webtbs/tw3953b.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 3953 }
{ Submitted by "Jesus Reyes A." on 2005-05-08 }
{ e-mail: jesusrmx@yahoo.com.mx }
program CompareNULLVars;
uses variants;
var
A,B: Variant;
begin
A := NULL;
B := NULL;
if A=B then
WriteLn('A and B are equal')
else
begin
WriteLn('A and B are NOT equal');
halt(1);
end;
end.