blob: 7911cc812c64f96c33fe23f5d4bfebe92f169795 [file] [log] [blame]
-- { dg-do compile }
package body Vect7 is
procedure Assign is
v1 : constant v4sf := (-1.0, -2.0, -3.0, -4.0);
v2 : v4sf := v1;
v3 : v4sf;
begin
v3 := vzero;
v3 := vconst;
v3 := v1;
v3 := v2;
v3 := (1.0, -2.0, 3.0, -4.0);
v3 := (1.0, -2.0, 3.0, F);
v2 := vzero;
end;
end Vect7;