OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [frv/] [fr405-builtins-3.c] - Rev 825

Go to most recent revision | Compare with Previous | Blame | View Log

/* Test the remaining integer instructions.  */
/* { dg-options "-mcpu=fr405" } */
/* { dg-do run } */
extern void abort (void);
extern void exit (int);
 
int main ()
{
  if (__SLASS (0x112233, 4) != 0x1122330)
    abort ();
 
  if (__SLASS (0x7ffff, 12) != 0x7ffff000)
    abort ();
 
  if (__SLASS (0x80000, 12) != 0x7fffffff)
    abort ();
 
  if (__SLASS (-0x7ffff, 12) != -0x7ffff000)
    abort ();
 
  if (__SLASS (-0x80000, 12) != -0x7fffffff - 1)
    abort ();
 
  if (__SLASS (-0x80001, 12) != -0x7fffffff - 1)
    abort ();
 
  if (__ADDSS (0x7fffffff, 1) != 0x7fffffff)
    abort ();
 
  if (__ADDSS (0x7ffffffd, 1) != 0x7ffffffe)
    abort ();
 
  if (__ADDSS (-0x7fffffff, -2) != -0x7fffffff - 1)
    abort ();
 
  if (__ADDSS (-0x7ffffffd, -2) != -0x7fffffff)
    abort ();
 
  if (__SUBSS (0x7fffffff, -1) != 0x7fffffff)
    abort ();
 
  if (__SUBSS (0x7ffffffd, -1) != 0x7ffffffe)
    abort ();
 
  if (__SUBSS (-0x7fffffff, 2) != -0x7fffffff - 1)
    abort ();
 
  if (__SUBSS (-0x7ffffffd, 2) != -0x7fffffff)
    abort ();
 
  if (__SCAN (0x12345678, 0) != 3)
    abort ();
 
  if (__SCAN (0x12345678, 0x24680000) != 17)
    abort ();
 
  exit (0);
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.