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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [range_check.adb] - Rev 700

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

-- { dg-do run }
 
procedure range_check is
   function ident (x : integer) return integer is
   begin   
      return x;
   end ident;
 
   guard1 : Integer;
 
   r : array (1 .. ident (10)) of integer;
   pragma Suppress (Index_Check, r);
 
   guard2 : Integer;
 
begin
   guard1 := 0;
   guard2 := 0;
   r (11) := 3;
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.