tests/ctags/bug670433.f90

   1 ! Bugs item #670443, was opened at 2003-01-18 22:44
   2 ! You can respond by visiting:
   3 ! https://sourceforge.net/tracker/?func=detail&atid=106556&aid=670443&group_id=6556
   4 !
   5 ! Category: None
   6 ! Group: None
   7 ! Status: Open
   8 ! Resolution: None
   9 ! Priority: 5
  10 ! Submitted By: Erik Edelmann (fanerier)
  11 ! Assigned to: Nobody/Anonymous (nobody)
  12 ! Summary: Fortran: Internal procedures causes trouble
  13 !
  14 ! Initial Comment:
  15 ! If a function in a module has an internal procedure
  16 ! (after a CONTAINS-statement), everything in the module
  17 ! after the parent function will be skipped.  I.e. in the
  18 ! attached file, the subroutine 'bar' will not be listed
  19 ! in the 'tags' file.  Note that this problem arises only
  20 ! when the parent procedure is a function, if it is a
  21 ! subroutine everything works fine.
  22
  23 module foobar
  24
  25 contains
  26
  27     integer function foo (i)
  28
  29     contains
  30
  31         real function f(x)
  32         end function f
  33
  34     end function foo
  35
  36
  37     subroutine bar (n)
  38     end subroutine bar
  39
  40 end module foobar