module classes_temperature

use, intrinsic :: iso_fortran_env, only: DP => REAL64
use procedures_checks, only: check_positive

implicit none

private

    type, abstract, public :: Abstract_Temperature
    private
        real(DP) :: temperature = 0._DP
    contains
        procedure :: set => Abstract_set
        procedure :: get => Abstract_get
    end type Abstract_Temperature

    type, extends(Abstract_Temperature), public :: Concrete_Temperature

    end type Concrete_Temperature

contains

    subroutine Abstract_set(this, temperature)
        class(Abstract_Temperature), intent(inout) :: this
        real(DP), intent(in) :: temperature

        call check_positive("Abstract_Temperature", "temperature", temperature)
        this%temperature = temperature
    end subroutine Abstract_set

    pure real(DP) function Abstract_get(this) result(temperature)
        class(Abstract_Temperature), intent(in) :: this

        temperature = this%temperature
    end function Abstract_get

end module classes_temperature