在 FORTRAN 中插入 NOP [重复]

Question

在C 中，我将使用asm ("nop"); 插入内联NOP 指令。但是，我找不到使用FORTRAN 的方法。

有没有办法强制编译器发出NOP？我使用 gfortran。

这背后的原因是我的 MPI 程序在调用 MPI_Finalize 时会出现段错误，而当我在 MPI_Finalize 之前插入 print *, '' 或 sleep(1) 时不会。为了进一步隔离这种行为，我想在调用之前插入一个NOP，看看是否仍然发生段错误。

编辑：我不知道为什么这个问题会有反对票和关闭请求。进一步搜索，这个问题类似于Segmentation fault during MPI_FINALIZE() in Fortran

Answer 1

似乎segfault 是由于我假设MPI_Finalize(IERR) 中的IERR 是一个可选参数。当我提供一个参数时，它不会再崩溃了。

为了内联NOP，我写了一个C函数，并在fortran中使用BIND C做一个接口。

C 函数

void noop(long n)
{
    while (--n > 0)
        __asm__("nop");
}

FORTRAN 界面

interface
    subroutine nop_inline(n) bind(c, name="noop")
        use ISO_C_BINDING, only: c_long
        implicit none
        integer (c_long), value :: n
    end subroutine nop_inline
end interface

printf 或 sleep 如何能够阻止 segfault 但调用 NOP 为 1E8 次却没有，这仍然很奇怪。

我很乐意接受对此行为的任何解释作为答案。