File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -340,7 +340,9 @@ SUBROUTINE FinalizeTestcase()
340340USE MOD_Globals
341341IMPLICIT NONE
342342! ==================================================================================================================================
343- IF (MPIRoot) SDEALLOCATE(writeBuf)
343+ IF (MPIRoot) THEN
344+ SDEALLOCATE(writeBuf)
345+ END IF
344346END SUBROUTINE
345347
346348
Original file line number Diff line number Diff line change @@ -375,7 +375,9 @@ SUBROUTINE FinalizeTestcase()
375375USE MOD_TestCase_Vars,ONLY:writeBuf
376376IMPLICIT NONE
377377! ==================================================================================================================================
378- IF (MPIRoot) SDEALLOCATE(writeBuf)
378+ IF (MPIRoot) THEN
379+ SDEALLOCATE(writeBuf)
380+ END IF
379381END SUBROUTINE
380382
381383
You can’t perform that action at this time.
0 commit comments