ex0509.f90

来自「Fortran 95程序设计【彭国伦】 Source_Code.rarFortr」· F90 代码 · 共 15 行

program ex0509
implicit none
  real :: a
  real :: b = 3.0

  a=SQRT(b)**2-b ! 理论上a应该要等于0

  if ( a==0.0 ) then
	write(*,*) "a等于0"
  else
    write(*,*) "a不等于0"
  end if

stop
end