demo_system_errno.f90 Source File


Contents

Source Code


Source Code

     program demo_system_errno
     use M_system, only : system_errno, system_unlink, system_perror
     implicit none
     integer :: stat
     stat=system_unlink('not there/OR/anywhere')
     if(stat.ne.0)then
             write(*,*)'err=',system_errno()
             call system_perror('*demo_system_errno*')
     endif
     end program demo_system_errno