tests/ctags/bug726712.f90

   1 ! Bugs item #726712, was opened at 2003-04-24 08:36
   2 ! Message generated for change (Comment added) made by schubidu
   3 ! You can respond by visiting:
   4 ! https://sourceforge.net/tracker/?func=detail&atid=106556&aid=726712&group_id=6556
   5 !
   6 ! Category: None
   7 ! Group: None
   8 ! Status: Open
   9 ! Resolution: None
  10 ! Priority: 5
  11 ! Submitted By: sandra schrödter (schubidu)
  12 ! Assigned to: Darren Hiebert (dhiebert)
  13 ! Summary: ctags 5.5 and f90: "endsubroutine" not recognized
  14 !
  15 ! Initial Comment:
  16 ! Dear Ctags'ers. :)
  17 !
  18 ! First of all: good tool! :) I stumbled across ctags for
  19 ! my gvim6, wanted to use the nice plugin taglist.
  20 !
  21 ! My System: HP-Unix and ctags 5.5
  22 !
  23 ! My problem is the following. The command:
  24 !
  25 ! "ctags tagstest.f90"
  26 !
  27 ! builds a tagsfile that lacks 1 of the declared 3
  28 ! subroutines.
  29 ! The problem disappears when the declaration of the
  30 ! subroutine ends in "end subroutine" and not in
  31 ! "endsubroutine", although "endsubroutine" is correct
  32 ! Fortran90 syntax, AFAIK.
  33 !
  34 ! Is there a chance to get this corrected?
  35 !
  36 !
  37 ! The example file tagstest.f90:
  38
  39       subroutine tagstest_ctrl()
  40          real :: a
  41          a = 0.0
  42          call sub1( a)
  43          call sub2( a)
  44       endsubroutine tagstest_ctrl
  45
  46       subroutine sub1( a)
  47       real,intent( inout) ::a
  48       a = 1.1
  49       endsubroutine sub1
  50
  51       subroutine sub2( a)
  52       real,intent( inout) ::a
  53       a = 2.2
  54       endsubroutine sub2
  55
  56 ! ----------------------------------------------------------------------
  57 !
  58 ! Comment By: sandra schrödter (schubidu)
  59 ! Date: 2003-05-28 13:17
  60 !
  61 ! Message:
  62 ! Logged In: YES
  63 ! user_id=763447
  64 !
  65 ! I realized that there are also problems when a subroutine
  66 ! ends only with the keyword
  67 ! end
  68 !
  69 ! The following subroutine is listed but cannot be selected
  70 ! (that is, the cursor wont go there)
  71 !
  72 ! ----------------------------------------------------------------------