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