Get rid of the warning about ignoring the return value of fgets
[cloog.git] / test / openscop / loops.c
blobb95e65b635fa2effaee757acb2d4b9704310b726
1 /* Generated from ./openscop/loops.scop by CLooG 0.18.3 gmp bits in 0.04s. */
2 /* Useful macros. */
3 #define floord(n,d) (((n)<0) ? -((-(n)+(d)-1)/(d)) : (n)/(d))
4 #define ceild(n,d) (((n)<0) ? -((-(n))/(d)) : ((n)+(d)-1)/(d))
5 #define max(x,y) ((x) > (y) ? (x) : (y))
6 #define min(x,y) ((x) < (y) ? (x) : (y))
8 #ifdef TIME
9 #define IF_TIME(foo) foo;
10 #else
11 #define IF_TIME(foo)
12 #endif
14 /* Scattering iterators. */
15 int t2, t3, t4, t5, t6, t9;
16 /* Original iterators. */
17 int i, j, k, l, m, n;
18 int lbp, ubp;
19 int lbv, ubv;
21 if (N >= 1) {
22 lbp=0;
23 ubp=floord(N-1,32);
24 #pragma omp parallel for private(lbv,ubv,t3,t4,t5,t6,t7,t8,t9)
25 for (t2=lbp;t2<=ubp;t2++) {
26 for (t3=0;t3<=floord(N-1,32);t3++) {
27 for (t4=32*t2;t4<=min(N-1,32*t2+31);t4++) {
28 lbv=32*t3;
29 ubv=min(N-1,32*t3+31);
30 #pragma ivdep
31 #pragma vector always
32 for (t9=lbv;t9<=ubv;t9++) {
33 c[t4][t9] = 0.0;
38 lbp=0;
39 ubp=floord(N-1,32);
40 #pragma omp parallel for private(lbv,ubv,t3,t4,t5,t6,t7,t8,t9)
41 for (t2=lbp;t2<=ubp;t2++) {
42 for (t3=0;t3<=floord(N-1,32);t3++) {
43 for (t4=0;t4<=floord(N-1,32);t4++) {
44 for (t5=32*t2;t5<=min(N-1,32*t2+31);t5++) {
45 for (t6=32*t4;t6<=min(N-1,32*t4+31);t6++) {
46 lbv=32*t3;
47 ubv=min(N-1,32*t3+31);
48 #pragma ivdep
49 #pragma vector always
50 for (t9=lbv;t9<=ubv;t9++) {
51 c[t5][t9] = c[t5][t9] + a[t5][t6]*b[t6][t9];