求帮助，if语句的编译问题与条件编译

百事可乐

有些 if  分支你是可以确定一定不会执行的.但是编译器没法确定.所以只能都编译.

比如 :
integer :: s
read(*,*) s
if ( (s+s-2*s) == 0 ) then
  ...
end if

百事可乐

cvf 还是放弃吧