Skip to content

Commit dc8c795

Browse files
author
Alessandro Fanfarillo
committed
Removing MPI_INTEGER_2 to be compatible with MPI-MPT
1 parent 2fa998a commit dc8c795

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

src/mpi/mpi_caf.c

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -4158,13 +4158,13 @@ GEN_REDUCTION (do_max_int1, int8_t,
41584158
inoutvec[i] = invec[i] <= inoutvec[i] ? inoutvec[i] : invec[i])
41594159
#endif
41604160

4161-
#ifndef MPI_INTEGER2
4162-
GEN_REDUCTION (do_sum_int1, int16_t, inoutvec[i] += invec[i])
4163-
GEN_REDUCTION (do_min_int1, int16_t,
4164-
inoutvec[i] = invec[i] >= inoutvec[i] ? inoutvec[i] : invec[i])
4165-
GEN_REDUCTION (do_max_int1, int16_t,
4166-
inoutvec[i] = invec[i] <= inoutvec[i] ? inoutvec[i] : invec[i])
4167-
#endif
4161+
/* #ifndef MPI_INTEGER2 */
4162+
/* GEN_REDUCTION (do_sum_int1, int16_t, inoutvec[i] += invec[i]) */
4163+
/* GEN_REDUCTION (do_min_int1, int16_t, */
4164+
/* inoutvec[i] = invec[i] >= inoutvec[i] ? inoutvec[i] : invec[i]) */
4165+
/* GEN_REDUCTION (do_max_int1, int16_t, */
4166+
/* inoutvec[i] = invec[i] <= inoutvec[i] ? inoutvec[i] : invec[i]) */
4167+
/* #endif */
41684168

41694169
#if defined(MPI_INTEGER16) && defined(GFC_INTEGER_16)
41704170
GEN_REDUCTION (do_sum_int1, GFC_INTEGER_16, inoutvec[i] += invec[i])

0 commit comments

Comments
 (0)