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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [aligned_vla.adb] - Blame information for rev 816

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

Line No. Rev Author Line
1 304 jeremybenn
--  { dg-do run }
2
 
3
procedure Aligned_Vla is
4
 
5
   type Table is array (Integer range <>) of Integer;
6
   for Table'Alignment use Long_Float'Alignment;
7
 
8
   K : constant := 1;
9
   Konstants : Table (1 .. 4) := (others => K);
10
 
11
   procedure Check_Copy (Len : Integer) is
12
      My_Konstants : Table (1 .. Len) := Konstants (1 .. 1 + Len - 1);
13
   begin
14
      for I in My_Konstants'Range loop
15
         if My_Konstants (I) /= K then
16
            raise Program_Error;
17
         end if;
18
      end loop;
19
   end;
20
 
21
begin
22
   Check_Copy (Len => 4);
23
end;

powered by: WebSVN 2.1.0

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