2 c test bcast of logical
3 c works on suns, needs mpich fix and heterogeneous test on alpha with PC
5 integer myid, numprocs, rc, ierr
10 call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
11 call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
15 call MPI_BCAST(boo,1,MPI_LOGICAL,0,MPI_COMM_WORLD,ierr)
16 if (boo .neqv. .true.) then
17 print *, 'Did not broadcast Fortran logical (true)'
22 call MPI_BCAST(boo,1,MPI_LOGICAL,0,MPI_COMM_WORLD,ierr)
23 if (boo .neqv. .false.) then
24 print *, 'Did not broadcast Fortran logical (false)'
27 call MPI_Reduce( errs, toterrs, 1, MPI_INTEGER, MPI_SUM,
28 $ 0, MPI_COMM_WORLD, ierr )
30 if (toterrs .eq. 0) then
33 print *, ' Found ', toterrs, ' errors'
38 C do not use stop with smpi, it causes errors, as does exit