22 lines
385 B
Ada
22 lines
385 B
Ada
-- { dg-do compile }
|
|
|
|
with System; use System;
|
|
|
|
procedure Array22 is
|
|
|
|
type Integer_Address is mod Memory_Size;
|
|
|
|
type Memory is array (Integer_Address range <>) of Character;
|
|
|
|
type Chunk (First, Last : Integer_Address) is record
|
|
Mem : Memory (First .. Last);
|
|
end record;
|
|
|
|
C : Chunk (1, 8);
|
|
for C'Alignment use 8;
|
|
pragma Unreferenced (C);
|
|
|
|
begin
|
|
null;
|
|
end;
|