compile_command_is_same Function

public function compile_command_is_same(this, that)

Check that two compile_command_t objects are equal All checks passed!

Type Bound

compile_command_t

Arguments

Type IntentOptional Attributes Name
class(compile_command_t), intent(in) :: this
class(serializable_t), intent(in) :: that

Return Value logical


Source Code

    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