1--  { dg-do compile }
2
3with Ada.Text_IO; with Ada.Integer_Text_IO;
4
5procedure Storage_Size1 is
6
7  package O renames Ada.Text_IO;
8  package T renames Ada.Integer_Text_IO;
9
10  type Struct is record first, second: Integer; end record;
11
12  type SP is access Struct
13      with Storage_Size => 64 * Struct'Max_Size_In_Storage_Elements;
14
15begin
16
17  T.Put(SP'Storage_Size); O.New_Line(1);
18
19end Storage_Size1;
20