From 49d3c973a6f5b14206663303ec9a978b9d7923ea Mon Sep 17 00:00:00 2001 From: Ben Hourahine Date: Sat, 7 May 2022 14:05:50 +0100 Subject: [PATCH] Fix partially re-named logical Left over changes from 80b13e5 --- test/test_allgather.f90 | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/test/test_allgather.f90 b/test/test_allgather.f90 index 42933b0..fdd494c 100644 --- a/test/test_allgather.f90 +++ b/test/test_allgather.f90 @@ -24,11 +24,11 @@ program test_allgather write(formstr, "(A,I0,A)") "A,", size(recv1), "(1X,I0))" write(*, label // formstr) 2, mycomm%rank, "Recv1 buffer:", recv1(:) if (sum(recv1) /= mycomm%size * (mycomm%size-1)) then - tPassed = .false. + isPassed = .false. else - tPassed = .true. + isPassed = .true. end if - call testReturn(mycomm, tPassed) + call testReturn(mycomm, isPassed) deallocate(recv1) ! I1 -> I1 @@ -42,11 +42,11 @@ program test_allgather write(formstr, "(A,I0,A)") "A,", size(recv1), "(1X,I0))" write(*, label // formstr) 4, mycomm%rank, "Recv1 buffer:", recv1 if (sum(recv1) /= mycomm%size**2) then - tPassed = .false. + isPassed = .false. else - tPassed = .true. + isPassed = .true. end if - call testReturn(mycomm, tPassed) + call testReturn(mycomm, isPassed) ! I1 -> I2 allocate(recv2(size(send1), mycomm%size)) @@ -58,11 +58,11 @@ program test_allgather write(formstr, "(A,I0,A)") "A,", size(recv2), "(1X,I0))" write(*, label // formstr) 6, mycomm%rank, "Recv2 buffer:", recv2 if (sum(recv1) /= mycomm%size**2) then - tPassed = .false. + isPassed = .false. else - tPassed = .true. + isPassed = .true. end if - call testReturn(mycomm, tPassed) + call testReturn(mycomm, isPassed) call mpifx_finalize()