test passing xdp and qp c-preprocessing flags with fpm

Author: jalvesz

.github/workflows/fpm-deployment.yml

@@ -40,7 +40,7 @@ jobs:
 
       - run: | # Use fpm gnu ci to check xdp and qp 
           python config/fypp_deployment.py --with_xdp --with_qp
-          fpm test --profile release
+          fpm test --profile release --flag '-DWITH_XDP -DWITH_QP'
 
     # Update and deploy the f90 files generated by github-ci to the `stdlib-fpm` branch.
       - name: Deploy 🚀

test/math/test_meshgrid.fypp

@@ -79,7 +79,7 @@ contains
                 ${"".join(f"xm{j}," for j in range(1, rank + 1)).removesuffix(",")}$ &
                 ${OPTIONAL_PART_IN_SIGNATURE(INDEXING)}$ )
         #:for j in range(1, rank + 1)
-            call check(error, maxval(abs(xm${j}$ - xm${j}$_exact)) == ZERO)
+            call check(error, maxval(abs(xm${j}$ - xm${j}$_exact)), ZERO)
             if (allocated(error)) return
         #:endfor
     end subroutine test_${RName}$

test/math/test_stdlib_math.fypp

@@ -170,9 +170,9 @@ contains
         type(error_type), allocatable, intent(out) :: error
         ! type: real(sp), kind: sp
         ! valid test case
-        call check(error, clip(3.025_sp, -5.77_sp, 3.025_sp) == 3.025_sp)
+        call check(error, clip(3.025_sp, -5.77_sp, 3.025_sp), 3.025_sp)
         if (allocated(error)) return
-        call check(error, clip(0.0_sp, -1578.025_sp, -59.68_sp) == -59.68_sp)
+        call check(error, clip(0.0_sp, -1578.025_sp, -59.68_sp), -59.68_sp)
         if (allocated(error)) return
     end subroutine test_clip_rsp
 
@@ -215,9 +215,9 @@ contains
 #:if WITH_QP
         ! type: real(qp), kind: qp
         ! valid test case
-        call check(error, clip(3.025_qp, -5.77_qp, 3.025_qp) == 3.025_qp)
+        call check(error, clip(3.025_qp, -5.77_qp, 3.025_qp), 3.025_qp)
         if (allocated(error)) return
-        call check(error, clip(-55891546.2_qp, -8958133457.23_qp, -689712245.23_qp) == -689712245.23_qp)
+        call check(error, clip(-55891546.2_qp, -8958133457.23_qp, -689712245.23_qp), -689712245.23_qp)
         if (allocated(error)) return
 #:else
         call skip_test(error, "Quadruple precision is not enabled")
@@ -230,9 +230,9 @@ contains
         type(error_type), allocatable, intent(out) :: error
 #:if WITH_QP
         ! invalid test case
-        call check(error, clip(3.025_qp, 3.025_qp, -5.77_qp) == 3.025_qp)
+        call check(error, clip(3.025_qp, 3.025_qp, -5.77_qp), 3.025_qp)
         if (allocated(error)) return
-        call check(error, clip(-55891546.2_qp, -689712245.23_qp, -8958133457.23_qp) == -689712245.23_qp)
+        call check(error, clip(-55891546.2_qp, -689712245.23_qp, -8958133457.23_qp), -689712245.23_qp)
         if (allocated(error)) return
 #:else
         call skip_test(error, "Quadruple precision is not enabled")