/* { dg-do run } */
/* { dg-require-effective-target vsx_hw } */
/* { dg-options "-O2 -mvsx" } */

#include <stdlib.h>
#include <stddef.h>
#include <altivec.h>

#define ELEMENTS -1.0f, 2.0f, 0.0f, -1234.0f
#define SPLAT 2345.0f

vector float sv = (vector float) { ELEMENTS };
vector float splat = (vector float) { SPLAT, SPLAT, SPLAT, SPLAT };
vector float sv_global, sp_global;
static vector float sv_static, sp_static;
static const float expected[] = { ELEMENTS };

extern void check (vector float a)
  __attribute__((__noinline__));

extern void check_splat (vector float a)
  __attribute__((__noinline__));

extern vector float pack_reg (float a, float b, float c, float d)
  __attribute__((__noinline__));

extern vector float pack_from_ptr (float *p_a, float *p_b,
				   float *p_c, float *p_d)
  __attribute__((__noinline__));

extern vector float pack_const (void)
  __attribute__((__noinline__));

extern void pack_ptr (vector float *p, float a, float b, float c, float d)
  __attribute__((__noinline__));

extern void pack_static (float a, float b, float c, float d)
  __attribute__((__noinline__));

extern void pack_global (float a, float b, float c, float d)
  __attribute__((__noinline__));

extern vector float splat_reg (float a)
  __attribute__((__noinline__));

extern vector float splat_from_ptr (float *p)
  __attribute__((__noinline__));

extern vector float splat_const (void)
  __attribute__((__noinline__));

extern void splat_ptr (vector float *p, float a)
  __attribute__((__noinline__));

extern void splat_static (float a)
  __attribute__((__noinline__));

extern void splat_global (float a)
  __attribute__((__noinline__));

void
check (vector float a)
{
  size_t i;

  for (i = 0; i < 4; i++)
    if (vec_extract (a, i) != expected[i])
      abort ();
}

void
check_splat (vector float a)
{
  size_t i;

  for (i = 0; i < 4; i++)
    if (vec_extract (a, i) != SPLAT)
      abort ();
}

vector float
pack_reg (float a, float b, float c, float d)
{
  return (vector float) { a, b, c, d };
}

vector float
pack_from_ptr (float *p_a, float *p_b, float *p_c, float *p_d)
{
  return (vector float) { *p_a, *p_b, *p_c, *p_d };
}

vector float
pack_const (void)
{
  return (vector float) { ELEMENTS };
}

void
pack_ptr (vector float *p, float a, float b, float c, float d)
{
  *p = (vector float) { a, b, c, d };
}

void
pack_static (float a, float b, float c, float d)
{
  sv_static = (vector float) { a, b, c, d };
}

void
pack_global (float a, float b, float c, float d)
{
  sv_global = (vector float) { a, b, c, d };
}

vector float
splat_reg (float a)
{
  return (vector float) { a, a, a, a };
}

vector float
splat_from_ptr (float *p)
{
  return (vector float) { *p, *p, *p, *p };
}

vector float
splat_const (void)
{
  return (vector float) { SPLAT, SPLAT, SPLAT, SPLAT };
}

void
splat_ptr (vector float *p, float a)
{
  *p = (vector float) { a, a, a, a };
}

void
splat_static (float a)
{
  sp_static = (vector float) { a, a, a, a };
}

void
splat_global (float a)
{
  sp_global = (vector float) { a, a, a, a };
}

int main (void)
{
  vector float sv2, sv3;
  float mem = SPLAT;
  float mem2[4] = { ELEMENTS };

  check (sv);

  check (pack_reg (ELEMENTS));

  check (pack_from_ptr (&mem2[0], &mem2[1], &mem2[2], &mem2[3]));

  check (pack_const ());

  pack_ptr (&sv2, ELEMENTS);
  check (sv2);

  pack_static (ELEMENTS);
  check (sv_static);

  pack_global (ELEMENTS);
  check (sv_global);

  check_splat (splat);

  check_splat (splat_reg (SPLAT));

  check_splat (splat_from_ptr (&mem));

  check_splat (splat_const ());

  splat_ptr (&sv2, SPLAT);
  check_splat (sv2);

  splat_static (SPLAT);
  check_splat (sp_static);

  splat_global (SPLAT);
  check_splat (sp_global);

  return 0;
}