e_132_05.f90

来自「Fortran77和90/95编程入门对应的程序源码」· F90 代码 · 共 6 行

x = 1. ; y = 2. ; z = 3. ; zz=z ; zzz = 3.
 
xyz = x*y*z; if(xyz >= x .or. y <z) print *, x,y,z, xyz
if(zz  == z) print *, zz
if(zzz.eq.z) print *, zzz
end