如何在Fortran中获得终端宽度？

program get_terminal_width
  use, intrinsic :: iso_c_binding
  implicit none
  
  interface
    ! C函数：int ioctl(int fd, int request, ...)
    function ioctl(fd, request, ...) bind(C, name="ioctl")
      import :: c_int, c_size_t
      integer(c_int), value :: fd
      integer(c_int), value :: request
      integer(c_size_t) :: ...
    end function ioctl
  end interface
  
  integer(c_int) :: fd, request, result
  integer(c_size_t) :: winsize(4)
  integer :: terminal_width
  
  ! 获取标准输出的文件描述符
  fd = 1
  
  ! 请求获取窗口大小
  request = 0x5413  ! TIOCGWINSZ
  
  ! 调用ioctl函数获取窗口大小
  result = ioctl(fd, request, winsize)
  
  ! 提取终端宽度
  terminal_width = c_associated(winsize(2), c_int)
  
  ! 输出终端宽度
  print *, "Terminal width:", terminal_width
  
end program get_terminal_width