From 423eb8bcf291337b646a1c6c021c7abf20413f9a Mon Sep 17 00:00:00 2001
From: Radovan Bast <bast@users.noreply.github.com>
Date: Fri, 7 Aug 2015 17:02:45 +0200
Subject: [PATCH] fix typo

---
 test/fc_mpi/src/example.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'