demo_system_errno Program

Uses

Contents

Source Code


Variables

Type Attributes Name Initial
integer :: stat

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