Kill trailing whitespaces in teshsuite/smpi/{isp,mpich3-test}.

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / datatype / allctypesf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/datatype/allctypesf.f b/teshsuite/smpi/mpich3-test/f77/datatype/allctypesf.f
index f4c5e3f..ea6c086 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/datatype/allctypesf.f
+++ b/teshsuite/smpi/mpich3-test/f77/datatype/allctypesf.f
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2004 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -8,7 +8,7 @@ C
       integer atype, ierr
 C
       call mtest_init(ierr)
-      call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN, 
+      call mpi_comm_set_errhandler( MPI_COMM_WORLD, MPI_ERRORS_RETURN,
      *                              ierr )
 C
 C     Check that all Ctypes are available in Fortran (MPI 2.1, p 483, line 46)
@@ -30,15 +30,15 @@ C
          call checkdtype( MPI_LONG_DOUBLE, "MPI_LONG_DOUBLE", ierr )
        endif
        if (MPI_LONG_LONG_INT .ne. MPI_DATATYPE_NULL) then
-         call checkdtype2( MPI_LONG_LONG_INT, "MPI_LONG_LONG_INT", 
+         call checkdtype2( MPI_LONG_LONG_INT, "MPI_LONG_LONG_INT",
      *                     "MPI_LONG_LONG", ierr )
        endif
        if (MPI_UNSIGNED_LONG_LONG .ne. MPI_DATATYPE_NULL) then
-         call checkdtype( MPI_UNSIGNED_LONG_LONG, 
+         call checkdtype( MPI_UNSIGNED_LONG_LONG,
      *                    "MPI_UNSIGNED_LONG_LONG", ierr )
        endif
        if (MPI_LONG_LONG .ne. MPI_DATATYPE_NULL) then
-         call checkdtype2( MPI_LONG_LONG, "MPI_LONG_LONG", 
+         call checkdtype2( MPI_LONG_LONG, "MPI_LONG_LONG",
      *                     "MPI_LONG_LONG_INT", ierr )
        endif
        call checkdtype( MPI_PACKED, "MPI_PACKED", ierr )
@@ -58,7 +58,7 @@ C     Check that all Ctypes are available in Fortran (MPI 2.2)
 C     Note that because of implicit declarations in Fortran, this
 C     code should compile even with pre MPI 2.2 implementations.
 C
-       if (MPI_VERSION .gt. 2 .or. (MPI_VERSION .eq. 2 .and. 
+       if (MPI_VERSION .gt. 2 .or. (MPI_VERSION .eq. 2 .and.
      *      MPI_SUBVERSION .ge. 2)) then
           call checkdtype( MPI_INT8_T, "MPI_INT8_T", ierr )
           call checkdtype( MPI_INT16_T, "MPI_INT16_T", ierr )
@@ -72,15 +72,15 @@ C other C99 types
           call checkdtype( MPI_C_BOOL, "MPI_C_BOOL", ierr )
           call checkdtype( MPI_C_FLOAT_COMPLEX, "MPI_C_FLOAT_COMPLEX",
      *                     ierr)
-          call checkdtype2( MPI_C_COMPLEX, "MPI_C_COMPLEX", 
+          call checkdtype2( MPI_C_COMPLEX, "MPI_C_COMPLEX",
      *                      "MPI_C_FLOAT_COMPLEX", ierr )
-          call checkdtype( MPI_C_DOUBLE_COMPLEX, "MPI_C_DOUBLE_COMPLEX", 
+          call checkdtype( MPI_C_DOUBLE_COMPLEX, "MPI_C_DOUBLE_COMPLEX",
      *                     ierr )
           if (MPI_C_LONG_DOUBLE_COMPLEX .ne. MPI_DATATYPE_NULL) then
-            call checkdtype( MPI_C_LONG_DOUBLE_COMPLEX, 
+            call checkdtype( MPI_C_LONG_DOUBLE_COMPLEX,
      *                       "MPI_C_LONG_DOUBLE_COMPLEX", ierr )
           endif
-C address/offset types 
+C address/offset types
           call checkdtype( MPI_AINT, "MPI_AINT", ierr )
           call checkdtype( MPI_OFFSET, "MPI_OFFSET", ierr )
        endif
@@ -96,7 +96,7 @@ C Check name of datatype
       character *(*) name
       integer ir, rlen
       character *(MPI_MAX_OBJECT_NAME) outname
-C     
+C
       outname = ""
       call MPI_TYPE_GET_NAME( intype, outname, rlen, ir )
       if (ir .ne. MPI_SUCCESS) then
@@ -109,7 +109,7 @@ C
             ierr = ierr + 1
          endif
       endif
-      
+
       return
       end
 C
@@ -120,7 +120,7 @@ C Check name of datatype (allows alias)
       character *(*) name, name2
       integer ir, rlen
       character *(MPI_MAX_OBJECT_NAME) outname
-C     
+C
       outname = ""
       call MPI_TYPE_GET_NAME( intype, outname, rlen, ir )
       if (ir .ne. MPI_SUCCESS) then
@@ -133,6 +133,6 @@ C
             ierr = ierr + 1
          endif
       endif
-      
+
       return
       end