tests/ctags/fortran_associate.f90

   1 module with_associate
   2   real :: a
   3
   4 contains
   5
   6   function do_stuff(a) result(c)
   7     real, intent(in) :: a
   8
   9     associate (b => a)
  10       c = b
  11     end associate
  12   end function do_stuff
  13
  14   subroutine do_other_stuff(a)
  15     real, intent(in out) :: a
  16
  17     a = 2 * a
  18   end subroutine do_other_stuff
  19
  20 end module with_associate