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  }