Index: pplex.l
===================================================================
RCS file: /cvsroot/open-cobol/open-cobol/cobc/pplex.l,v
retrieving revision 1.38
diff -r1.38 pplex.l
30a31
> #define __USE_GNU
31a33
> #undef __USE_GNU
113c115
<   {WORD} |
---
>   {WORD} { pplval.s = strndup (yytext, 30); return TOKEN; }
123c125
<   {WORD} |
---
>   {WORD} { pplval.s = strndup (yytext, 30); return TOKEN; }
165c167,168
< {WORD} |
---
> {WORD} { pplval.s = strndup (yytext, 30); ppecho (pplval.s); }
>