diff options
Diffstat (limited to 'src/fortranscanner.l')
| -rw-r--r-- | src/fortranscanner.l | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index dcb5caa..8a2103d 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -893,11 +893,13 @@ protected { pushBuffer(inputStringSemi); } +<Initialization,ArrayInitializer>"[" | <Initialization,ArrayInitializer>"(/" { initializer+=yytext; initializerArrayScope++; BEGIN(ArrayInitializer); // initializer may contain comma } -<ArrayInitializer>"/)" { initializer+=yytext; +<ArrayInitializer>"]" | +<ArrayInitializer>"/)" { initializer+=yytext; initializerArrayScope--; if(initializerArrayScope<=0) { |