blob: 8993ffa1e5d85095cbbd228131ab4fc1544069b1 [file] [log] [blame]
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;