--- 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)) |