18 lines
323 B
Ada
18 lines
323 B
Ada
|
-- { dg-do compile }
|
||
|
|
|
||
|
|
procedure Discr5 is
|
||
|
|
|
||
|
|
type Enum is (Ten, Twenty);
|
||
|
|
for Enum use (10, 20);
|
||
|
|
type Arr is array (Enum range <>) of Integer;
|
||
|
|
type Rec (Discr: Enum := Ten) is record
|
||
|
|
case Discr is
|
||
|
|
when others =>
|
||
|
|
A: Arr (Ten .. Discr);
|
||
|
|
end case;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
begin
|
||
|
|
null;
|
||
|
|
end;
|