Fortran: fix wrongly specified xtag type

TODO: test cases Signed-off-by: Masatake YAMATO <yamato@redhat.com>
universal-ctags · May 9, 2023 · fd601e0 · fd601e0
1 parent d0e1817
commit fd601e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/parsers/fortran.c b/parsers/fortran.c
@@ -601,7 +601,7 @@ static void makeFortranLinkNameTag(tagEntryInfo *e)
 
 	tagEntryInfo ln_e = *e;
 	ln_e.name = vStringValue (ln);
-	markTagExtraBit (&ln_e, X_LINK_NAME);
+	markTagExtraBit (&ln_e, FortranXtagTable[X_LINK_NAME].xtype);
 	makeTagEntry (&ln_e);
 	vStringDelete (ln);
 }