camfort-1.0: tests/fixtures/Specification/Units/literal-prop.f90

module foo
real, parameter :: one = 1.0
contains
  function f(x)
    real :: x
    f = x + one
  end function f

  subroutine s()
    !- = unit C/K :: k2c
    !- = unit C :: zeroc
    real, parameter :: zeroc = 273.0, k2c
    !- = unit c :: tc_1_in
    !- = unit k :: t
    real :: tc_1_in, t

    tc_1_in = (k2c*t - zeroc)
  end subroutine s
  
end module foo