Subversion Repositories openrisc

with Discr28_Pkg;
 
package Discr28 is
 
   type Enum is (One, Two);
 
   type Rec (D : Enum := One) is record
      case D is
         when One => null;
         when Two => S : String (1 .. Discr28_Pkg.N);
      end case;
   end record;
 
   Default_Rec : constant Rec := (D => One);
 
   procedure Proc1;
   procedure Proc2;
 
end Discr28;