mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 13:49:39 +02:00
parent
9d7d146ddc
commit
8003f675c5
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -17326,6 +17326,7 @@ tests/webtbs/tw24197.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw2421.pp svneol=native#text/plain
|
tests/webtbs/tw2421.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2423.pp svneol=native#text/plain
|
tests/webtbs/tw2423.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2425.pp svneol=native#text/plain
|
tests/webtbs/tw2425.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw24283.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw24318.pp svneol=native#text/plain
|
tests/webtbs/tw24318.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2432.pp svneol=native#text/plain
|
tests/webtbs/tw2432.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw2435.pp svneol=native#text/plain
|
tests/webtbs/tw2435.pp svneol=native#text/plain
|
||||||
|
22
tests/webtbs/tw24283.pp
Normal file
22
tests/webtbs/tw24283.pp
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
{ %NORUN }
|
||||||
|
|
||||||
|
program tw24283;
|
||||||
|
|
||||||
|
{$mode delphi}{$H+}
|
||||||
|
|
||||||
|
type
|
||||||
|
TA<T> = record
|
||||||
|
end;
|
||||||
|
|
||||||
|
TB<T> = class
|
||||||
|
end;
|
||||||
|
|
||||||
|
TC<T> = class(TB<TA<T>>)
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ ensure that specialization works as well }
|
||||||
|
var
|
||||||
|
t: TC<LongInt>;
|
||||||
|
begin
|
||||||
|
end.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user