agrees_with_integer Function

private function agrees_with_integer(val, correct)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: val
integer, intent(in) :: correct

Return Value logical


Contents

Source Code

agrees_with_integer

Source Code

  function agrees_with_integer(val, correct)
    integer, intent(in) :: val, correct
    logical :: agrees_with_integer
    call should_be(val, correct)
    agrees_with_integer = (val == correct)
  end function agrees_with_integer