system_errno Interface

interface

NAME

system_errno(3f) - [M_system:ERROR_PROCESSING] C error return value
(LICENSE:PD)

SYNOPSIS

integer(kind=c_int) function system_errno()

DESCRIPTION

Many C routines return an error code which can be queried by errno.
The M_system(3fm) is primarily composed of Fortran routines that
call C routines. In the cases where an error code is returned vi
system_errno(3f) these routines will indicate it.

EXAMPLE

Sample program:

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

Typical Results:

err=           2
*demo_system_errno*: No such file or directory

public function system_errno() bind(C,name="my_errno")

Arguments

None

Return Value integer(kind=c_int)