]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.ada/array_of_symbolic_length/pck.ads
Update copyright year range in header of all files managed by GDB
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.ada / array_of_symbolic_length / pck.ads
CommitLineData
213516ef 1-- Copyright 2021-2023 Free Software Foundation, Inc.
386de171
TT
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
16with System;
17with Gl; use Gl;
18
19package 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
43end Pck;