使用 IFDEF 赋予属性

Question

我在生成动态库（Windows 中的 DLL，Linux 中的 SO）的 .f90 文件中有以下工作情况：

#ifdef __linux__
    subroutine FCCORR (i1,i2) bind(c, name='FCCORR')
    use, intrinsic :: iso_c_binding
#endif
!
#ifdef _WIN32
    subroutine FCCORR (i1,i2)
    !DEC$ ATTRIBUTES DLLEXPORT, DECORATE, ALIAS : "FCCORR" :: FCCORR
    !DEC$ ATTRIBUTES REFERENCE :: i1,i2
#endif
!
integer, intent(in)  :: i1
integer, intent(out) :: i2
!
i2 = i1*3
!
end subroutine

我想知道在两种不同情况下是否可以避免子例程的分离：特别是我想知道是否可以使用#ifdef 仅附加bind 属性，如下所示：

subroutine FCCORR (i1,i2)
#ifdef __linux__
    bind(c, name='FCCORR')
    use, intrinsic :: iso_c_binding
#endif
!
#ifdef _WIN32
    !DEC$ ATTRIBUTES DLLEXPORT, DECORATE, ALIAS : "FCCORR" :: FCCORR
    !DEC$ ATTRIBUTES REFERENCE :: i1,i2
#endif
!
integer, intent(in)  :: i1
integer, intent(out) :: i2
!
i2 = i1*3
!
end subroutine

但显然第 3 行会产生错误：

(error #5082: 语法错误，在期望 END-OF-STATEMENT 时发现 的： ：： / 绑定(c, name='TEST')

Answer 1

嗯，这是可能的，但你必须使用 Fortran 规则来续行

subroutine FCCORR (i1,i2) &
#ifdef __linux__
    bind(c, name='FCCORR')

问题是您也需要在 Windows 情况下以某种方式继续该行，而我看不到任何选项。

但我不明白你为什么不能在 Windows 中使用 bind(C) 属性。

顺便说一句，我绝对看不出你为什么使用use, intrinsic :: iso_c_binding，因为代码中没有对模块的引用。如果代码需要它，那么 Windows 版本也需要它。