1  /* { dg-do run } */
       2  /* { dg-skip-if "Too much RAM needed" { "avr-*-*" } } */
       3  
       4  int result[64][16];
       5  
       6  int main()
       7  {
       8    double dbuf[1000] = {0.0};
       9    int ibuf[900];
      10    int i, j;
      11  
      12    double d1 = 0.0;
      13    double d2 = 0.0;
      14    for (i = 0; i < 900; ++i) {
      15        ibuf[i] = (int)(d2 - d1);
      16        d1 += dbuf[i];
      17        d2 += dbuf[i + 64];
      18    }
      19  
      20    for (i = 0; i < 64; ++i) {
      21        for (j = 0; j < 8; ++j) {
      22  	  result[i][     j] = ibuf[64 - i + 64 * j];
      23  	  result[i][15 - j] = ibuf[     i + 64 * j];
      24        }
      25    }
      26  
      27    return 0;
      28  }