blob: 69259687df93f37f103b74506418f27821dd8fa2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %fail}
{ %norun}
// test checks that enumeration searches symbols only in the own symbol list
// if they are prefixed by the enumeration name
program tenum5;
type
{$SCOPEDENUMS ON}
TEnum1 = (first, second, third);
{$SCOPEDENUMS OFF}
TEnum2 = (zero, first, second, third);
var
En1: TEnum1;
begin
En1 := TEnum1.zero;
end.
|
