From 0f054abcece17599955b8ee34b4f8d7eec134a70 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 7 Sep 2011 00:28:05 -0700 Subject: [PATCH] * lib-src/etags.c (Fortran_functions): Handle "elemental" functions. --- 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 af026b6ba2c..984c4d6c880 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,7 @@ +2011-09-07 Glenn Morris + + * etags.c (Fortran_functions): Handle "elemental" functions. + 2011-09-07 Dieter Schuster (tiny change) * etags.c (Fortran_functions): Handle "pure" functions. (Bug#9359) diff --git a/lib-src/etags.c b/lib-src/etags.c index 0197bbd49cc..ac5ebee9b07 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -4051,6 +4051,9 @@ Fortran_functions (FILE *inf) 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': -- 2.39.2