blob: 4ac9560f87854c40e568c997d8b99893d65b206c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
--- 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))
|
GitWeb
