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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [921202-1.c] - Rev 149

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

#ifndef STACK_SIZE
#define	VLEN	2055
#else
#define VLEN ((STACK_SIZE/16) - 1)
#endif
main ()
{
  long dx[VLEN];
  long dy[VLEN];
  long s1[VLEN];
  int cyx, cyy;
  int i;
  long size;
 
  for (;;)
    {
      size = VLEN;
      mpn_random2 (s1, size);
 
      for (i = 0; i < 1; i++)
	;
 
      dy[size] = 0x12345678;
 
      for (i = 0; i < 1; i++)
	cyy = mpn_mul_1 (dy, s1, size);
 
      if (cyx != cyy || mpn_cmp (dx, dy, size + 1) != 0 || dx[size] != 0x12345678)
	{
	  foo ("", 8, cyy); mpn_print (dy, size);
	}
      exxit();
    }
}
 
foo (){}
mpn_mul_1(){}
mpn_print (){}
mpn_random2(){}
mpn_cmp(){}
exxit(){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.