diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90
index 6dabe835e98..e8473713e7f 100644
--- a/src/flib/piolib_mod.F90
+++ b/src/flib/piolib_mod.F90
@@ -1023,6 +1023,9 @@ integer(c_int) function PIOc_Init_Intracomm_from_F90(f90_comp_comm, num_iotasks,
        end function PIOc_Init_Intracomm_from_F90
     end interface
 
+    if (comp_rank /= 0) continue ! to suppress warning
+    if (num_aggregator /= 0) continue ! to suppress warning
+
 #ifdef TIMING
     call t_startf("PIO:init")
 #endif