bug#9359: 23.3; Etags does not recognise pure functions in Fortran 90

bug#9359: 23.3; Etags does not recognise pure functions in Fortran 90

[Dieter Schuster]

[-- Attachment #1: Type: text/plain, Size: 229 bytes --]

Hello,

etags does not recognize pure functions in Fortran 90 programs. There is
a Fortran 90 program attached to this mail as an example. I've also
add a patch in the attachment which fixed the bug.


Kind regards,

     Dieter

[-- Attachment #2: pure.f90 --]
[-- Type: text/plain, Size: 156 bytes --]

program pure
contains 
  function f(i)
    intent(in) :: i
  end function f
  
  pure function pf(i)
    intent(in) :: i
  end function pf
end program pure

[-- Attachment #3: etags-pure.diff --]
[-- Type: text/x-diff, Size: 321 bytes --]

--- etags.c.orig	2011-04-05 05:46:44.000000000 +0200
+++ etags.c	2011-08-24 11:39:31.512910651 +0200
@@ -4112,6 +4112,9 @@
       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':

bug#9359: 23.3; Etags does not recognise pure functions in Fortran 90

[Glenn Morris]

Version: 24.1

Thanks; applied.