system_getppid Interface

system_getppid(3f) - [M_system:QUERY] get parent process ID (PPID) of
                     current process from Fortran by calling getppid(3c)
(LICENSE:PD)

integer(kind=c_int) function system_getppid()

    The system_getppid() function returns the parent process ID of
    the calling process.

    The system_getppid() function should always be successful and no
    return value is reserved to indicate an error.

    No errors are defined.

    exec, fork(), getpgid(), getpgrp(), getpid(), kill(),
    setpgid(), setsid()

program demo_system_getppid
use M_system, only : system_getppid
implicit none
   write(*,*)'PPID=',system_getppid()
end program demo_system_getppid