fpcsrc/tests/tbs/tb0257.pp


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

{ Old file: tbs0297.pp }
{ calling of interrupt procedure allowed but wrong code generated OK 0.99.13 (PM) }

program test_int;

procedure int;interrupt;
begin
end;

begin
  int;
end.