aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-07-01 11:17:12 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-07-01 11:17:12 -0400
commita6f3add98f1c02eeee9c3c4f9bda9ef6415586f9 (patch)
treee1180c86f0b18a1ed4eaad9aeb9d13fe9e8f29d0
parentf79e9ee7426fa784a6f90c804338bd7b173c1a84 (diff)
downloadLR-87-a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9.zip
LR-87-a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9.tar.gz
Pass actual timeout variable size on win32 and unix.
-rw-r--r--network.F902
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