Fortran Coder

标题: 关于logical类型值的比较 [打印本页]

作者: 安靖 时间: 2014-5-28 11:54
标题: 关于logical类型值的比较
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
建议用写法一。

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

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

if( flag .eqv. .true. )then

作者: 安靖 时间: 2014-5-28 12:59

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

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

恩，多谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)