X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c81c99a491282f76757c2673961e3cdee6853539..b7dc075d2c3bdf2b384cb8897d16a4c0aa8ab0f7:/teshsuite/smpi/mpich-test/pt2pt/typebasef.f

diff --git a/teshsuite/smpi/mpich-test/pt2pt/typebasef.f b/teshsuite/smpi/mpich-test/pt2pt/typebasef.f
deleted file mode 100644
index 3bb6a2481d..0000000000
--- a/teshsuite/smpi/mpich-test/pt2pt/typebasef.f
+++ /dev/null
@@ -1,71 +0,0 @@
-C
-C Fortran program to test the basic Fortran types
-C 
-      subroutine SetupBasicTypes( basictypes, basicnames )
-      include 'mpif.h'
-      integer basictypes(*)
-      character*40 basicnames(*)
-C
-      basictypes(1) = MPI_INTEGER
-      basictypes(2) = MPI_REAL
-      basictypes(3) = MPI_DOUBLE_PRECISION
-      basictypes(4) = MPI_COMPLEX
-      basictypes(5) = MPI_LOGICAL
-      basictypes(6) = MPI_CHARACTER
-      basictypes(7) = MPI_BYTE
-      basictypes(8) = MPI_PACKED
-C      
-      basicnames(1) = 'INTEGER'
-      basicnames(2) = 'REAL'
-      basicnames(3) = 'DOUBLE PRECISION'
-      basicnames(4) = 'COMPLEX'
-      basicnames(5) = 'LOGICAL'
-      basicnames(6) = 'CHARACTER'
-      basicnames(7) = 'BYTE'
-      basicnames(8) = 'PACKED'
-C
-      return
-      end
-C
-      program main
-      include 'mpif.h'
-      integer basictypes(8)
-      character*40 basicnames(8)
-      integer i, errcnt, ierr
-      integer size, extent, ub, lb
-C
-      call mpi_init(ierr)
-C
-      call SetupBasicTypes( basictypes, basicnames )
-C
-      errcnt = 0
-      do 10 i=1,8 
-         call MPI_Type_size( BasicTypes(i), size, ierr )
-         call MPI_Type_extent( BasicTypes(i), extent, ierr )
-         call MPI_Type_lb( BasicTypes(i), lb, ierr )
-         call MPI_Type_ub( BasicTypes(i), ub, ierr )
-         if (size .ne. extent) then
-	    errcnt = errcnt + 1
-            print *, "size (", size, ") != extent (", extent, 
-     *         ") for basic type ", basicnames(i)
-	 endif
-         if (lb .ne. 0) then
-            errcnt = errcnt + 1
-            print *, "Lowerbound of ", basicnames(i), " was ", lb, 
-     *         " instead of 0" 
-         endif
-         if (ub .ne. extent) then
-            errcnt = errcnt + 1
-            print *, "Upperbound of ", basicnames(i), " was ",
-     *        ub, " instead of ", extent
-         endif
- 10   continue
-C
-      if (errcnt .gt. 0) then
-         print *, "Found ", errcnt, " errors in testing Fortran types"
-      else
-         print *, " Found no errors in basic Fortran "
-      endif
-C
-      call mpi_finalize(ierr)
-      end