upstream

2 files changed, 14 insertions, 0 deletions

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 65ca56b17a8..984c4d6c880 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,11 @@
+2011-09-07  Glenn Morris  <rgm@gnu.org>
+
+        * etags.c (Fortran_functions): Handle "elemental" functions.
+
+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
diff --git a/lib-src/etags.c b/lib-src/etags.c
index 9d920565804..ac5ebee9b07 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4048,6 +4048,12 @@ Fortran_functions (FILE *inf)
       if (LOOKING_AT_NOCASE (dbp, "recursive"))
         dbp = skip_spaces (dbp);
 
+      if (LOOKING_AT_NOCASE (dbp, "pure"))
+        dbp = skip_spaces (dbp);
+
+      if (LOOKING_AT_NOCASE (dbp, "elemental"))
+        dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
         {
         case 'i':