demo_system_mkfifo.f90 Source File

     program demo_system_mkfifo
     use M_system, only : system_mkfifo, system_perror
     !use M_system, only : R_GRP,R_OTH,R_USR,RWX_G,RWX_O
     !use M_system, only : RWX_U,W_GRP,W_OTH,W_USR,X_GRP,X_OTH,X_USR
     !use M_system, only : DEFFILEMODE, ACCESSPERMS
     use M_system, only : W_USR, R_USR, R_GRP, R_OTH
     implicit none
        integer :: status
        status = system_mkfifo("/tmp/buffer", IANY([W_USR, R_USR, R_GRP, R_OTH]))
        if(status.ne.0)then
           call system_perror('*mkfifo* error:')
        endif
     end program demo_system_mkfifo