announce_check Subroutine

public subroutine announce_check(test_name)

Arguments

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

Contents

Source Code

announce_check

Source Code

  subroutine announce_check(test_name)
    character(*), intent(in) :: test_name
    if (should_print(2)) write (*,*) '   --> Checking ', test_name, proc_message()
  end subroutine announce_check