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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr38364.c] - Rev 801

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

/* PR middle-end/38364 */
/* { dg-do run } */
/* { dg-options "-O2 -ftrapv" } */
 
extern void abort (void);
 
static inline short
f1 (short x, short y)
{
  if (x > 0)
    {
      if (y > 0)
	{
	  if (x > __SHRT_MAX__ / y)
	    return x;
	}
      else if (y < (-__SHRT_MAX__ - 1) / x)
	return x;
    }
  else
    {
      if (y > 0)
	{
	  if (x < (-__SHRT_MAX__ - 1) / y)
	    return x;
	}
      else if (x != 0 && y < __SHRT_MAX__ / x)
	return x;
    }
  return x * y;
}
 
static inline signed char
f2 (signed char x, signed char y)
{
  if (((x ^ y) & (((x ^ ((x ^ y) & (1 << (__CHAR_BIT__ - 1)))) - y) ^ y)) < 0)
    return x;
  return x - y;
}
 
unsigned int v;
 
int
f3 (int x, unsigned int y)
{
  f1 (1, 1);
  return 1;
}
 
int
f4 (unsigned short x)
{
  v = x;
  return 1;
}
 
int
f5 (int x)
{
  if (f2 (x, 1))
    f1 (1, f4 (1));
  return x;
}
 
int
f6 (unsigned int x)
{
  f4 (x < (1 != f5 (0)));
  return x;
}
 
int
main (void)
{
  f6 (1);
  if (v != 0)
    abort ();
  return 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.