1-- { dg-do compile }
2
3package body Vect7 is
4
5  procedure Assign is
6    v1 : constant v4sf := (-1.0, -2.0, -3.0, -4.0);
7    v2 : v4sf := v1;
8    v3 : v4sf;
9  begin
10    v3 := vzero;
11    v3 := vconst;
12    v3 := v1;
13    v3 := v2;
14    v3 := (1.0, -2.0, 3.0, -4.0);
15    v3 := (1.0, -2.0, 3.0, F);
16
17    v2 := vzero;
18  end;
19
20end Vect7;
21