teshsuite/smpi/mpich-test/coll/bcast2.f

   1       program test
   2 C
   3 C This program hangs when run with the version of MPICH (1.1.2) distributed
   4 C by Myricom using their ch_gm device.  I've added it to our collection
   5 C on general principle; note that it hasn't been put into a form usable
   6 C by our tests yet
   7 C
   8       include 'mpif.h'
   9       integer comm_size,comm_rank,status(mpi_status_size)
  10       integer at_number,chunk
  11       double precision T0,D
  12       at_number=0
  13       chunk=0
  14       T0=3D3048.48883
  15       D=3D3877.4888
  16       call mpi_init(ierror)
  17       call mpi_comm_size(mpi_comm_world,comm_size,ierror)
  18       call mpi_comm_rank(mpi_comm_world,comm_rank,ierror)
  19       CALL MPI_BCAST(at_number,1,mpi_integer,0,mpi_comm_world,ierr)
  20       CALL MPI_BCAST(chunk,1,mpi_integer,0,mpi_comm_world,ierr)
  21       CALL MPI_BCAST(T0,1,mpi_double_precision,0,mpi_comm_world,ierr)
  22       CALL MPI_BCAST(D,1,mpi_double_precision,0,mpi_comm_world,ierr)
  23
  24       write(6,*) 'Rank=3D',comm_rank,' finished bcast'
  25       do i=3D1,99999
  26         T0=3Di*1.0d0
  27         d=3Dt0**.987
  28         do j=3D1,100
  29             a=3Dj**.2
  30         enddo
  31       enddo
  32       write(6,*) 'Rank=3D',comm_rank,' finished calculations'
  33       call mpi_finalize(ierror)
  34       stop
  35       en
  36 C
  37 C Run with mpirun -np 16 test