announce_test Subroutine

public subroutine announce_test(test_name)

Arguments

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

Contents

Source Code

announce_test

Source Code

  subroutine announce_test(test_name)
    character(*), intent(in) :: test_name
    if (should_print(1)) write (*,*) '--> Testing ', test_name, proc_message()
  end subroutine announce_test