Update example_process_4.f90

fortran-lang · Jan 28, 2025 · d1a4715 · d1a4715
1 parent e75bbc9
commit d1a4715
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/example/system/example_process_4.f90 b/example/system/example_process_4.f90
@@ -1,12 +1,12 @@
 ! Process example 4: Kill a running process
 program example_process_kill
-    use stdlib_system, only: process_type, runasync, is_running, kill, elapsed, has_win32, sleep
+    use stdlib_system, only: process_type, runasync, is_running, kill, elapsed, is_windows, sleep
     implicit none
     type(process_type) :: process
     logical :: running, success
 
     print *, "Starting a long-running process..."
-    if (has_win32()) then
+    if (is_windows()) then
         process = runasync("ping -n 10 127.0.0.1")
     else
         process = runasync("ping -c 10 127.0.0.1")