ex0501.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 11 行

program ex0501
implicit none
  real(kind=4) :: speed
  write(*,*) "speed:"
  read(*,*) speed
  if ( speed > 100.0 ) then
    ! speed > 100 时才会执行下面这一行程序 
    write(*,*) "Slow down." 
  end if 
stop
end