test: update test for preprocessor #elif parsing

Only the first true branch of a #if-#elif-#else should be included

Author: AljenU

test/test_source/pp/preproc_elif.F90

@@ -1,4 +1,4 @@
-subroutine preprocessor_elif(var)
+subroutine preprocessor_elif(var, var3, var4, var5, var6)
 
 #if 0
 #define MYTYPE character
@@ -21,4 +21,119 @@ subroutine preprocessor_elif(var)
 
 PRINT*, var
 
+#if 1
+#define PART1 1,
+#elif 0
+#define PART2 2,
+#elif 1
+#define PART3 3,
+#else
+#define PART4 4
+#endif
+
+#ifndef PART1
+#define PART1 5,
+#endif
+#ifndef PART2
+#define PART2 5,
+#endif
+#ifndef PART3
+#define PART3 5,
+#endif
+#ifndef PART4
+#define PART4 5
+#endif
+
+REAL(PART1 PART2 PART3 PART4) :: var3
+
+#undef PART1
+#undef PART2
+#undef PART3
+#undef PART4
+
+#if 0
+#define PART1 1,
+#elif 1
+#define PART2 2,
+#elif 1
+#define PART3 3,
+#else
+#define PART4 4
+#endif
+
+#ifndef PART1
+#define PART1 5,
+#endif
+#ifndef PART2
+#define PART2 5,
+#endif
+#ifndef PART3
+#define PART3 5,
+#endif
+#ifndef PART4
+#define PART4 5
+#endif
+
+REAL(PART1 PART2 PART3 PART4) :: var4
+
+#undef PART1
+#undef PART2
+#undef PART3
+#undef PART4
+
+#if 0
+#define PART1 1,
+#elif 0
+#define PART2 2,
+#elif 0
+#define PART3 3,
+#else
+#define PART4 4
+#endif
+
+#ifndef PART1
+#define PART1 5,
+#endif
+#ifndef PART2
+#define PART2 5,
+#endif
+#ifndef PART3
+#define PART3 5,
+#endif
+#ifndef PART4
+#define PART4 5
+#endif
+
+REAL(PART1 PART2 PART3 PART4) :: var5
+
+#undef PART1
+#undef PART2
+#undef PART3
+#undef PART4
+
+#if 1
+#define PART1 1,
+#elif 1
+#define PART2 2,
+#elif 0
+#define PART3 3,
+#else
+#define PART4 4
+#endif
+
+#ifndef PART1
+#define PART1 5,
+#endif
+#ifndef PART2
+#define PART2 5,
+#endif
+#ifndef PART3
+#define PART3 5,
+#endif
+#ifndef PART4
+#define PART4 5
+#endif
+
+REAL(PART1 PART2 PART3 PART4) :: var6
+
 endsubroutine preprocessor_elif