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/] [920501-6.c] - Rev 149

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

#include <stdio.h>
 
/* Convert a decimal string to a long long unsigned.  No error check is
   performed.  */
 
long long unsigned
str2llu (str)
     char *str;
{
  long long unsigned acc;
  int d;
  acc =  *str++ - '0';
  for (;;)
    {
      d = *str++;
      if (d == '\0')
	break;
      d -= '0';
      acc = acc * 10 + d;
    }
 
  return acc;
}
 
/* isqrt(t) - computes the square root of t. (tege 86-10-27) */
 
long unsigned
sqrtllu (long long unsigned t)
{
  long long unsigned s;
  long long unsigned b;
 
  for (b = 0, s = t;  b++, (s >>= 1) != 0; )
    ;
 
  s = 1LL << (b >> 1);
 
  if (b & 1)
    s += s >> 1;
 
  do
    {
      b = t / s;
      s = (s + b) >> 1;
    }
  while (b < s);
 
  return s;
}
 
 
int plist (p0, p1, tab)
     long long unsigned p0, p1;
     long long unsigned *tab;
{
  long long unsigned p;
  long unsigned d;
  long unsigned s;
  long long unsigned *xp = tab;
 
  for (p = p0;  p <= p1;  p += 2)
    {
      s = sqrtllu (p);
 
      for (d = 3;  d <= s;  d += 2)
	{
	  long long unsigned q = p % d;
	  if (q == 0)
	    goto not_prime;
	}
 
      *xp++ = p;
    not_prime:;
    }
  *xp = 0;
  return xp - tab;
}
 
main (argc, argv)
     int argc;
     char *argv[];
{
  long long tab[10];
  int nprimes;
  nprimes = plist (str2llu ("1234111111"), str2llu ("1234111127"), tab);
 
  if(tab[0]!=1234111117LL||tab[1]!=1234111121LL||tab[2]!=1234111127LL||tab[3]!=0)
    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.