blob: 7be61c4b63198fa39b856f7a9fe9f9a1abed756c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- { dg-do compile }
procedure Array11 is
type Rec is null record;
type Ptr is access all Rec;
type Arr1 is array (1..8) of aliased Rec; -- { dg-warning "padded" }
type Arr2 is array (Long_Integer) of aliased Rec; -- { dg-warning "padded" }
A1 : Arr1;
A2 : Arr2; -- { dg-warning "Storage_Error" }
begin
null;
end;
|