1  #include "harness.h"
       2  
       3  vector short
       4  vec_set (short m)
       5  {
       6    return (vector short){m, 0, 0, 0, 0, 0, 0, 0};
       7  }
       8  
       9  static void test()
      10  {
      11    check (vec_all_eq (vec_set (7),
      12  		     ((vector short){7, 0, 0, 0, 0, 0, 0, 0})),
      13  	 "vec_set");
      14  }