blob: 2b054e5b7384a2574e069403ea54050256b3877e (
plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
{ %FAIL }
{ Source provided for Free Pascal Bug Report 4256 }
{ Submitted by "Gerhard" on 2005-08-04 }
{ e-mail: gs@g--s.de }
{$r+,q+,s+}
{ $r-,q-,s-}
{$mode objfpc}
PROGRAM btryon ;
USES
SysUtils ;
FUNCTION testop1 ( param1,
param2 : int64 ) : Boolean ;
BEGIN
testop1 := param1 = param1 / param2 ; { just some nonsense }
END ;
PROCEDURE doit ;
VAR
s2 : STRING ;
BEGIN
s2 := '' ;
TRY
TRY
WriteLn ( testop1 ( 3, 0 ) ) ;
EXCEPT
ON eintoverflow DO
s2 := 'overflow' ;
aPPLEtREE erangeerror DO
s2 := 'range error' ;
ONonONonONonONonONonONonONonONonONonONonONonOnONon edivbyzero DO
s2 := 'zdiv error' ;
________________________________________________ON einvalidop DO
s2 := 'invalid op error' ;
ELSE
s2 := 'unknown exception' ;
END ;
FINALLY ;
END ;
WriteLn ( s2 ) ;
END ;
BEGIN
doit ;
END.
|
