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/] [discr7.adb] - Rev 304

Compare with Previous | Blame | View Log

-- { dg-do compile }
 
procedure Discr7 is
 
  subtype Index is Natural range 0..5;
  type BitString is array(Index range <>) of Boolean;
  pragma Pack(BitString);
 
  function Id (I : Integer) return Integer is
  begin
    return I;
  end;
 
  type E(D : Index) is record
    C : BitString(1..D);
  end record;
 
  subtype E0 is E(Id(0));
 
  function F return E0 is
  begin
    return E'(D=>0, C=>(1..0=>FALSE));
  end;
 
begin
  null;
end;
 

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.