diff options
| -rw-r--r-- | network.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/network.F90 b/network.F90 index 381dc0f..637d092 100644 --- a/network.F90 +++ b/network.F90 @@ -166,7 +166,7 @@ implicit none socket = socket_c(int(domain, c_int), int(stype, c_int), int(protocol, c_int)) ! Timeout call - ignored = setsockopt(socket, SOL_SOCKET, SO_RCVTIMEO, c_loc(timeout), c_int32_t) + ignored = setsockopt(socket, SOL_SOCKET, SO_RCVTIMEO, c_loc(timeout), timeout_size) end function socket |