Fortran 和 cpp 选项 : How to protect a comma?

Question

定义了一个选项(值 = 1 或 2)以在两条指令之间进行选择，我想使用带有逗号的指令。

#define option 1

#if option == 1
#define my_instr(instr1, instr2) instr1
#else if option == 2
#define my_instr(instr1, instr2) instr2
#endif

它可以工作，但是当指令中有逗号时，我遇到了问题。

例如:

program main

 my_instr(print *,"opt 1", print * ,"opt 2")

end program main

不编译 (gftran -cpp):args 太多。我没事。

因此，为了转义逗号，添加了括号:my_instr((print *,"opt 1"), (print *,"opt 2"))

但由于括号的原因，它不再编译。

我该如何解决？

Answer 1

使用答案(https://stackoverflow.com/a/46311121/7462275)，我找到了一个“解决方案”。

#define option 2

#define unparen(...) __VA_ARGS__

#if option == 1
#define my_instr(instr1, instr2) unparen instr1
#elif option == 2
#define my_instr(instr1, instr2) unparen instr2
#endif

 program main
 
   my_instr((print *,"opt 1"), (print * ,"opt 2"))

 end program main

但是，

1. gfortran -cpp 无法编译(__VA_ARGS__ 的问题)。所以，在gfortran
之前使用了 cpp -P
2. __VA_ARGS__ :在没有something 的情况下使用__VA_ARGS__ 不是标准的(参见评论:
   Matthew D. Scholefield in使用的答案:需要注意的是，由于使用了可变参数宏，这仍然不符合 C 标准。
   和 KamilCuk 在这个问题上)
3. 即使没有逗号的指令也需要用括号括起来