逻辑变量判断报错

问题描述

编译时出现如下报错。

pr3d.f:88.21:
 
        WANTSQRTS = (FSCOP == .TRUE.)
                     1
Error: Logicals at (1) must be compared with .eqv. instead of ==
make: *** [spider_linux_gfort.a(pr3d.o)] Error 1

问题原因

标准Fortran所要求的逻辑变量的相等性应该通过.eqv.。Intel编译器支持==写法这种扩展。

处理步骤

将“WANTSQRTS = (FSCOP == .TRUE.)”修改为“WANTSQRTS = (FSCOP .eqv. .TRUE.)”。