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/] [array11.adb] - Blame information for rev 304

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 304 jeremybenn
-- { dg-do compile }
2
 
3
procedure Array11 is
4
 
5
  type Rec is null record;
6
  type Ptr is access all Rec;
7
 
8
  type Arr1 is array (1..8) of aliased Rec; -- { dg-warning "padded" }
9
  type Arr2 is array (Long_Integer) of aliased Rec; -- { dg-warning "padded" }
10
 
11
  A1 : Arr1;
12
  A2 : Arr2; -- { dg-warning "Storage_Error will be raised" }
13
 
14
begin
15
  null;
16
end;

powered by: WebSVN 2.1.0

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