Subversion Repositories openrisc

-- { dg-do compile }
-- { dg-options "-O" }
 
with Return2_Pkg; use Return2_Pkg;
 
package body Return2 is
 
  function Value_Internal (Image : String) return Result_Internal_T is
  begin
    return (Member => False);
  end;
 
  type Result_T is array (1 .. 2) of Result_Internal_T;
 
  function Value (Img : String) return T is
    My_F : constant String := F;
    Result : Result_T;
    Value : T;
  begin
    for I in Result'Range loop
      if G (My_F, I) /= "" then
        Result (I) := Value_Internal (G (My_F, I));
        if Result (I).Member then
          Value (Result (I).Data) := True;
        else
          raise Program_Error;
        end if;
      end if;
    end loop;
    return Value;
  end;
 
end Return2;