1。 真正“死循环”的标准形式应该为：
do while ( .true. )
!
end do
除非循环语句中有语句控制跳出循环。

2。 逻辑常量是 .true.， 其它的都应该是编译器的扩展（我查了标准，没有看到说 1 可以代替）
在 Intel Fortran 的帮助文档中，有如下说明：

The term numeric includes logical data, because logical data is treated as integer data when used in a numeric context. The default for .TRUE. is -1; .FALSE. is 0. Note that the default can change if compiler option fpscomp logicals is used.

所以，愚以为逻辑常量还是用“正统”的比较好，否则在不同平台移植可就不方便了。