From db0995c3f81f17fd36eb72d4cf9aeb30f9b903bf Mon Sep 17 00:00:00 2001 From: degomme Date: Mon, 13 Feb 2017 18:10:37 +0100 Subject: [PATCH] That was added at some point because we couldn't comply. We can, now. --- teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 index bc42b54c6f..574d6490de 100644 --- a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 +++ b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 @@ -13,7 +13,7 @@ integer count, datatype integer i - if (datatype .eq. MPI_INTEGER) then + if (datatype .ne. MPI_INTEGER) then print *, 'Invalid datatype (',datatype,') passed to user_op()' return endif -- 2.20.1