system_getgid Interface

system_getgid(3f) - [M_system:QUERY] get the real group ID (GID) of
                 current process from Fortran by calling getgid(3c)
(LICENSE:PD)

integer(kind=c_int) function system_getgid()

    The getgid() function returns the real group ID of the calling
    process.

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

    No errors are defined.

    getegid(), system_geteuid(), getuid(), setegid(), seteuid(), setgid(),
    setregid(), setreuid(), setuid()

program demo_system_getgid
use M_system, only : system_getgid
implicit none
   write(*,*)'GID=',system_getgid()
end program demo_system_getgid