OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [discr13.adb] - Rev 328

Go to most recent revision | Compare with Previous | Blame | View Log

-- { 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;
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.