sdcc/support/regression/tests/gcc-torture-execute-20000818-1.c

   1 /*
   2    20000818-1.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 85
  10 #endif
  11
  12 /* Copyright (C) 2000  Free Software Foundation.
  13
  14    by Manfred Hollstein <manfredh@redhat.com>  */
  15
  16 void *temporary_obstack;
  17
  18 static int input (void);
  19 static int ISALNUM (int ch);
  20 static void obstack_1grow (void **ptr, int ch);
  21
  22 int yylex (void);
  23
  24 void
  25 testTortureExecute (void)
  26 {
  27   int ch = yylex ();
  28
  29   return;
  30 }
  31
  32 int yylex (void)
  33 {
  34   int ch;
  35
  36 #ifndef WORK_AROUND
  37   for (;;)
  38     {
  39       ch = input ();
  40       if (ISALNUM (ch))
  41         obstack_1grow (&temporary_obstack, ch);
  42       else if (ch != '_')
  43         break;
  44     }
  45 #else
  46   do
  47     {
  48       ch = input ();
  49       if (ISALNUM (ch))
  50         obstack_1grow (&temporary_obstack, ch);
  51     } while (ch == '_');
  52 #endif
  53
  54   return ch;
  55 }
  56
  57 static int input (void)
  58 {
  59   return 0;
  60 }
  61
  62 static int ISALNUM (int ch)
  63 {
  64   return ((ch >= 'A' && ch <= 'Z')
  65           || (ch >= 'a' && ch <= 'z')
  66           || (ch >= '0' && ch <= '0'));
  67 }
  68
  69 static void obstack_1grow (void **ptr, int ch)
  70 {
  71 }
  72