From d0417b4cfa7db8073880949a744599e4cbcf26da Mon Sep 17 00:00:00 2001
From: Dieter Schuster <didischuster@arcor.de>
Date: Wed, 7 Sep 2011 00:25:55 -0700
Subject: [PATCH] * lib-src/etags.c (Fortran_functions): Handle "pure"
 functions.  (tiny change)

Fixes: debbugs:9359
---
 lib-src/ChangeLog | 4 ++++
 lib-src/etags.c   | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 65ca56b17a..af026b6ba2 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,7 @@
+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 9d92056580..0197bbd49c 100644
--- 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':
-- 
2.20.1