Subversion Repositories scarts

/* Test the IACC multiply/accumulate instructions.  Also test the IACC

   read/write functions.  */

/* { dg-options "-mcpu=fr405" } */

/* { dg-do run } */

extern void abort (void);

extern void exit (int);

int main ()

{

  long long res, res1, res2, res3;

  __SMU (0x12345678, 0x40004000);

  __SMASS (0x12000000, 0x11223344);

  __SMSSS (0x01020304, 0x54321000);

  res = __IACCreadll (0);

  res1 = 0x12345678LL * 0x40004000LL;

  res2 = 0x12000000LL * 0x11223344LL;

  res3 = 0x01020304LL * 0x54321000LL;

  if (res != res1 + res2 - res3)

    abort ();

  __IACCsetll (0, 0x7ffffffffffffff0LL);

  __SMASS (0x100, 0x100);

  if (__IACCreadll (0) != 0x7fffffffffffffffLL)

    abort ();

  __IACCsetl (0, -0x7ffffffe);

  __IACCsetl (1, 0);

  __SMSSS (0x10001, 0x10000);

  if (__IACCreadl (0) != -0x7fffffff - 1 || __IACCreadl (1) != -0x10000)

    abort ();

  __SMSSS (0x10001, 0x10000);

  if (__IACCreadl (0) != -0x7fffffff - 1 || __IACCreadl (1) != 0)

    abort ();

  exit (0);

}