OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vmx/] [gcc-bug-e.c] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn
#include "harness.h"
2
 
3
typedef struct n_a
4
{
5
  signed char m1;
6
  short m2;
7
  int m3;
8
  double m4;
9
  vector float m5;
10
}
11
n_a;
12
 
13
static void
14
initn_a(signed char p1, short p2, int p3, double p4, vector float p5)
15
{
16
  n_a i;
17
  static struct
18
  {
19
    n_a b;
20
    char a;
21
  }
22
  x;
23
 
24
  i.m1 = p1;
25
  i.m2 = p2;
26
  i.m3 = p3;
27
  i.m4 = p4;
28
  i.m5 = p5;
29
 
30
  check(i.m1 == -17, "i.m1");
31
  check(i.m2 == 9165, "i.m2");
32
  check(i.m3 == -1857760764, "i.m3");
33
  check(i.m4 == 7.3e+18, "i.m4");
34
  check(vec_all_eq(i.m5, ((vector float){-5.02e+08,
35
                                          -4.34e+08,
36
                                          -1.04e+09,
37
                                           1.42e+09})), "i.m5");
38
}
39
 
40
static void test()
41
{
42
  initn_a(-17, 9165, -1857760764, 7.3e+18,
43
          ((vector float){-5.02e+08, -4.34e+08, -1.04e+09, 1.42e+09}));
44
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.