Commit d378c8ef authored by Rajeev Thakur's avatar Rajeev Thakur
Browse files

[svn-r999] checking back in support for MPI_SIGNED_CHAR as it is not the cause...

[svn-r999] checking back in support for MPI_SIGNED_CHAR as it is not the cause of the MPI_Reduce_scatter_user errors in Intel test suite
parent 5f496814
......@@ -141,6 +141,13 @@ 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;
......@@ -187,6 +194,7 @@ 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 */
......
......@@ -140,6 +140,13 @@ 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;
......@@ -187,6 +194,7 @@ 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 */
......
......@@ -141,6 +141,13 @@ 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;
......@@ -188,6 +195,7 @@ 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 */
......
......@@ -89,6 +89,13 @@ 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;
......@@ -248,6 +255,7 @@ 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
......
......@@ -89,6 +89,13 @@ 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;
......@@ -247,6 +254,7 @@ 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
......
......@@ -90,6 +90,13 @@ 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;
......@@ -248,6 +255,7 @@ 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
......
......@@ -165,6 +165,13 @@ 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;
......@@ -238,6 +245,7 @@ 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
......
......@@ -165,6 +165,13 @@ 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;
......@@ -238,6 +245,7 @@ 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
......
......@@ -179,6 +179,13 @@ 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;
......@@ -275,6 +282,7 @@ 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
......
......@@ -180,6 +180,13 @@ 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;
......@@ -274,6 +281,7 @@ 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