remove older mpich test suite

[simgrid.git] / teshsuite / smpi / mpich-test / coll / bcast2.f

diff --git a/teshsuite/smpi/mpich-test/coll/bcast2.f b/teshsuite/smpi/mpich-test/coll/bcast2.f
deleted file mode 100644 (file)
index 25b6aa3..0000000
--- a/teshsuite/smpi/mpich-test/coll/bcast2.f
+++ /dev/null
@@ -1,36 +0,0 @@
-      program test
-C
-C This program hangs when run with the version of MPICH (1.1.2) distributed
-C by Myricom using their ch_gm device.  I've added it to our collection
-C on general principle; note that it hasn't been put into a form usable
-C by our tests yet
-C
-      include 'mpif.h'
-      integer comm_size,comm_rank,status(mpi_status_size)
-      integer at_number,chunk
-      double precision T0,D
-      at_number=0
-      chunk=0
-      T0=3D3048.48883
-      D=3D3877.4888
-      call mpi_init(ierror)
-      call mpi_comm_size(mpi_comm_world,comm_size,ierror)
-      call mpi_comm_rank(mpi_comm_world,comm_rank,ierror)
-      CALL MPI_BCAST(at_number,1,mpi_integer,0,mpi_comm_world,ierr)
-      CALL MPI_BCAST(chunk,1,mpi_integer,0,mpi_comm_world,ierr)
-      CALL MPI_BCAST(T0,1,mpi_double_precision,0,mpi_comm_world,ierr)
-      CALL MPI_BCAST(D,1,mpi_double_precision,0,mpi_comm_world,ierr)
-
-      write(6,*) 'Rank=3D',comm_rank,' finished bcast'
-      do i=3D1,99999
-        T0=3Di*1.0d0
-        d=3Dt0**.987
-        do j=3D1,100
-           a=3Dj**.2
-        enddo
-      enddo
-      write(6,*) 'Rank=3D',comm_rank,' finished calculations'
-      call mpi_finalize(ierror)
-      end
-C 
-C Run with mpirun -np 16 test