process example 2: set max_wait_time

fortran-lang · Dec 26, 2024 · 9b74bea · 9b74bea
1 parent 5a1bd54
commit 9b74bea
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/example/system/example_process_2.f90 b/example/system/example_process_2.f90
@@ -16,6 +16,6 @@ program run_async
     end if
 
     ! Wait for the process to complete
-    call wait(p)
+    call wait(p, max_wait_time = 5.0)
     print *, "Process has now completed."
 end program run_async
diff --git a/example/system/example_process_4.f90 b/example/system/example_process_4.f90
@@ -30,8 +30,6 @@ program example_process_kill
 
     ! Verify the process is no longer running
     running = is_running(process)
-    print *, "Process running after kill:", running,' runtime=',elapsed(process)
-
-    stop 0
+    print *, "Process running after kill:", running
 
 end program example_process_kill