diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-07-01 11:17:12 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-07-01 11:17:12 -0400 |
| commit | a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9 (patch) | |
| tree | e1180c86f0b18a1ed4eaad9aeb9d13fe9e8f29d0 | |
| parent | f79e9ee7426fa784a6f90c804338bd7b173c1a84 (diff) | |
| download | LR-87-a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9.tar.gz LR-87-a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9.zip | |
Pass actual timeout variable size on win32 and unix.
| -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 |