Subversion Repositories openrisc

-- { dg-do run }
-- { dg-options "-gnatws" }
 
procedure Derived_Type2 is
 
   package Pkg is
 
      type Parent (B : Boolean := True) is record
         case B is
            when True => S : String (1 .. 5);
            when False => F : Float;
         end case;
      end record;
 
      function Create (X : Parent) return Parent;
 
   end Pkg;
 
   package body Pkg is
 
      function Create (X : Parent) return Parent is
      begin
         return (True, "12345");
      end;
 
   end Pkg;
 
   use Pkg;
 
   type T is new Parent (True);
 
   X : T;
 
begin
 
   if Create (X).B /= True then
      raise Program_Error;
   end if;
 
end;