Skip to content

GitLab

Commit 9d7e6ffa authored by Rajeev Thakur's avatar Rajeev Thakur
Browse files

[svn-r987] backing off changes added for MPI_SIGNED_CHAR in reductions to see... 

[svn-r987] backing off changes added for MPI_SIGNED_CHAR in reductions to see if they are the cause of failures in two of the Intel tests
parent 55d65592
Hide whitespace changes
Inline Side-by-side
src/mpi/coll/opband.c
View file @ 9d7e6ffa
......@@ -141,13 +141,6 @@ void MPIR_BAND (
a[i] = MPIR_LBAND(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LBAND(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -194,7 +187,6 @@ int MPIR_BAND_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_BYTE:
/* The length type can be provided without Fortran, so we do so */
......
src/mpi/coll/opbor.c
View file @ 9d7e6ffa
......@@ -140,13 +140,6 @@ void MPIR_BOR (
a[i] = MPIR_LBOR(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LBOR(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -194,7 +187,6 @@ int MPIR_BOR_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_BYTE:
/* The length type can be provided without Fortran, so we do so */
......
src/mpi/coll/opbxor.c
View file @ 9d7e6ffa
......@@ -141,13 +141,6 @@ void MPIR_BXOR (
a[i] = MPIR_LBXOR(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LBXOR(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -195,7 +188,6 @@ int MPIR_BXOR_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_BYTE:
/* The length type can be provided without Fortran, so we do so */
......
src/mpi/coll/opland.c
View file @ 9d7e6ffa
......@@ -89,13 +89,6 @@ void MPIR_LAND (
a[i] = MPIR_LLAND(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LLAND(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -255,7 +248,6 @@ int MPIR_LAND_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/oplor.c
View file @ 9d7e6ffa
......@@ -89,13 +89,6 @@ void MPIR_LOR (
a[i] = MPIR_LLOR(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LLOR(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -254,7 +247,6 @@ int MPIR_LOR_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/oplxor.c
View file @ 9d7e6ffa
......@@ -90,13 +90,6 @@ void MPIR_LXOR (
a[i] = MPIR_LLXOR(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LLXOR(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -255,7 +248,6 @@ int MPIR_LXOR_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/opmax.c
View file @ 9d7e6ffa
......@@ -165,13 +165,6 @@ void MPIR_MAXF(
a[i] = MPIR_MAX(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_MAX(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -245,7 +238,6 @@ int MPIR_MAXF_check_dtype( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/opmin.c
View file @ 9d7e6ffa
......@@ -165,13 +165,6 @@ void MPIR_MINF (
a[i] = MPIR_MIN(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_MIN(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -245,7 +238,6 @@ int MPIR_MINF_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/opprod.c
View file @ 9d7e6ffa
......@@ -179,13 +179,6 @@ void MPIR_PROD (
a[i] = MPIR_LPROD(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LPROD(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -282,7 +275,6 @@ int MPIR_PROD_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
src/mpi/coll/opsum.c
View file @ 9d7e6ffa
......@@ -180,13 +180,6 @@ void MPIR_SUM (
a[i] = MPIR_LSUM(a[i],b[i]);
break;
}
case MPI_SIGNED_CHAR: {
signed char * restrict a = (signed char *)inoutvec;
signed char * restrict b = (signed char *)invec;
for ( i=0; i<len; i++ )
a[i] = MPIR_LSUM(a[i],b[i]);
break;
}
case MPI_UNSIGNED_CHAR: {
unsigned char * restrict a = (unsigned char *)inoutvec;
unsigned char * restrict b = (unsigned char *)invec;
......@@ -281,7 +274,6 @@ int MPIR_SUM_check_dtype ( MPI_Datatype type )
#ifdef HAVE_FORTRAN_BINDING
case MPI_CHARACTER:
#endif
case MPI_SIGNED_CHAR:
case MPI_UNSIGNED_CHAR:
case MPI_FLOAT:
#ifdef HAVE_FORTRAN_BINDING
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment