diff --git a/src/control.F90 b/src/control.F90
index e0c326b0db1d14b744257a13a6ccf65a4bd98965..81412cc898c8a081b6bbd4258224a4e056ba7639 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -20,7 +20,6 @@ SUBROUTINE control
   !           ]   1.   Prologue
 
   !                   1.0     Initialize the parallel environment
-  CALL speak('Init MPI [',2)
   CALL ppinit
   CALL speak('] MPI initialized',2)
   CALL mpi_barrier(MPI_COMM_WORLD, ierr)