bug: type-bound procedure pointer mangled name while hovering

[gnikit]

Describe the bug
hovering over norm yields incorrect name

To Reproduce

> fortls --debug_filepath tmp.f90 --debug_hover --debug_line 15 --debug_char 17

Testing "textDocument/hover" request:
  File = "tmp.f90"
  Line = 15
  Char = 17

  Result:
=======
[{'language': 'fortran90', 'value': 'FUNCTION vector_nonorm(norm)\n!! Doc 2\n REAL(8) :: norm'}]
=======

TYPE, EXTENDS(vector) :: scaled_vector
CONTAINS
  PROCEDURE :: norm => scaled_vector_norm !< Doc 3
END TYPE scaled_vector