fpcsrc/tests/tbs/tb0248.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ Old file: tbs0289.pp }
{ no hint/note for unused types : implemented with -vnh OK 0.99.13 (PM) }


procedure p;
type
  k1 = word;
begin
end;

type
  k2 = word;
begin
end.