diff --git a/src/dbm/dbm_miniapp.c b/src/dbm/dbm_miniapp.c
index a09face0a1..efeed900b3 100644
--- a/src/dbm/dbm_miniapp.c
+++ b/src/dbm/dbm_miniapp.c
@@ -26,7 +26,8 @@
  * \brief Wrapper for printf, passed to dbm_library_print_stats.
  * \author Ole Schuett
  ******************************************************************************/
-static void print_func(const char *msg, int /*msglen*/, int output_unit) {
+static void print_func(const char *msg, int msglen, int output_unit) {
+  (void)msglen;           // mark used
   if (output_unit == 0) { // i.e. my_rank == 0
     printf("%s", msg);
   }
diff --git a/src/pao_model.F b/src/pao_model.F
index 7b8158b843..95e07389ae 100644
--- a/src/pao_model.F
+++ b/src/pao_model.F
@@ -358,7 +358,9 @@ CONTAINS
       NULLIFY (predicted_xblock)
       CALL torch_dict_get(model_outputs, "xblock", predicted_xblock_tensor)
       CALL torch_tensor_data_ptr(predicted_xblock_tensor, predicted_xblock)
-      CPASSERT(SIZE(predicted_xblock, 1) == n .AND. SIZE(predicted_xblock, 2) == m .AND. SIZE(predicted_xblock, 3) == 1)
+      CPASSERT(SIZE(predicted_xblock, 1) == n)
+      CPASSERT(SIZE(predicted_xblock, 2) == m)
+      CPASSERT(SIZE(predicted_xblock, 3) == 1)
       IF (PRESENT(block_X)) THEN
          block_X = RESHAPE(predicted_xblock, [n*m, 1])
       END IF