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