          program demo_system_getsid
          use M_system,      only : system_getsid
          use ISO_C_BINDING, only : c_int
          implicit none
             write(*,*)'SID=',system_getsid(0_c_int)
          end program demo_system_getsid
