valuestring_mismatch Function

public function valuestring_mismatch(actual, expected) result(error_message)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: actual
character(len=*), intent(in) :: expected

Return Value character(len=:), allocatable


Called by

proc~~valuestring_mismatch~~CalledByGraph proc~valuestring_mismatch valuestring_mismatch proc~test_get_i4_not_found_default test_get_i4_not_found_default proc~test_get_i4_not_found_default->proc~valuestring_mismatch proc~test_get_i4_value_equals_default test_get_i4_value_equals_default proc~test_get_i4_value_equals_default->proc~valuestring_mismatch proc~test_get_i4_value_not_equal_default test_get_i4_value_not_equal_default proc~test_get_i4_value_not_equal_default->proc~valuestring_mismatch proc~test_make_valuestring_i4 test_make_valuestring_i4 proc~test_make_valuestring_i4->proc~valuestring_mismatch proc~test_make_valuestring_i4seq test_make_valuestring_i4seq proc~test_make_valuestring_i4seq->proc~valuestring_mismatch proc~test_make_valuestring_i8 test_make_valuestring_i8 proc~test_make_valuestring_i8->proc~valuestring_mismatch proc~test_make_valuestring_i8seq test_make_valuestring_i8seq proc~test_make_valuestring_i8seq->proc~valuestring_mismatch proc~test_make_valuestring_logical test_make_valuestring_logical proc~test_make_valuestring_logical->proc~valuestring_mismatch proc~test_make_valuestring_logicalseq test_make_valuestring_logicalseq proc~test_make_valuestring_logicalseq->proc~valuestring_mismatch proc~test_make_valuestring_r4 test_make_valuestring_r4 proc~test_make_valuestring_r4->proc~valuestring_mismatch proc~test_make_valuestring_r4seq test_make_valuestring_r4seq proc~test_make_valuestring_r4seq->proc~valuestring_mismatch proc~test_make_valuestring_r8 test_make_valuestring_r8 proc~test_make_valuestring_r8->proc~valuestring_mismatch proc~test_make_valuestring_r8seq test_make_valuestring_r8seq proc~test_make_valuestring_r8seq->proc~valuestring_mismatch proc~test_make_valuestring_string test_make_valuestring_string proc~test_make_valuestring_string->proc~valuestring_mismatch

Source Code

   function valuestring_mismatch(actual, expected) result(error_message)
      character(len=:), allocatable :: error_message
      character(len=*), intent(in) :: actual
      character(len=*), intent(in) :: expected
      
      error_message = 'Actual valuestring, "' // actual // &
         '", does not match expected valuestring, "' // expected // '".'

   end function valuestring_mismatch