Fixed usleep
This commit is contained in:
parent
1120d572fa
commit
edd2276b75
|
@ -0,0 +1,6 @@
|
|||
#include <unistd.h>
|
||||
|
||||
void usleep_c(int s)
|
||||
{
|
||||
usleep((useconds_t) s);
|
||||
}
|
|
@ -2,7 +2,7 @@ module c_functions
|
|||
use iso_c_binding
|
||||
|
||||
interface
|
||||
subroutine usleep_c(us) bind (C,name="usleep")
|
||||
subroutine usleep_c(us) bind (C,name="usleep_c")
|
||||
use iso_c_binding
|
||||
integer(c_int), value :: us
|
||||
end subroutine usleep_c
|
||||
|
|
Loading…
Reference in New Issue