AnotherFoxGuy/autocmake
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix typo

Browse Source
This commit is contained in:
Radovan Bast 2015-08-07 17:02:45 +02:00
parent c7054178b4
commit 423eb8bcf2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/fc_mpi/src/example.f90
View File

@ -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'