median: update test

Author: jvdp1

src/tests/stats/CMakeLists.txt

@@ -1,3 +1,21 @@
+### Pre-process: .fpp -> .f90 via Fypp
+
+# Create a list of the files to be preprocessed
+set(fppFiles
+    test_median.fypp
+)
+
+# Custom preprocessor flags
+if(DEFINED CMAKE_MAXIMUM_RANK)
+  set(fyppFlags "-DMAXRANK=${CMAKE_MAXIMUM_RANK}")
+elseif(f03rank)
+  set(fyppFlags)
+else()
+  set(fyppFlags "-DVERSION90")
+endif()
+
+fypp_f90("${fyppFlags}" "${fppFiles}" outFiles)
+
 ADDTEST(corr)
 ADDTEST(cov)
 ADDTEST(mean)

src/tests/stats/Makefile.manual

@@ -1,5 +1,12 @@
+SRCFYPP =\
+        test_median.fypp
 
-PROGS_SRC = test_mean.f90 test_moment.f90 test_var.f90 \
+SRCGEN = $(SRCFYPP:.fypp=.f90)
+
+$(SRCGEN): %.f90: %.fypp common.fypp
+	fypp $(FYPPFLAGS) $< $@
+
+PROGS_SRC = $(SRCGEN) test_mean.f90 test_moment.f90 test_var.f90 \
             test_distribution_PRNG.f90
 
-include ../Makefile.manual.test.mk
+include ../Makefile.manual.test.mk

src/tests/stats/common.fypp

@@ -0,0 +1,37 @@
+#:mute
+
+#! Real kinds to be considered during templating
+#:set REAL_KINDS = ["sp", "dp", "qp"]
+
+#! Real types to be considered during templating
+#:set REAL_TYPES = ["real({})".format(k) for k in REAL_KINDS]
+
+#! Collected (kind, type) tuples for real types
+#:set REAL_KINDS_TYPES = list(zip(REAL_KINDS, REAL_TYPES))
+
+#! Integer kinds to be considered during templating
+#:set INT_KINDS = ["int8", "int16", "int32", "int64"]
+
+#! Integer types to be considered during templating
+#:set INT_TYPES = ["integer({})".format(k) for k in INT_KINDS]
+
+#! Collected (kind, type) tuples for integer types
+#:set INT_KINDS_TYPES = list(zip(INT_KINDS, INT_TYPES))
+
+
+#! Whether Fortran 90 compatible code should be generated
+#:set VERSION90 = defined('VERSION90')
+
+
+#! Ranks to be generated when templates are created
+#:if not defined('MAXRANK')
+  #:if VERSION90
+    #:set MAXRANK = 7
+  #:else
+    #:set MAXRANK = 15
+  #:endif
+#:endif
+
+
+
+#:endmute