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