* lib-src/etags.c (Fortran_functions): Handle "pure" functions. (tiny change)

Fixes: debbugs:9359

* lib-src/etags.c (Fortran_functions): Handle "pure" functions. (tiny change)
Fixes: debbugs:9359
d0417b4c · Dieter Schuster · Glenn Morris · 7d0ee75c · d0417b4c · d0417b4c
Commit d0417b4c authored Sep 07, 2011 by Dieter Schuster Committed by Glenn Morris Sep 07, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lib-src/ChangeLog lib-src/ChangeLog +4 -0

lib-src/etags.c lib-src/etags.c +3 -0

No files found.
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
+2011-09-07  Dieter Schuster  <didischuster@arcor.de>  (tiny change)
+
+	* etags.c (Fortran_functions): Handle "pure" functions.  (Bug#9359)
+
 2011-09-06  Paul Eggert  <eggert@cs.ucla.edu>

 	* Makefile.in ($(DESTDIR)${archlibdir}): install-sh moved

--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4048,6 +4048,9 @@ Fortran_functions (FILE *inf)
      if (LOOKING_AT_NOCASE (dbp, "recursive"))
 	dbp = skip_spaces (dbp);

+      if (LOOKING_AT_NOCASE (dbp, "pure"))
+	dbp = skip_spaces (dbp);
+
      switch (lowcase (*dbp))
 	{
 	case 'i':