Check that two compile_command_t objects are equal All checks passed!
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(compile_command_t), | intent(in) | :: | this | |||
class(serializable_t), | intent(in) | :: | that |
logical function compile_command_is_same(this,that) class(compile_command_t), intent(in) :: this class(serializable_t), intent(in) :: that compile_command_is_same = .false. select type (other=>that) type is (compile_command_t) if (.not.this%directory==other%directory) return if (.not.this%arguments==other%arguments) return if (.not.this%file==other%file) return class default ! Not the same type return end select !> All checks passed! compile_command_is_same = .true. end function compile_command_is_same