Merge branch 'master' into clean_events

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / ext / ctypesfromc.c

diff --git a/teshsuite/smpi/mpich3-test/f77/ext/ctypesfromc.c b/teshsuite/smpi/mpich3-test/f77/ext/ctypesfromc.c
index 51015da..e0e5f60 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/ext/ctypesfromc.c
+++ b/teshsuite/smpi/mpich3-test/f77/ext/ctypesfromc.c
@@ -11,8 +11,8 @@
  * The tests follow this pattern:
  *
  *  Fortran main program
- *     calls the c routine f2ctype with each of the C types and the name of 
- *     the type.  That c routine using MPI_Type_f2c to convert the 
+ *     calls the c routine f2ctype with each of the C types and the name of
+ *     the type.  That c routine using MPI_Type_f2c to convert the
  *     Fortran handle to a C handle, and then compares it to the corresponding
  *     C type, which is found by looking up the C handle by name
  *
@@ -60,18 +60,18 @@ static mpi_names_t mpi_names[] = {
     { MPI_SHORT_INT, "MPI_SHORT_INT" },
     { MPI_2INT, "MPI_2INT" },
     { MPI_LONG_DOUBLE, "MPI_LONG_DOUBLE" },
-    { MPI_LONG_LONG_INT, "MPI_LONG_LONG_INT" }, 
+    { MPI_LONG_LONG_INT, "MPI_LONG_LONG_INT" },
     { MPI_LONG_LONG, "MPI_LONG_LONG" },
-    { MPI_UNSIGNED_LONG_LONG, "MPI_UNSIGNED_LONG_LONG" }, 
+    { MPI_UNSIGNED_LONG_LONG, "MPI_UNSIGNED_LONG_LONG" },
     { MPI_LONG_DOUBLE_INT, "MPI_LONG_DOUBLE_INT" },
     { 0, (char *)0 },  /* Sentinal used to indicate the last element */
 };
 
-/* 
+/*
    Name mapping.  All routines are created with names that are lower case
    with a single trailing underscore.  This matches many compilers.
    We use #define to change the name for Fortran compilers that do
-   not use the lowercase/underscore pattern 
+   not use the lowercase/underscore pattern
 */
 
 #ifdef F77_NAME_UPPER
@@ -85,7 +85,7 @@ static mpi_names_t mpi_names[] = {
       defined(F77_NAME_MIXED_USCORE)
 /* Else leave name alone (routines have no underscore, so both
    of these map to a lowercase, single underscore) */
-#else 
+#else
 #error 'Unrecognized Fortran name mapping'
 #endif
 
@@ -103,8 +103,8 @@ int f2ctype_( MPI_Fint *fhandle, MPI_Fint *typeidx )
     if (ctype != mpi_names[*typeidx].dtype) {
        char mytypename[MPI_MAX_OBJECT_NAME];
        int mytypenamelen;
-       /* An implementation is not *required* to deliver the 
-          corresponding C version of the MPI Datatype bit-for-bit.  But 
+       /* An implementation is not *required* to deliver the
+          corresponding C version of the MPI Datatype bit-for-bit.  But
           if *must* act like it - e.g., the datatype name must be the same */
        MPI_Type_get_name( ctype, mytypename, &mytypenamelen );
        if (strcmp( mytypename, mpi_names[*typeidx].name ) != 0) {
@@ -113,6 +113,6 @@ int f2ctype_( MPI_Fint *fhandle, MPI_Fint *typeidx )
                    mpi_names[*typeidx].name, mytypename, *fhandle, MPI_Type_c2f( ctype ) );
        }
     }
-    
+
     return errs;
 }