Fortran输出自由落体中的速度

Fortran代码如下：

program free_fall
implicit none
real :: g = 9.8, t, v
write(*,*) '请输入自由落体时间t(s)：'
read(*,*) t
v = g * t
write(*,*) '自由落体时间为', t, 's时，速度为', v, 'm/s'
end program free_fall