fpcsrc/tests/test/texception2.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

{ %skiptarget=go32v2 }

{$mode objfpc}
uses
   sysutils;

procedure d;

  var
     d1 : double;

  begin
     d1:=0;
     d1:=1/d1;
  end;

var
   i : longint;

begin
   for i:=1 to 20 do
     try
       d;
     except
       on exception do
        ;
     end;
   writeln('ok');
end.