test/reservoir/mg-interp.good.c

   1 /* Generated from ../../../git/cloog/test/./reservoir/mg-interp.cloog by CLooG 0.14.0-72-gefe2fc2 gmp bits in 1.01s. */
   2 extern void hash(int);
   3
   4 /* Useful macros. */
   5 #define floord(n,d) (((n)<0) ? -((-(n)+(d)-1)/(d)) : (n)/(d))
   6 #define ceild(n,d)  (((n)<0) ? -((-(n))/(d)) : ((n)+(d)-1)/(d))
   7 #define max(x,y)    ((x) > (y) ? (x) : (y))
   8 #define min(x,y)    ((x) < (y) ? (x) : (y))
   9
  10 #define S1(i,j,k) { hash(1); hash(i); hash(j); hash(k); }
  11 #define S2(i,j,k) { hash(2); hash(i); hash(j); hash(k); }
  12 #define S3(i,j,k) { hash(3); hash(i); hash(j); hash(k); }
  13 #define S4(i,j,k) { hash(4); hash(i); hash(j); hash(k); }
  14 #define S5(i,j,k) { hash(5); hash(i); hash(j); hash(k); }
  15 #define S6(i,j,k) { hash(6); hash(i); hash(j); hash(k); }
  16 #define S7(i,j,k) { hash(7); hash(i); hash(j); hash(k); }
  17 #define S8(i,j,k) { hash(8); hash(i); hash(j); hash(k); }
  18 #define S9(i,j,k) { hash(9); hash(i); hash(j); hash(k); }
  19 #define S10(i,j,k) { hash(10); hash(i); hash(j); hash(k); }
  20 #define S11(i,j,k) { hash(11); hash(i); hash(j); hash(k); }
  21 #define S12(i,j,k) { hash(12); hash(i); hash(j); hash(k); }
  22 #define S13(i,j,k) { hash(13); hash(i); hash(j); hash(k); }
  23 #define S14(i,j,k) { hash(14); hash(i); hash(j); hash(k); }
  24 #define S15(i,j,k) { hash(15); hash(i); hash(j); hash(k); }
  25
  26 void test(int M, int N, int O, int P, int Q, int R, int S, int T, int U)
  27 {
  28   /* Scattering iterators. */
  29   int c2, c4, c6;
  30   /* Original iterators. */
  31   int i, j, k;
  32   if ((M >= 2) && (N >= 4)) {
  33     for (c2=1;c2<=O-1;c2++) {
  34       for (c6=1;c6<=M;c6++) {
  35         S1(c2,1,c6) ;
  36       }
  37       for (c6=1;c6<=M-1;c6++) {
  38         S6(c2,1,c6) ;
  39         S7(c2,1,c6) ;
  40       }
  41       for (c6=1;c6<=M;c6++) {
  42         S3(c2,1,c6) ;
  43       }
  44       for (c6=1;c6<=M-1;c6++) {
  45         S1(c2,2,c6) ;
  46       }
  47       S1(c2,2,M) ;
  48       for (c6=1;c6<=M-1;c6++) {
  49         S6(c2,2,c6) ;
  50         S7(c2,2,c6) ;
  51       }
  52       for (c6=1;c6<=M-1;c6++) {
  53         S11(c2,1,c6) ;
  54       }
  55       for (c4=3;c4<=2*N-5;c4++) {
  56         for (c6=1;c6<=M-1;c6++) {
  57           if ((c4+1)%2 == 0) {
  58             j = (c4-1)/2 ;
  59             S10(c2,(c4-1)/2,c6) ;
  60           }
  61         }
  62         for (c6=1;c6<=M;c6++) {
  63           if ((c4+1)%2 == 0) {
  64             j = (c4+1)/2 ;
  65             S3(c2,(c4+1)/2,c6) ;
  66           }
  67         }
  68         for (c6=1;c6<=M-1;c6++) {
  69           if (c4%2 == 0) {
  70             j = (c4+2)/2 ;
  71             S6(c2,(c4+2)/2,c6) ;
  72             S7(c2,(c4+2)/2,c6) ;
  73           }
  74           if ((c4+1)%2 == 0) {
  75             j = (c4+3)/2 ;
  76             S1(c2,(c4+3)/2,c6) ;
  77           }
  78         }
  79         if ((c4+1)%2 == 0) {
  80           j = (c4+3)/2 ;
  81           S1(c2,(c4+3)/2,M) ;
  82         }
  83         for (c6=1;c6<=M-1;c6++) {
  84           if (c4%2 == 0) {
  85             S11(c2,c4/2,c6) ;
  86           }
  87         }
  88       }
  89       c4 = 2*N-4 ;
  90       for (c6=1;c6<=M-1;c6++) {
  91         j = N-1 ;
  92         S6(c2,N-1,c6) ;
  93         S7(c2,N-1,c6) ;
  94       }
  95       for (c6=1;c6<=M-1;c6++) {
  96         j = N-2 ;
  97         S11(c2,N-2,c6) ;
  98       }
  99       c4 = 2*N-3 ;
 100       for (c6=1;c6<=M-1;c6++) {
 101         j = N-2 ;
 102         S10(c2,N-2,c6) ;
 103       }
 104       for (c6=1;c6<=M;c6++) {
 105         j = N-1 ;
 106         S3(c2,N-1,c6) ;
 107       }
 108       c4 = 2*N-2 ;
 109       for (c6=1;c6<=M-1;c6++) {
 110         j = N-1 ;
 111         S11(c2,N-1,c6) ;
 112       }
 113       c4 = 2*N-1 ;
 114       for (c6=1;c6<=M-1;c6++) {
 115         j = N-1 ;
 116         S10(c2,N-1,c6) ;
 117       }
 118     }
 119   }
 120   if ((M >= 2) && (N == 3)) {
 121     for (c2=1;c2<=O-1;c2++) {
 122       for (c6=1;c6<=M;c6++) {
 123         S1(c2,1,c6) ;
 124       }
 125       for (c6=1;c6<=M-1;c6++) {
 126         S6(c2,1,c6) ;
 127         S7(c2,1,c6) ;
 128       }
 129       for (c6=1;c6<=M;c6++) {
 130         S3(c2,1,c6) ;
 131       }
 132       for (c6=1;c6<=M-1;c6++) {
 133         S1(c2,2,c6) ;
 134       }
 135       S1(c2,2,M) ;
 136       for (c6=1;c6<=M-1;c6++) {
 137         S6(c2,2,c6) ;
 138         S7(c2,2,c6) ;
 139       }
 140       for (c6=1;c6<=M-1;c6++) {
 141         S11(c2,1,c6) ;
 142       }
 143       for (c6=1;c6<=M-1;c6++) {
 144         S10(c2,1,c6) ;
 145       }
 146       for (c6=1;c6<=M;c6++) {
 147         S3(c2,2,c6) ;
 148       }
 149       for (c6=1;c6<=M-1;c6++) {
 150         S11(c2,2,c6) ;
 151       }
 152       for (c6=1;c6<=M-1;c6++) {
 153         S10(c2,2,c6) ;
 154       }
 155     }
 156   }
 157   if ((M >= 2) && (N == 2)) {
 158     for (c2=1;c2<=O-1;c2++) {
 159       for (c6=1;c6<=M;c6++) {
 160         S1(c2,1,c6) ;
 161       }
 162       for (c6=1;c6<=M-1;c6++) {
 163         S6(c2,1,c6) ;
 164         S7(c2,1,c6) ;
 165       }
 166       for (c6=1;c6<=M;c6++) {
 167         S3(c2,1,c6) ;
 168       }
 169       for (c6=1;c6<=M-1;c6++) {
 170         S11(c2,1,c6) ;
 171       }
 172       for (c6=1;c6<=M-1;c6++) {
 173         S10(c2,1,c6) ;
 174       }
 175     }
 176   }
 177   if ((M == 1) && (N >= 3)) {
 178     for (c2=1;c2<=O-1;c2++) {
 179       for (c4=-1;c4<=0;c4++) {
 180         if ((c4+1)%2 == 0) {
 181           j = (c4+3)/2 ;
 182           S1(c2,(c4+3)/2,1) ;
 183         }
 184       }
 185       for (c4=1;c4<=2*N-5;c4++) {
 186         if ((c4+1)%2 == 0) {
 187           j = (c4+1)/2 ;
 188           S3(c2,(c4+1)/2,1) ;
 189         }
 190         if ((c4+1)%2 == 0) {
 191           j = (c4+3)/2 ;
 192           S1(c2,(c4+3)/2,1) ;
 193         }
 194       }
 195       for (c4=2*N-4;c4<=2*N-3;c4++) {
 196         if ((c4+1)%2 == 0) {
 197           j = (c4+1)/2 ;
 198           S3(c2,(c4+1)/2,1) ;
 199         }
 200       }
 201     }
 202   }
 203   if ((M == 1) && (N == 2)) {
 204     for (c2=1;c2<=O-1;c2++) {
 205       S1(c2,1,1) ;
 206       S3(c2,1,1) ;
 207     }
 208   }
 209   if ((M >= 2) && (N >= 3)) {
 210     for (c2=1;c2<=O-1;c2++) {
 211       for (c6=1;c6<=M;c6++) {
 212         S2(c2,1,c6) ;
 213       }
 214       for (c6=1;c6<=M-1;c6++) {
 215         S8(c2,1,c6) ;
 216       }
 217       for (c4=3;c4<=2*N-2;c4++) {
 218         for (c6=1;c6<=M;c6++) {
 219           if (c4%2 == 0) {
 220             S2(c2,c4/2,c6) ;
 221           }
 222         }
 223         for (c6=1;c6<=M-1;c6++) {
 224           if (c4%2 == 0) {
 225             S8(c2,c4/2,c6) ;
 226           }
 227         }
 228         for (c6=1;c6<=M-1;c6++) {
 229           if ((c4+1)%2 == 0) {
 230             j = (c4-1)/2 ;
 231             S9(c2,(c4-1)/2,c6) ;
 232           }
 233         }
 234       }
 235       c4 = 2*N-1 ;
 236       for (c6=1;c6<=M-1;c6++) {
 237         j = N-1 ;
 238         S9(c2,N-1,c6) ;
 239       }
 240     }
 241   }
 242   if ((M >= 2) && (N == 2)) {
 243     for (c2=1;c2<=O-1;c2++) {
 244       for (c6=1;c6<=M;c6++) {
 245         S2(c2,1,c6) ;
 246       }
 247       for (c6=1;c6<=M-1;c6++) {
 248         S8(c2,1,c6) ;
 249       }
 250       for (c6=1;c6<=M-1;c6++) {
 251         S9(c2,1,c6) ;
 252       }
 253     }
 254   }
 255   if ((M == 1) && (N >= 2)) {
 256     for (c2=1;c2<=O-1;c2++) {
 257       for (c4=2;c4<=2*N-2;c4++) {
 258         if (c4%2 == 0) {
 259           S2(c2,c4/2,1) ;
 260         }
 261       }
 262     }
 263   }
 264   if ((M >= 2) && (N >= 2)) {
 265     for (c2=1;c2<=O-1;c2++) {
 266       for (c4=1;c4<=N-1;c4++) {
 267         for (c6=1;c6<=M-1;c6++) {
 268           S4(c2,c4,c6) ;
 269         }
 270       }
 271     }
 272   }
 273   if ((M >= 2) && (N >= 2)) {
 274     for (c2=1;c2<=O-1;c2++) {
 275       for (c4=1;c4<=N-1;c4++) {
 276         for (c6=1;c6<=M-1;c6++) {
 277           S5(c2,c4,c6) ;
 278         }
 279       }
 280     }
 281   }
 282   if ((M >= P+1) && (N >= Q+1)) {
 283     for (c2=R;c2<=O-1;c2++) {
 284       for (c4=Q;c4<=N-1;c4++) {
 285         for (c6=P;c6<=M-1;c6++) {
 286           S12(c2,c4,c6) ;
 287         }
 288       }
 289     }
 290   }
 291   if ((M >= 2) && (N >= Q+1)) {
 292     for (c2=R;c2<=O-1;c2++) {
 293       for (c4=Q;c4<=N-1;c4++) {
 294         for (c6=1;c6<=M-1;c6++) {
 295           S13(c2,c4,c6) ;
 296         }
 297       }
 298     }
 299   }
 300   if ((M >= P+1) && (N >= 2)) {
 301     for (c2=R;c2<=O-1;c2++) {
 302       for (c4=1;c4<=N-1;c4++) {
 303         for (c6=P;c6<=M-1;c6++) {
 304           S14(c2,c4,c6) ;
 305         }
 306       }
 307     }
 308   }
 309   if ((M >= 2) && (N >= 2)) {
 310     for (c2=R;c2<=O-1;c2++) {
 311       for (c4=1;c4<=N-1;c4++) {
 312         for (c6=1;c6<=M-1;c6++) {
 313           S15(c2,c4,c6) ;
 314         }
 315       }
 316     }
 317   }
 318 }