Changeset 1349 for trunk/AGRIF/LIB/fortran.lex

Timestamp:

2009-03-30T18:46:14+02:00 (15 years ago)

Author:

rblod

Message:

Fix Agrif issue with constant character char, see ticket #367

File:

• trunk/AGRIF/LIB/fortran.lex (modified) (1 diff)

trunk/AGRIF/LIB/fortran.lex

@@ -266 +266 @@
 (\')[^']*&{0,1}\n[ \t]*&{0,1}[^']*(\')         {strcpy(yylval.na,yytext);return TOK_CHAR_CUT;}
 (\')[^\n']*(\')         {strcpy(yylval.na,yytext);return TOK_CHAR_CONSTANT;}
-(\")[^\n]*(\")          {strcpy(yylval.na,yytext);return TOK_CHAR_MESSAGE;}
+(\")[^\n"]*(\")         {strcpy(yylval.na,yytext);return TOK_CHAR_MESSAGE;}
 ({NAME}{REAL})          {strcpy(yylval.na,yytext);return TOK_CHAR_INT;}
 {NAME}                  {strcpy(yylval.na,yytext);return TOK_NAME;}