Subversion Repositories openrisc

-- { dg-do compile }

package body Array19 is

   function N return Integer is

   begin

      return 1;

   end;

   type Array_Type is array (1 .. N) of Float;

   type Enum is (One, Two);

   type Rec (D : Enum := Enum'First) is record

      case D is

         when One => null;

         when Two => A : Array_Type;

      end case;

   end record;

   procedure Proc is

      R : Rec;

      function F return Array_Type is

      begin

         return (others => 0.0);

      end F;

   begin

      R.A := F;

   end;

end Array19;