blob: 8993ffa1e5d85095cbbd228131ab4fc1544069b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
with Array23_Pkg3;
package Array23_Pkg2 is
C1 : Natural := Array23_Pkg3.C0;
type Enum is (Zero, One, Two);
subtype Index is Enum range One .. Enum'val(C1);
end Array23_Pkg2;
|