blob: 8814ee2dd8d99c78cc1bedcb749166a6f218385e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-- { dg-do compile }
with Array17_Pkg; use Array17_Pkg;
procedure Array17 is
X : aliased Varray := (1 .. 8 => 1.0);
Y : Varray (1 .. 8) := (others => -1.0);
R : Varray (1 .. 8);
begin
R (1 .. 4) := Y (1 .. 4) + X (1 .. 4);
end;
|