LLVM Fortran编译器是否提供getpid()或等效函数获取进程ID？

嘿，好问题！LLVM的Fortran编译器也就是我们常说的Flang，确实有办法获取进程标识符（PID），不过它没有像GNU Fortran那样提供直接的内置getpid()扩展函数，最可靠且跨编译器通用的方式是通过ISO_C_BINDING调用C标准库中的getpid()函数，下面给你详细说明：

核心实现：通过C绑定调用getpid() #

因为类Unix系统（Linux、macOS等）的C标准库都内置了getpid()函数，我们可以在Fortran代码中通过C绑定来调用它，这种方式在Flang、GNU、Intel编译器上都能正常工作：

program get_pid_demo
    use, intrinsic :: iso_c_binding
    implicit none

    ! 声明C语言getpid()函数的接口
    interface
        function c_getpid() bind(C, name='getpid')
            import :: c_int
            integer(c_int) :: c_getpid  ! 返回值为C风格的整数（对应PID）
        end function c_getpid
    end interface

    integer(c_int) :: process_id

    ! 调用获取PID并打印
    process_id = c_getpid()
    print *, "当前进程的标识符（PID）: ", process_id
end program get_pid_demo

编译与运行 #

用Flang编译这段代码的命令很简单：

flang getpid_demo.f90 -o getpid_demo

运行生成的可执行文件，就能输出当前进程的PID了。

补充说明 #

• 如果你之前用过GNU Fortran的call getpid(pid)写法，本质上GCC也是在后台链接了C库并调用了同名函数，而Flang没有提供这个语法糖，所以用C绑定的方式是更通用的选择。
• 这种方法仅适用于类Unix系统，Windows系统下需要调用GetCurrentProcessId()之类的Windows API，不过实现思路类似，也是通过C绑定调用对应系统的函数。

内容的提问来源于stack exchange，提问作者mabalenk