use f2003 flush statement, not GNU extension flush intrinsic

JeromeCCP9 · Jan 15, 2025 · dcf11bf · dcf11bf
1 parent fcffe4b
commit dcf11bf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/io.F90 b/src/io.F90
@@ -447,8 +447,8 @@ subroutine prterr(error, ie, istdout, istderr, comm)
         call comms_no_sync_send(mesg, 128, 0, le, comm)
       endif
     endif
-    call flush(istdout)
-    call flush(istderr)
+    flush(istdout)
+    flush(istderr)
 
     error%code = code_deactivated
     deallocate (error) ! else allocated error trips uncaught error mechanism (ifdef W90DEV, see io.F90)