! posix.f90
!
! Fortran 2003 ISO C binding interface to the `errno` variable.
!
! Author:   Philipp Engel
! Date:     2020-03-30
! Licence:  ISC
module posix
    use, intrinsic :: iso_c_binding, only: c_int
    implicit none

    public :: c_errno

    ! Interface to `error_number()` in `errno.c`
    interface
        ! int error_number()
        function c_errno() bind(c, name='error_number')
            import :: c_int
            integer(c_int) :: c_errno
        end function c_errno
    end interface
end module posix