program energy != unit (m) :: height != unit (kg) :: mass != unit (m / s**2) :: gravity real, parameter :: mass = 3.00, gravity = .81, height = 4.20 != unit (kg m** (2) / s** (2)) :: potential_energy real :: potential_energy potential_energy = mass * gravity * height end program energy