13 lines
471 B
Diff
13 lines
471 B
Diff
--- fortran-orig.c 2009-11-16 23:38:06.154328652 +0200
|
|
+++ fortran.c 2009-11-16 23:38:08.711335501 +0200
|
|
@@ -1319,7 +1319,8 @@
|
|
readToken (token);
|
|
skipPast (token, TOKEN_OPERATOR);
|
|
}
|
|
- else if (strcmp (vStringValue (token->string), "=") == 0)
|
|
+ else if ((strcmp (vStringValue (token->string), "=") == 0) ||
|
|
+ (strcmp (vStringValue (token->string), "=>") == 0))
|
|
{
|
|
while (! isType (token, TOKEN_COMMA) &&
|
|
! isType (token, TOKEN_STATEMENT_END))
|