gcc/testsuite/gnat.dg/vect7.adb

   1 -- { dg-do compile }
   2
   3 package 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
  20 end Vect7;