1  /* This test used to ICE on the SPU target. */
       2  extern const char *__ctype_ptr;
       3  
       4  parse_real (unsigned char c)
       5  {
       6    if ((__ctype_ptr[c]&04) && c != '.')
       7     unget_char ( c);
       8  }