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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b3edc99..70a342d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/testsuite/gcc.c-torture/execute/20000818-1.c b/gcc/testsuite/gcc.c-torture/execute/20000818-1.c
new file mode 100644 (file)
index 0000000..0067644
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20000818-1.c
@@ -0,0 +1,60 @@
+/* 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)
+{
+}