gnu/dist/gcc4/gcc/testsuite/gcc.dg/tree-ssa/20040408-1.c

   1 /* { dg-do compile }  */
   2 /* { dg-options "-O2" }  */
   3 /* Make sure that when a variable with an NMT is marked for renaming
   4    that the NMT's aliases are also marked for renaming.  */
   5
   6 static int eiisnan (short unsigned int *x)
   7 {
   8   int i;
   9
  10   if( x[i] != 0 )
  11     return(1);
  12 }
  13
  14 static int eiisinf (unsigned short *x)
  15 {
  16   if (eiisnan (x))
  17     return (0);
  18
  19   if ((x[1] & 0x7fff) == 0x7fff)
  20     return (1);
  21 }
  22
  23 static void toe64(short unsigned int *a, short unsigned int *b)
  24 {
  25   register unsigned short *p, *q;
  26   unsigned short i;
  27
  28   q = b + 4;
  29
  30   if (eiisinf (a));
  31
  32   for( i=0; i<4; i++ )
  33     *q-- = *p++;
  34 }
  35
  36 static int asctoeg(short unsigned int *y, int oprec)
  37 {
  38   unsigned short yy[13];
  39   char *s;
  40
  41   while( *s == ' ' )
  42     ++s;
  43
  44   toe64( yy, y );
  45 }
  46
  47 long double _strtold (char *s, char **se)
  48 {
  49   long double x;
  50   asctoeg( (unsigned short *)&x, 64 );
  51 }