1 module posixio 2 interface 3 subroutine posixio_setup(handle, mode) 4 & bind(C, NAME='posixio_setup') 5 use :: iso_c_binding 6 type(c_ptr) :: handle 7 character(c_char), value :: mode 8 end subroutine 9 end interface 10 end module 11