关于logical类型值的比较

安靖 · 发表于 2014-5-28 11:54:09

flag为以logical类型
语句1

[Fortran] 纯文本查看 复制代码

if( flag )then
  write(*,*) 'test'                
end if

和语句2

[Fortran] 纯文本查看 复制代码

if( flag == .true. )then
  write(*,*) 'test'                
end if

等价么？

vvt · 发表于 2014-5-28 12:00:39

建议用写法一。

写法二严格来说，是错误的。逻辑型相等不能使用 == ，而应该用 .eqv.

[Fortran] 纯文本查看 复制代码

if( flag .eqv. .true. )then

安靖 · 发表于 2014-5-28 12:59:16

vvt 发表于 2014-5-28 12:00
建议用写法一。

写法二严格来说，是错误的。逻辑型相等不能使用 == ，而应该用 .eqv.

恩，多谢

[讨论] 关于logical类型值的比较