test: Add test for preprocessor #elif parsing

Author: AljenU

test/test_preproc.py

@@ -33,6 +33,9 @@ def check_return(result_array, checks):
     file_path = root_dir / "preproc_else.F90"
     string += hover_req(file_path, 8, 12)
     string += hover_req(file_path, 18, 12)
+    file_path = root_dir / "preproc_elif.F90"
+    string += hover_req(file_path, 10, 12)
+    string += hover_req(file_path, 14, 15)
     config = str(root_dir / ".pp_conf.json")
     errcode, results = run_request(string, ["--config", config])
     assert errcode == 0
@@ -54,6 +57,8 @@ def check_return(result_array, checks):
         "```fortran90\nREAL, CONTIGUOUS, POINTER, DIMENSION(:) :: var1\n```",
         "```fortran90\nINTEGER :: var0\n```",
         "```fortran90\nREAL :: var1\n```",
+        "```fortran90\nLOGICAL :: var1\n```",
+        "```fortran90\nINTEGER :: var2\n```",
     )
     assert len(ref_results) == len(results) - 1
     check_return(results[1:], ref_results)

test/test_source/pp/preproc_elif.F90

@@ -0,0 +1,17 @@
+subroutine preprocessor_elif(var)
+
+#if 0
+#define MYTYPE character
+#elif 1
+#define MYTYPE logical
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var1
+
+#define OTHERTYPE integer
+
+OTHERTYPE :: var2
+
+endsubroutine preprocessor_elif