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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [921113-1.c] - Rev 849

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

#define STACK_REQUIREMENT (128 * 128 * 4 + 1024)
#if defined (STACK_SIZE) && STACK_SIZE < STACK_REQUIREMENT
main () { exit (0); }
#else
 
typedef struct {
  float wsx;
} struct_list;
 
typedef struct_list *list_t;
 
typedef struct {
  float x, y;
} vector_t;
 
w(float x, float y) {}
 
f1(float x, float y)
{
  if (x != 0 || y != 0)
    abort();
}
f2(float x, float y)
{
  if (x != 1 || y != 1)
    abort();
}
 
gitter(int count, vector_t pos[], list_t list, int *nww, vector_t limit[2], float r)
{
  float d;
  int gitt[128][128];
 
  f1(limit[0].x, limit[0].y);
  f2(limit[1].x, limit[1].y);
 
  *nww = 0;
 
  d = pos[0].x;
  if (d <= 0.)
    {
      w(d, r);
      if (d <= r * 0.5)
	{
	  w(d, r);
	  list[0].wsx = 1;
	}
    }
}
 
vector_t pos[1] = {{0., 0.}};
vector_t limit[2] = {{0.,0.},{1.,1.}};
 
main()
{
  int nww;
  struct_list list;
 
  gitter(1, pos, &list, &nww, limit, 1.);
  exit(0);
}
 
#endif
 

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.