Subversion Repositories openrisc

/* { dg-do run } */

/* { dg-skip-if "Too much RAM needed" { "avr-*-*" } { "*" } { "" } } */

int result[64][16];

int main()

{

  double dbuf[1000] = {0.0};

  int ibuf[900];

  int i, j;

  double d1 = 0.0;

  double d2 = 0.0;

  for (i = 0; i < 900; ++i) {

      ibuf[i] = (int)(d2 - d1);

      d1 += dbuf[i];

      d2 += dbuf[i + 64];

  }

  for (i = 0; i < 64; ++i) {

      for (j = 0; j < 8; ++j) {

          result[i][     j] = ibuf[64 - i + 64 * j];

          result[i][15 - j] = ibuf[     i + 64 * j];

      }

  }

  return 0;

}