test: Add test for preprocessor if and elif parsing

Author: AljenU

test/test_preproc.py

@@ -30,6 +30,13 @@ 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_elif.F90"
+    string += hover_req(file_path, 8, 12)
+    string += hover_req(file_path, 20, 12)
+    string += hover_req(file_path, 32, 12)
+    string += hover_req(file_path, 44, 12)
+    string += hover_req(file_path, 54, 12)
+    string += hover_req(file_path, 66, 12)
     config = str(root_dir / ".pp_conf.json")
     errcode, results = run_request(string, ["--config", config])
     assert errcode == 0
@@ -49,6 +56,12 @@ def check_return(result_array, checks):
         ),
         "```fortran90\n#define SUCCESS .true.\n```",
         "```fortran90\nREAL, CONTIGUOUS, POINTER, DIMENSION(:) :: var1\n```",
+        "```fortran90\nINTEGER :: var0\n```",
+        "```fortran90\nCHARACTER :: var1\n```",
+        "```fortran90\nLOGICAL :: var2\n```",
+        "```fortran90\nINTEGER :: var3\n```",
+        "```fortran90\nREAL :: var4\n```",
+        "```fortran90\nINTEGER :: var5\n```",
     )
     assert len(ref_results) == len(results) - 1
     check_return(results[1:], ref_results)

test/test_source/pp/preproc_elif.F90

@@ -0,0 +1,69 @@
+subroutine preprocessor_elif(var)
+
+#if 0
+#define MYTYPE logical
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var0
+
+#undef MYTYPE
+
+#if 1
+#define MYTYPE character
+#elif 0
+#define MYTYPE logical
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var1
+
+#undef MYTYPE
+
+#if 0
+#define MYTYPE character
+#elif 1
+#define MYTYPE logical
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var2
+
+#undef MYTYPE
+
+#if 0
+#define MYTYPE character
+#elif 0
+#define MYTYPE real
+#else
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var3
+
+#undef MYTYPE
+
+#if 0
+#define MYTYPE character
+#elif 1
+#define MYTYPE real
+#endif
+
+MYTYPE :: var4
+
+#undef MYTYPE
+
+#if 0
+#define MYTYPE character
+#elif 0
+#define MYTYPE real
+#elif 1
+#define MYTYPE integer
+#endif
+
+MYTYPE :: var5
+
+endsubroutine preprocessor_elif