That was added at some point because we couldn't comply. We can, now.

diff --git a/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90 b/teshsuite/smpi/mpich3-test/f90/coll/uallreducef90.f90
index bc42b54..574d649 100644 (file)
--- 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
       
       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
          print *, 'Invalid datatype (',datatype,') passed to user_op()'
          return
       endif