From 06e5783b727e65d1460e6ee25570e2447631d8fd Mon Sep 17 00:00:00 2001
From: Ye Luo <yeluo@anl.gov>
Date: Sun, 27 Jun 2021 13:28:11 -0500
Subject: [PATCH] Fix GNU warning.

---
 UtilXlib/print_mem.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/UtilXlib/print_mem.f90 b/UtilXlib/print_mem.f90
index 2bf173cda..058fdf5c0 100644
--- a/UtilXlib/print_mem.f90
+++ b/UtilXlib/print_mem.f90
@@ -39,5 +39,8 @@ subroutine print_gpu_mem(out_unit)
   usedMB = (totalMem-freeMem)/(1024*1024);
   write(out_unit,'(5X, "GPU memory used/free/total (MiB): ", I0, A3, I0,A3, I0)') &
               & usedMB, " / ", freeMB, " / ", totalMB
+#else
+  implicit none
+  integer, intent(in) :: out_unit
 #endif
 end subroutine