test: Update test for preprocessor #elif parsing

Only content from the true branch should be in the final parsed file

Author: AljenU

test/test_preproc.py

@@ -34,8 +34,9 @@ def check_return(result_array, checks):
     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)
+    string += hover_req(file_path, 15, 12)
+    string += hover_req(file_path, 19, 15)
+    string += hover_req(file_path, 21, 10)
     config = str(root_dir / ".pp_conf.json")
     errcode, results = run_request(string, ["--config", config])
     assert errcode == 0
@@ -59,6 +60,7 @@ def check_return(result_array, checks):
         "```fortran90\nREAL :: var1\n```",
         "```fortran90\nLOGICAL :: var1\n```",
         "```fortran90\nINTEGER :: var2\n```",
+        "```fortran90\nINTEGER, INTENT(INOUT) :: var\n```",
     )
     assert len(ref_results) == len(results) - 1
     check_return(results[1:], ref_results)

test/test_source/pp/preproc_elif.F90

@@ -2,10 +2,15 @@ subroutine preprocessor_elif(var)
 
 #if 0
 #define MYTYPE character
+integer, intent(in) :: var
 #elif 1
 #define MYTYPE logical
+integer, intent(inout) :: var
+var = 3
 #else
 #define MYTYPE integer
+integer, intent(out) :: var
+var = 5
 #endif
 
 MYTYPE :: var1
@@ -14,4 +19,6 @@ subroutine preprocessor_elif(var)
 
 OTHERTYPE :: var2
 
+PRINT*, var
+
 endsubroutine preprocessor_elif