Subversion Repositories openrisc

-- { dg-do compile }
 
with Discr12_Pkg; use Discr12_Pkg;
 
procedure Discr13 is
 
  function F1 return Integer is
  begin
    return Dummy (1);
  end F1;
 
  protected type Poe (D3 : Integer := F1) is
    entry E (D3 .. F1);    -- F1 evaluated
    function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean;
  end Poe;
 
  protected body Poe is
    entry E (for I in D3 .. F1) when True is
    begin
      null;
    end E;
    function Is_Ok (D3 : Integer; E_First : Integer; E_Last : Integer) return Boolean is
    begin
      return False;
    end Is_Ok;
  end Poe;
 
begin
  null;
end;