tests/ctags/bug565813.f90

   1 module ctags_bug
   2
   3     implicit none
   4     private
   5     save
   6
   7     type :: foo_t
   8         integer :: bar
   9     end type foo_t
  10
  11     integer, parameter :: N = 1000
  12
  13     public :: foo_t
  14     public :: foo_setbar
  15     public :: foo_set_bar
  16     public :: foo_getbar
  17
  18 contains
  19
  20     subroutine foo_setbar (f,b)
  21         type(foo_t), intent(out) :: f
  22         integer, intent(in) :: b
  23
  24         f%bar = b
  25     end subroutine foo_setbar
  26
  27
  28     pure subroutine foo_set_bar (f,b)
  29         type(foo_t), intent(out) :: f
  30         integer, intent(in) :: b
  31
  32         f%bar = b
  33     end subroutine foo_set_bar
  34
  35
  36     integer function foo_getbar (f)
  37         type(foo_t), intent(in) :: f
  38
  39         foo_getbar = f%bar
  40     end function foo_getbar
  41
  42 end module ctags_bug