process_check Subroutine

public subroutine process_check(test_result, rslt, test_name)

Arguments

Type IntentOptional Attributes Name
logical, intent(inout) :: test_result
logical, intent(in) :: rslt
character(len=*), intent(in) :: test_name

Contents

Source Code

process_check

Source Code

  subroutine process_check(test_result, rslt, test_name)
    logical, intent (inout) :: test_result
    logical, intent (in) :: rslt
    character(*), intent(in) :: test_name
    if (.not. rslt) then
       write(*,*) '   --> ', test_name, ' failed', proc_message()
    else
       if (should_print(2)) write (*,*) '   --> ', test_name, ' passed', proc_message()
    end if
    test_result = test_result .and. rslt
  end subroutine process_check