Shows pointer attribute upon hover

Fixes Show POINTER attribute when hovering #16

Author: gnikit

CHANGELOG.md

@@ -34,6 +34,8 @@
   ([#169](https://github.com/hansec/fortran-language-server/issues/169))
 - Fixes include with external files
   ([gnikit/fortls#13](https://github.com/gnikit/fortls/issues/13))
+- `POINTER` attribute now displays upon hover
+  ([gnikit/fortls#16](https://github.com/gnikit/fortls/issues/16))
 
 ## 1.16.0
 

fortls/helper_functions.py

@@ -319,7 +319,8 @@ def map_keywords(keywords):
     for keyword in keywords:
         keyword_prefix = keyword.split("(")[0].lower()
         keyword_ind = KEYWORD_ID_DICT.get(keyword_prefix)
-        if keyword_ind:
+        # keyword_ind can be 0 which if 0: evaluates to False
+        if keyword_ind is not None:
             mapped_keywords.append(keyword_ind)
             if keyword_prefix in ("intent", "dimension", "pass"):
                 keyword_substring = get_paren_substring(keyword)

test/test_server.py

@@ -521,6 +521,8 @@ def check_return(result_array, checks):
     string += hover_req(file_path, 6, 28)
     string += hover_req(file_path, 7, 38)
     string += hover_req(file_path, 7, 55)
+    file_path = os.path.join(test_dir, "hover", "pointers.f90")
+    string += hover_req(file_path, 1, 26)
     errcode, results = run_request(
         string, fortls_args=" --variable_hover --sort_keywords"
     )
@@ -537,6 +539,7 @@ def check_return(result_array, checks):
         "INTEGER, PARAMETER :: var4 = 123",
         "DOUBLE PRECISION, PARAMETER :: somevar = 23.12",
         "DOUBLE PRECISION, PARAMETER :: some = 1e-19",
+        "INTEGER, POINTER",
     )
     assert len(ref_results) == len(results) - 1
     check_return(results[1:], ref_results)

test/test_source/hover/pointers.f90

@@ -0,0 +1,3 @@
+program pointers
+    INTEGER, POINTER :: val1
+end program