基于WS2_32的Fortran(ifort) Socket接收超时设置问题

Windows平台下，SO_RCVTIMEO选项要求传入的是**TIMEVAL结构体**，而非单一整数或字符数组。之前的类型不匹配导致要么编译失败，要么设置无效。

步骤1：正确定义TIMEVAL结构体 #

在Fortran中需要对应C语言的struct timeval定义，必须用BIND(C)保证内存布局与C一致：

USE, INTRINSIC :: ISO_C_BINDING
IMPLICIT NONE

! 对应C的struct timeval，保证内存布局匹配
TYPE, BIND(C) :: TIMEVAL
    INTEGER(C_LONG) :: tv_sec  ! 超时秒数
    INTEGER(C_LONG) :: tv_usec ! 超时微秒数（1秒=1000000微秒）
END TYPE TIMEVAL

步骤2：正确设置超时并调用setsockopt #

创建TIMEVAL实例，设置目标超时时间，再通过正确的参数传递调用setsockopt：

TYPE(TIMEVAL) :: Timeout
INTEGER :: status, connection
! ... 省略WSAStartup、socket创建等已有代码

! 设置10毫秒超时：0秒 + 10*1000微秒
Timeout%tv_sec = 0_C_LONG
Timeout%tv_usec = 10000_C_LONG

! 调用setsockopt，注意传递结构体地址和字节大小
status = setsockopt(connection, SOL_SOCKET, SO_RCVTIMEO, &
                   C_LOC(Timeout), C_SIZEOF(Timeout))

IF (status /= 0) THEN
    PRINT *, "setsockopt失败，错误码：", WSAGetLastError()
END IF

! 后续执行connect操作
! ...

之前错误的原因说明 #

• 使用Integer(4)或DWORD：SO_RCVTIMEO不接受单一整数类型参数，必须传入完整的TIMEVAL结构体，因此编译报错。
• 使用Character(4)：虽然编译通过且返回成功，但字符数组的内存布局与TIMEVAL结构体完全不匹配，系统无法识别正确的超时值，因此不会触发超时逻辑。

关键注意事项 #

• 必须在**connect调用之前**设置SO_RCVTIMEO，否则可能无法生效。
• 超时时间由tv_sec（秒）和tv_usec（微秒）共同组成，可根据需求组合设置（例如10秒超时：tv_sec=10_C_LONG，tv_usec=0_C_LONG）。
• Fortran调用C接口时，必须用C_LOC()获取结构体的内存地址，用C_SIZEOF()获取结构体的字节大小，确保参数传递符合C规范。

内容的提问来源于stack exchange，提问作者why.n0t