Check that two compile_command_table_t objects are equal All checks passed!
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(compile_command_table_t), | intent(in) | :: | this | |||
class(serializable_t), | intent(in) | :: | that |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | i |
logical function cct_is_same(this,that) class(compile_command_table_t), intent(in) :: this class(serializable_t), intent(in) :: that integer :: i cct_is_same = .false. select type (other=>that) type is (compile_command_table_t) if (allocated(this%command).neqv.allocated(other%command)) return if (allocated(this%command)) then if (.not.(size (this%command) ==size (other%command))) return if (.not.(ubound(this%command,1)==ubound(other%command,1))) return if (.not.(lbound(this%command,1)==lbound(other%command,1))) return do i=lbound(this%command,1),ubound(this%command,1) if (.not.this%command(i)==other%command(i)) return end do end if class default ! Not the same type return end select !> All checks passed! cct_is_same = .true. end function cct_is_same