process ID (pid) getter interface

Author: perazz

example/system/example_process_5.f90

@@ -20,6 +20,6 @@ program example_process_5
 
     end do
 
-    print *, "Process ",process%id," completed in ",process%elapsed()," seconds."
+    print *, "Process ",process%pid()," completed in ",process%elapsed()," seconds."
 
 end program example_process_5

src/stdlib_system.F90

@@ -69,6 +69,9 @@ module stdlib_system
     !! Kill a process
     procedure :: kill         => process_kill
 
+    !! Get process ID
+    procedure :: pid          => process_get_ID
+    
 end type process_type
 
 interface runasync
@@ -363,6 +366,10 @@ end subroutine sleep
     module logical function is_windows()
     end function is_windows
 
+    module integer(process_ID) function process_get_ID(process) result(ID)
+        class(process_type), intent(in) :: process
+    end function process_get_ID
+    
 end interface 
 
 end module stdlib_system

src/stdlib_system_subprocess.F90

@@ -706,4 +706,10 @@ function getfile(fileName,err,delete) result(file)
 
     end function getfile
 
+    !> Return process ID
+    integer(procesS_ID) function process_get_ID(process) result(ID)
+        class(process_type), intent(in) :: process
+        ID = process%id
+    end function process_get_ID
+
 end submodule stdlib_system_subprocess