* etags.c (Fortran_functions): Handle recursive keyword (Bug#5484).

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index a50ee76b96ce10ef00542913e51c7b67507f0b47..8ef57555a0fc8f6981a3c0c28c5da21388b11a54 100644 (file)
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-29  Kester Habermann <kester@linuxtag.org>
+
+       * etags.c (Fortran_functions): Handle recursive keyword
+       (Bug#5484).
+
 2010-01-11  Glenn Morris  <rgm@gnu.org>
 
        * ebrowse.c (version):

diff --git a/lib-src/etags.c b/lib-src/etags.c
index d49dcf930af8f063e96dcdd37a8aa912f9fb478d..2715df8b5ccfe1760c67f85eebb5ced6812e2448 100644 (file)
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -4108,6 +4108,10 @@ Fortran_functions (inf)
       dbp = skip_spaces (dbp);
       if (*dbp == '\0')
        continue;
+
+      if (LOOKING_AT_NOCASE (dbp, "recursive"))
+       dbp = skip_spaces (dbp);
+
       switch (lowcase (*dbp))
        {
        case 'i':