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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [slp-2.c] - Blame information for rev 705

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

Line No. Rev Author Line
1 689 jeremybenn
/* { dg-require-effective-target vect_int } */
2
 
3
#include <stdarg.h>
4
#include "tree-vect.h"
5
 
6
#define N 128 
7
 
8
int
9
main1 (unsigned short a0, unsigned short a1, unsigned short a2,
10
       unsigned short a3, unsigned short a4, unsigned short a5,
11
       unsigned short a6, unsigned short a7, unsigned short a8,
12
       unsigned short a9, unsigned short a10, unsigned short a11,
13
       unsigned short a12, unsigned short a13, unsigned short a14,
14
       unsigned short a15)
15
{
16
  int i;
17
  unsigned short out[N*16];
18
 
19
  for (i = 0; i < N; i++)
20
    {
21
      out[i*4] = a8;
22
      out[i*4 + 1] = a1;
23
      out[i*4 + 2] = a2;
24
      out[i*4 + 3] = a3;
25
    }
26
 
27
  /* check results:  */
28
  for (i = 0; i < N; i++)
29
    {
30
      if (out[i*4] != a8
31
         || out[i*4 + 1] != a1
32
         || out[i*4 + 2] != a2
33
         || out[i*4 + 3] != a3)
34
        abort ();
35
    }
36
 
37
  for (i = 0; i < N; i++)
38
    {
39
      out[i*16] = a8;
40
      out[i*16 + 1] = a7;
41
      out[i*16 + 2] = a1;
42
      out[i*16 + 3] = a2;
43
      out[i*16 + 4] = a8;
44
      out[i*16 + 5] = a5;
45
      out[i*16 + 6] = a5;
46
      out[i*16 + 7] = a4;
47
      out[i*16 + 8] = a12;
48
      out[i*16 + 9] = a13;
49
      out[i*16 + 10] = a14;
50
      out[i*16 + 11] = a15;
51
      out[i*16 + 12] = a6;
52
      out[i*16 + 13] = a9;
53
      out[i*16 + 14] = a0;
54
      out[i*16 + 15] = a7;
55
    }
56
 
57
  /* check results:  */
58
  for (i = 0; i < N; i++)
59
    {
60
      if (out[i*16] != a8
61
          || out[i*16 + 1] != a7
62
          || out[i*16 + 2] != a1
63
          || out[i*16 + 3] != a2
64
          || out[i*16 + 4] != a8
65
          || out[i*16 + 5] != a5
66
          || out[i*16 + 6] != a5
67
          || out[i*16 + 7] != a4
68
          || out[i*16 + 8] != a12
69
          || out[i*16 + 9] != a13
70
          || out[i*16 + 10] != a14
71
          || out[i*16 + 11] != a15
72
          || out[i*16 + 12] != a6
73
          || out[i*16 + 13] != a9
74
          || out[i*16 + 14] != a0
75
          || out[i*16 + 15] != a7)
76
        abort ();
77
    }
78
 
79
  /* SLP with unrolling by 8.  */
80
  for (i = 0; i < N; i++)
81
    {
82
      out[i*3] = a8;
83
      out[i*3 + 1] = a1;
84
      out[i*3 + 2] = a2;
85
    }
86
 
87
  /* check results:  */
88
  for (i = 0; i < N; i++)
89
    {
90
      if (out[i*3] != a8
91
         || out[i*3 + 1] != a1
92
         || out[i*3 + 2] != a2)
93
        abort ();
94
    }
95
 
96
  /* SLP with unrolling by 8.  */
97
  for (i = 0; i < N; i++)
98
    {
99
      out[i*11] = a8;
100
      out[i*11 + 1] = a7;
101
      out[i*11 + 2] = a1;
102
      out[i*11 + 3] = a2;
103
      out[i*11 + 4] = a8;
104
      out[i*11 + 5] = a5;
105
      out[i*11 + 6] = a5;
106
      out[i*11 + 7] = a4;
107
      out[i*11 + 8] = a12;
108
      out[i*11 + 9] = a13;
109
      out[i*11 + 10] = a14;
110
    }
111
 
112
  /* check results:  */
113
  for (i = 0; i < N; i++)
114
    {
115
      if (out[i*11] != a8
116
          || out[i*11 + 1] != a7
117
          || out[i*11 + 2] != a1
118
          || out[i*11 + 3] != a2
119
          || out[i*11 + 4] != a8
120
          || out[i*11 + 5] != a5
121
          || out[i*11 + 6] != a5
122
          || out[i*11 + 7] != a4
123
          || out[i*11 + 8] != a12
124
          || out[i*11 + 9] != a13
125
          || out[i*11 + 10] != a14)
126
        abort ();
127
    }
128
 
129
 
130
  return 0;
131
}
132
 
133
int main (void)
134
{
135
  check_vect ();
136
 
137
  main1 (15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0);
138
 
139
  return 0;
140
}
141
 
142
/* { dg-final { scan-tree-dump-times "vectorized 4 loops" 1 "vect"  } } */
143
/* { dg-final { scan-tree-dump-times "vectorizing stmts using SLP" 4 "vect"  } } */
144
/* { dg-final { cleanup-tree-dump "vect" } } */
145
 

powered by: WebSVN 2.1.0

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