procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

20000818-1.c: New test.

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

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

From-SVN: r35788
This commit is contained in:
Manfred Hollstein 2000-08-18 16:54:39 +00:00 • committed by Manfred Hollstein
parent 9744ff7d80
commit 90d14f40a9
2 changed files with 64 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

@ -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.

60
gcc/testsuite/gcc.c-torture/execute/20000818-1.c Normal file
View file

@ -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)
{
}