module link_module
  use precision_module
  type link(real_kind)
    integer, kind :: real_kind
    real (kind=real_kind) :: n
    type (link(real_kind)), pointer :: next
  end type link
end module link_module