(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.c-torture/
execute/
20000818-1.c
       1  /* Copyright (C) 2000  Free Software Foundation.
       2  
       3     by Manfred Hollstein <manfredh@redhat.com>  */
       4  
       5  void *temporary_obstack;
       6  
       7  static int input (void);
       8  static int ISALNUM (int ch);
       9  static void obstack_1grow (void **ptr, int ch);
      10  
      11  int yylex (void);
      12  int main (void);
      13  
      14  int main (void)
      15  {
      16    int ch = yylex ();
      17  
      18    exit (0);
      19  }
      20  
      21  int yylex (void)
      22  {
      23    int ch;
      24  
      25  #ifndef WORK_AROUND
      26    for (;;)
      27      {
      28        ch = input ();
      29        if (ISALNUM (ch))
      30          obstack_1grow (&temporary_obstack, ch);
      31        else if (ch != '_')
      32          break;
      33      }
      34  #else
      35    do
      36      {
      37        ch = input ();
      38        if (ISALNUM (ch))
      39          obstack_1grow (&temporary_obstack, ch);
      40      } while (ch == '_');
      41  #endif
      42  
      43    return ch;
      44  }
      45  
      46  static int input (void)
      47  {
      48    return 0;
      49  }
      50  
      51  static int ISALNUM (int ch)
      52  {
      53    return ((ch >= 'A' && ch <= 'Z')
      54  	  || (ch >= 'a' && ch <= 'z')
      55  	  || (ch >= '0' && ch <= '0'));
      56  }
      57  
      58  static void obstack_1grow (void **ptr, int ch)
      59  {
      60  }