blob: 127a6e7b77ff9512099aee6ed4d63facf25ce42d (
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
|
{ Source provided for Free Pascal Bug Report 1485 }
{ Submitted by "Petr Titera" on 2001-05-01 }
{ e-mail: owl@volny.cz }
{$mode objfpc}
Type
TLang = (French,Czech,English);
Function Test : TLang;
begin
Test:=French;
try
Exit(Czech);
except
end;
end;
Begin
Writeln(Integer(Test));
if Test<>Czech then
RunError(1);
Writeln(Integer(Czech));
End.
|
