Preprocessor Gfortran针对不同操作系统的预处理器指令

你能告诉我如何做以下事情吗

#if __unix__
#define path_sep='/'
#elif __windows__
#define path_sep='\'
#else
#error "path_sep not defined."
#endif

---

使用gfortran编译器。

这可以与条件编译结合使用，并使用命令行上的“D”选项来完成。下面是一些示例代码：

program test_Dopt
character (len=1) :: pathsep
pathsep = "?"
#ifdef WOS
   pathsep = "\"
#endif
#ifdef UOS
   pathsep = "/"
#endif

write (*, '( "pathsep is >", A1, "<")' )  pathsep

end program test_Dopt

程序测试
字符（len=1）：：pathsep
pathsep=“？”
#ifdef WOS
pathsep=“\”
#恩迪夫
#ifdef UOS
pathsep=“/”
#恩迪夫
write（*，”（“pathsep is>”，A1，“gfortran的手册包含有关如何使用预处理器的说明。您是否对它们有任何不清楚的地方？
\uuuuuuuuuuuuuu
和
\uWin32
是通常预定义的预处理器标志，用于指示在大多数编译器中使用哪个系统。