demo_system_getegid Program

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