compiler_is_same Function

logical function compiler_is_same(this,that)
    class(compiler_t), intent(in) :: this
    class(serializable_t), intent(in) :: that

    compiler_is_same = .false.

    select type (other=>that)
       type is (compiler_t)

          if (.not.(this%id==other%id)) return
          if (allocated(this%fc).neqv.allocated(other%fc)) return
          if (allocated(this%fc)) then
            if (.not.(this%fc==other%fc)) return
          end if
          if (allocated(this%cc).neqv.allocated(other%cc)) return
          if (allocated(this%cc)) then
            if (.not.(this%cc==other%cc)) return
          end if
          if (allocated(this%cxx).neqv.allocated(other%cxx)) return
          if (allocated(this%cxx)) then
            if (.not.(this%cxx==other%cxx)) return
          end if
          if (.not.(this%echo.eqv.other%echo)) return
          if (.not.(this%verbose.eqv.other%verbose)) return

       class default
          ! Not the same type
          return
    end select

    !> All checks passed!
    compiler_is_same = .true.

end function compiler_is_same