Subversion Repositories openrisc

-- { 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;