From a6f3add98f1c02eeee9c3c4f9bda9ef6415586f9 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 1 Jul 2020 11:17:12 -0400 Subject: Pass actual timeout variable size on win32 and unix. --- network.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'network.F90') 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 -- cgit v1.2.3