Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/execute/20000818-1.c @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
/* 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) { }