20000818-1.c: New test.

2000-08-18  Manfred Hollstein  <manfredh@redhat.com>

	* gcc.c-torture/execute/20000818-1.c: New test.

From-SVN: r35788

gcc/testsuite/ChangeLog

+2000-08-18  Manfred Hollstein  <manfredh@redhat.com>
+
+	* gcc.c-torture/execute/20000818-1.c: New test.
+
 2000-08-18  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* gcc.dg/format-va-1.c: New test.

gcc/testsuite/gcc.c-torture/execute/20000818-1.c

+/* Copyright (C) 2000  Free Software Foundation.
+
+   by Manfred Hollstein <manfredh@redhat.com>  */
+
+void *temporary_obstack;
+
+static int input (void);
+static int ISALNUM (int ch);
+static void obstack_1grow (void **ptr, int ch);
+
+int yylex (void);
+int main (void);
+
+int main (void)
+{
+  int ch = yylex ();
+
+  exit (0);
+}
+
+int yylex (void)
+{
+  int ch;
+
+#ifndef WORK_AROUND
+  for (;;)
+    {
+      ch = input ();
+      if (ISALNUM (ch))
+        obstack_1grow (&temporary_obstack, ch);
+      else if (ch != '_')
+        break;
+    }
+#else
+  do
+    {
+      ch = input ();
+      if (ISALNUM (ch))
+        obstack_1grow (&temporary_obstack, ch);
+    } while (ch == '_');
+#endif
+
+  return ch;
+}
+
+static int input (void)
+{
+  return 0;
+}
+
+static int ISALNUM (int ch)
+{
+  return ((ch >= 'A' && ch <= 'Z')
+	  || (ch >= 'a' && ch <= 'z')
+	  || (ch >= '0' && ch <= '0'));
+}
+
+static void obstack_1grow (void **ptr, int ch)
+{
+}