1 -- Copyright 2020-2024 Free Software Foundation, Inc.
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.
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.
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/>.
22 ST1 : constant Second_Type := (I => -4, One => 1, X => 2);
23 ST2 : constant Second_Type := (I => 99, One => 1, Y => 77);
25 NAV1 : constant Nested_And_Variable := (One => 0, Two => 93,
26 Str => (others => 'z'));
27 NAV2 : constant Nested_And_Variable := (One => 3, OneValue => 33,
28 Str => (others => 'z'),
29 Str2 => (others => 'q'),
31 NAV3 : constant Nested_And_Variable := (One => 3, OneValue => 33,
32 Str => (others => 'z'),
33 Str2 => (others => 'q'),
34 Two => 7, TwoValue => 88);
38 Q := (C => Character'First, X_First => 27);