remove unwanted files

[simgrid.git] / teshsuite / smpi / mpich-test / pt2pt / send1.f

diff --git a/teshsuite/smpi/mpich-test/pt2pt/send1.f b/teshsuite/smpi/mpich-test/pt2pt/send1.f
index c0c954e..141f2d2 100644 (file)
--- a/teshsuite/smpi/mpich-test/pt2pt/send1.f
+++ b/teshsuite/smpi/mpich-test/pt2pt/send1.f
@@ -28,17 +28,15 @@ C
       INTEGER STATUS(MPI_STATUS_SIZE)
       
       INTEGER TAG_UP_BD
-      LOGICAL FLAG
       
       CALL MPI_INIT(IERR)
       CALL MPI_COMM_RANK
      $     (MPI_COMM_WORLD,INODE,IERR)
       CALL MPI_COMM_SIZE
      $     (MPI_COMM_WORLD,ITOTNODE,IERR)
-      CALL MPI_ATTR_GET
-     $     (MPI_COMM_WORLD,MPI_TAG_UB,TAG_UP_BD,FLAG,IERR)
-      
-      IF (.NOT.FLAG) STOP
+C      CALL MPI_ATTR_GET
+C     $     (MPI_COMM_WORLD,MPI_TAG_UB,TAG_UP_BD,FLAG,IERR)
+      TAG_UP_BD=1000000
       
       CALL MPI_BARRIER(MPI_COMM_WORLD,IERR)