fpc/tests/webtbs/tw26069.pp
2014-11-01 14:54:16 +00:00

24 lines
203 B
ObjectPascal

{ %norun }
Unit tw26069;
{$mode delphi}
Interface
Type
TClass1 = Class
Type
TReason = (rnOne, rnTwo);
End;
TClass2 = Class
Type
TReason = (rn1, rn2);
End;
Implementation
End.