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
eiisnan(short unsigned int * x)6 static int eiisnan (short unsigned int *x)
7 {
8 int i;
9
10 if( x[i] != 0 )
11 return(1);
12 }
13
eiisinf(unsigned short * x)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
toe64(short unsigned int * a,short unsigned int * b)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
asctoeg(short unsigned int * y,int oprec)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
_strtold(char * s,char ** se)47 long double _strtold (char *s, char **se)
48 {
49 long double x;
50 asctoeg( (unsigned short *)&x, 64 );
51 }
52