diff --git a/test/test_allgather.f90 b/test/test_allgather.f90
index 437734c..42933b0 100644
--- a/test/test_allgather.f90
+++ b/test/test_allgather.f90
@@ -10,7 +10,7 @@ program test_allgather
   integer, allocatable :: recv1(:), recv2(:,:)
   character(100) :: formstr
   character(*), parameter :: label = "(I2.2,'-',I3.3,'|',1X"
-  logical :: tPassed
+  logical :: isPassed
 
   call mpifx_init()
   call mycomm%init()