From 9b74beae7f5e5347861ebfde93db605056febe5f Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Thu, 26 Dec 2024 12:31:49 +0100 Subject: [PATCH] process example 2: set max_wait_time --- example/system/example_process_2.f90 | 2 +- example/system/example_process_4.f90 | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/example/system/example_process_2.f90 b/example/system/example_process_2.f90 index fc7f57948..249fd0794 100644 --- 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 index bacfde5cf..b2850cd8a 100644 --- 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