Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
type(streampointer) | :: | fp | ||||
integer | :: | ierr |
program demo_process_close
use M_process ,ONLY: process_open_read, process_open_write
use M_process ,ONLY: streampointer, process_close
implicit none
type(streampointer) :: fp
integer :: ierr
! open process to read from
call process_open_read('ls -l',fp,ierr)
write(*,*)'CLOSE : process is opened with status ',ierr
call process_close(fp,ierr)
write(*,*)'CLOSE : process closed with status ',ierr
end program demo_process_close