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

Added test for Mantis #25044 which has been fixed in revision 29537.

Browse Source 
git-svn-id: trunk@29687 -
This commit is contained in:
svenbarth 2015-02-13 17:02:07 +00:00
parent 071282b286
commit a7085ea34e
2 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -14111,6 +14111,7 @@ tests/webtbs/tw2503.pp svneol=native#text/plain
tests/webtbs/tw25030.pp svneol=native#text/pascal
tests/webtbs/tw2504.pp svneol=native#text/plain
tests/webtbs/tw25043.pp svneol=native#text/pascal
tests/webtbs/tw25044.pp svneol=native#text/pascal
tests/webtbs/tw25054a.pp svneol=native#text/pascal
tests/webtbs/tw25054b.pp svneol=native#text/pascal
tests/webtbs/tw25059.pp svneol=native#text/pascal

37
tests/webtbs/tw25044.pp Normal file
View File

@ -0,0 +1,37 @@
{ %NORUN }
program tw25044;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
type
TBase = class(TObject)
end;
TDescendant = class(TBase)
end;
T123456789012345678901 = record
public
Value: TDescendant;
class operator Implicit(Operand: T123456789012345678901): TBase;
class operator Implicit(Operand: T123456789012345678901): TDescendant;
end;
{ T123456789012345678901 }
class operator T123456789012345678901.Implicit(Operand: T123456789012345678901): TBase;
begin
Result := Operand.Value;
end;
class operator T123456789012345678901.Implicit(Operand: T123456789012345678901): TDescendant;
begin
Result := Operand.Value;
end;
begin
end.