announce_module_test Subroutine

public subroutine announce_module_test(module_name)

Arguments

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

Contents

Source Code

announce_module_test

Source Code

  subroutine announce_module_test(module_name)
    character(*), intent(in) :: module_name
    character(8), parameter :: message = 'Testing '
    if (should_print(1)) call print_with_stars(message, module_name)
  end subroutine announce_module_test