test: Add test for preprocessor #if-#else parsing

Author: AljenU

test/test_preproc.py

@@ -30,6 +30,9 @@ def check_return(result_array, checks):
     string += hover_req(file_path, 10, 15)  # defined without ()
     file_path = root_dir / "preproc_keywords.F90"
     string += hover_req(file_path, 6, 2)  # ignores PP across Fortran line continuations
+    file_path = root_dir / "preproc_else.F90"
+    string += hover_req(file_path, 8, 12)
+    string += hover_req(file_path, 18, 12)
     config = str(root_dir / ".pp_conf.json")
     errcode, results = run_request(string, ["--config", config])
     assert errcode == 0
@@ -49,6 +52,8 @@ def check_return(result_array, checks):
         ),
         "```fortran90\n#define SUCCESS .true.\n```",
         "```fortran90\nREAL, CONTIGUOUS, POINTER, DIMENSION(:) :: var1\n```",
+        "```fortran90\nINTEGER :: var0\n```",
+        "```fortran90\nREAL :: var1\n```",
     )
     assert len(ref_results) == len(results) - 1
     check_return(results[1:], ref_results)

test/test_source/pp/preproc_else.F90

@@ -0,0 +1,21 @@
+subroutine preprocessor_else(var)
+
+#if 0
+#define MYTYPE logical
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var0
+
+#undef MYTYPE
+
+#if 1
+#define MYTYPE real
+#else
+#define MYTYPE character
+#endif
+
+MYTYPE :: var1
+
+endsubroutine preprocessor_else