Subversion Repositories openrisc

-- { dg-do compile }
 
with Prot2_Pkg1;
with Prot2_Pkg2;
 
package body Prot2 is
 
   type A is array (1 .. Prot2_Pkg1.Num) of Integer;
 
   type E is (One, Two);
 
   type Rec (D : E := One) is record
      case D is
         when One => L : A;
         when Two => null;
      end case;
   end record;
 
   package My_Pkg2 is new Prot2_Pkg2 (Rec);
 
   procedure Dummy is begin null; end;
 
end Prot2;