Only redirect output if MPI is used

03419806 · Andreas Marek · 828cec00 · 03419806
Commit 03419806 authored Aug 03, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

test/Fortran/test.F90 test/Fortran/test.F90 +1 -1

No files found.
--- a/test/Fortran/test.F90
+++ b/test/Fortran/test.F90
@@ -161,8 +161,8 @@ program test
 #ifdef HAVE_REDIRECT
 #ifdef WITH_MPI
     call MPI_BARRIER(MPI_COMM_WORLD, mpierr)
-#endif
     call redirect_stdout(myid)
+#endif
 #endif

   if (elpa_init(CURRENT_API_VERSION) /= ELPA_OK) then