mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 10:49:31 +02:00
48 lines
508 B
ObjectPascal
48 lines
508 B
ObjectPascal
{ %NORUN }
|
|
|
|
program thintdir;
|
|
|
|
{$mode delphi}
|
|
|
|
uses
|
|
uhintdir;
|
|
|
|
type
|
|
t1 = record
|
|
end platform;
|
|
|
|
t2 = class
|
|
end platform;
|
|
|
|
t3 = object
|
|
end platform;
|
|
|
|
t4 = record
|
|
w1 : word deprecated;
|
|
w2 : word deprecated
|
|
end;
|
|
|
|
t5 = record
|
|
w1 : word deprecated;
|
|
end;
|
|
|
|
const
|
|
c1 : word = 2;
|
|
c2 = 21312 platform;
|
|
|
|
var
|
|
v1 : word deprecated library;
|
|
l1,
|
|
l2 : word deprecated;
|
|
|
|
procedure p1;platform deprecated;library;
|
|
begin
|
|
end;
|
|
|
|
procedure p2;platform;deprecated;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|