Vector 5 arrays about openglada HOT 3 CLOSED

type Index_5 is (X, Y, Z, U, V);
type Vector5 is array (Index_5) of aliased Single;
pragma Convention (C, Vector5);
type Vector5_Array is array (Size range <>) of aliased Vector5;
pragma Convention (C, Vector5_Array);
package Vector5_Pointers is new Interfaces.C.Pointers
  (Index_5, Vector5, Vector5_Array, Vector5'(others => <>));
procedure Load_Vector5 is new GL.Objects.Buffers.Load_To_Buffer
 (Vector5_Pointers);