Commit | Line | Data |
---|---|---|
88b9d363 | 1 | -- Copyright 2012-2022 Free Software Foundation, Inc. |
99b1c762 JB |
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 Pck; use Pck; | |
17 | ||
18 | procedure Foo is | |
19 | Full : Full_Table := (False, True, False, True, False); | |
a7400e44 TT |
20 | Primary : Primary_Table := (False, True, False); |
21 | Cold : Cold_Table := (False, True); | |
22 | Small : Small_Table := New_Small_Table (Low => Red, High => Green); | |
23 | Multi : Multi_Table := New_Multi_Table (Red, Green, Low, Medium); | |
24 | Multi_Multi : Multi_Multi_Table := New_Multi_Multi_Table (1, 2, 1, 7, 1, 10); | |
10f6a3ad TT |
25 | Multi_Access : Multi_Dimension_Access |
26 | := new Multi_Dimension'(True => (1, 1, 2, 3, 5), | |
27 | False => (8, 13, 21, 34, 55)); | |
28 | ||
2869ac4b TT |
29 | Confused_Array : Confused_Array_Type := (Red => (0, 1, 2), |
30 | Green => (5, 6, 7), | |
31 | others => (others => 72)); | |
32 | ||
99b1c762 JB |
33 | begin |
34 | Do_Nothing (Full'Address); -- STOP | |
a7400e44 TT |
35 | Do_Nothing (Primary'Address); |
36 | Do_Nothing (Cold'Address); | |
37 | Do_Nothing (Small'Address); | |
38 | Do_Nothing (Multi'Address); | |
39 | Do_Nothing (Multi_Multi'Address); | |
10f6a3ad | 40 | Do_Nothing (Multi_Access'Address); |
99b1c762 | 41 | end Foo; |