Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Revert "Silly workaround for coverage build with gcc-10."
[simgrid.git] / teshsuite / smpi / mpich3-test / f90 / coll / uallreducef90.f90
index 023eec0..574d649 100644 (file)
       integer count, datatype
       integer i
       
-!      if (datatype .ne. MPI_INTEGER) then
-!         print *, 'Invalid datatype (',datatype,') passed to user_op()'
-!         return
-!      endif
+      if (datatype .ne. MPI_INTEGER) then
+         print *, 'Invalid datatype (',datatype,') passed to user_op()'
+         return
+      endif
 
       do i=1, count
          cout(i) = cin(i) + cout(i)