Skip to content

Commit d1a4715

Browse files
committed
Update example_process_4.f90
1 parent e75bbc9 commit d1a4715

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

example/system/example_process_4.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
! Process example 4: Kill a running process
22
program example_process_kill
3-
use stdlib_system, only: process_type, runasync, is_running, kill, elapsed, has_win32, sleep
3+
use stdlib_system, only: process_type, runasync, is_running, kill, elapsed, is_windows, sleep
44
implicit none
55
type(process_type) :: process
66
logical :: running, success
77

88
print *, "Starting a long-running process..."
9-
if (has_win32()) then
9+
if (is_windows()) then
1010
process = runasync("ping -n 10 127.0.0.1")
1111
else
1212
process = runasync("ping -c 10 127.0.0.1")

0 commit comments

Comments
 (0)