Subversion Repositories openrisc

-- { dg-excess-errors "cannot generate code" }

package Aggr4_Pkg is

   function F return Integer;

   type Rec1 is tagged record

      I : Integer;

   end record;

   Zero : constant Rec1 := (I => F);

   type Enum is (One, Two);

   type Rec2 (D : Enum := One) is record

      case D is

         when One => Value : Rec1;

         when others => null;

      end case;

   end record;

   type Rec3 is record

      Data : Rec2;

   end record;

end Aggr4_Pkg;