diff --git a/test/fc_mpi/src/example.f90 b/test/fc_mpi/src/example.f90
index 4b602e7..0f636ca 100644
--- a/test/fc_mpi/src/example.f90
+++ b/test/fc_mpi/src/example.f90
@@ -12,7 +12,7 @@ program example
    call MPI_COMM_SIZE(MPI_COMM_WORLD, num_ranks, ierr)
    call MPI_FINALIZE(ierr)
 
-   test_ok = (num_ranks == 2. and. (rank == 0 .or. rank == 1))
+   test_ok = (num_ranks == 2 .and. (rank == 0 .or. rank == 1))
 
    if (test_ok) then
       if (rank == 0) print *, 'PASSED'