blob: 4018172cc9312cfe808c35e07fd85a691c1736b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
allow pointer assignment ("=>" operator) from fortran 95
http://sourceforge.net/tracker/index.php?func=detail&aid=2046078&group_id=6556&atid=106556
diff -Naur ctags-5.7.orig/fortran.c ctags-5.7/fortran.c
--- ctags-5.7.orig/fortran.c 2009-06-10 20:24:30.000000000 +0200
+++ ctags-5.7/fortran.c 2009-06-10 20:26:25.000000000 +0200
@@ -1334,7 +1334,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))
|