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

+ added test LOC_REFERENCE/LOC_REFERENCE (thanks to Florian)

Browse Source
This commit is contained in:
carl 2002-03-22 21:32:23 +00:00
parent 577030e45a
commit 119fbebc99
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/test/cg/tis.pp
View File

@ -32,12 +32,14 @@ type
tclass3 = class
end;
var
myclass1 : tclass1;
myclass2 : tclass2;
myclass3 : tclass3;
class1 : class of tclass1;
procedure fail;
@ -67,6 +69,7 @@ end;
{ possible types : right : LOC_REFERENCE, LOC_REGISTER }
var
failed : boolean;
myclass4 : class of tclass1;
begin
failed := false;
{ create class instance }
@ -107,18 +110,22 @@ begin
failed := false;
{ Write('Testing left/right : LOC_REFERENCE/LOC_REFERENCE...');
Write('Testing left/right : LOC_REFERENCE/LOC_REFERENCE...');
if (myclass1 is class1) then
failed := true;
if failed then
Fail
else
WriteLn('Passed!');
}
end.
{
$Log$
Revision 1.1 2002-03-21 20:16:23 carl
Revision 1.2 2002-03-22 21:32:23 carl
+ added test LOC_REFERENCE/LOC_REFERENCE (thanks to Florian)
Revision 1.1 2002/03/21 20:16:23 carl
+ is operator testing