make sure example does not send uninitialized values through MPI to g…

…et caught by valgrind
petsc · Feb 13, 2014 · 4ff6614 · 4ff6614
1 parent 2da8f66
commit 4ff6614
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/tao/leastsquares/examples/tutorials/chwirut2f.F b/src/tao/leastsquares/examples/tutorials/chwirut2f.F
@@ -460,6 +460,7 @@ subroutine TaskWorker(ierr)
       integer status(MPI_STATUS_SIZE)
 
       tag = IDLE_TAG
+      f   = 0.0
       ! Send check-in message to master
       call MPI_Send(f,1,MPIU_SCALAR,0,IDLE_TAG,PETSC_COMM_WORLD,ierr)
       CHKERRQ(ierr)