1 -- Copyright 2021-2024 Free Software Foundation, Inc. 2 -- 3 -- This program is free software; you can redistribute it and/or modify 4 -- it under the terms of the GNU General Public License as published by 5 -- the Free Software Foundation; either version 3 of the License, or 6 -- (at your option) any later version. 7 -- 8 -- This program is distributed in the hope that it will be useful, 9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of 10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11 -- GNU General Public License for more details. 12 -- 13 -- You should have received a copy of the GNU General Public License 14 -- along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16 with System; 17 with Gl; use Gl; 18 19 package Pck is 20 21 subtype My_Length is Natural range 1 .. Length; 22 type My_Array is array (My_Length) of Natural; 23 24 N_A : Integer := 2; 25 N_T : Integer := 2; 26 27 type Arr is array (Positive range <>) of Integer; 28 29 type Inner is 30 record 31 A1 : Arr (1 .. N_A); 32 A2 : Arr (1 .. N_A); 33 end record; 34 type Inner_Arr is array (Positive range <>) of Inner; 35 36 type Outer is 37 record 38 A : Inner_Arr (1 .. N_T); 39 end record; 40 41 procedure Do_Nothing (A : System.Address); 42 43 end Pck; 44
Indexes created Mon Apr 06 00:22:49 UTC 2026