Fix name collision due to dbm_tests

cp2k · Jun 27, 2022 · 32ccd55 · 32ccd55
1 parent 80ba986
commit 32ccd55
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/library_tests.F b/src/library_tests.F
@@ -223,7 +223,7 @@ SUBROUTINE lib_test(root_section, para_env, globenv)
       dbm_test_section => section_vals_get_subs_vals(root_section, "TEST%DBM")
       CALL section_vals_get(dbm_test_section, explicit=explicit)
       IF (explicit) THEN
-         CALL dbm_tests(para_env, iw, dbm_test_section)
+         CALL run_dbm_tests(para_env, iw, dbm_test_section)
       END IF
 
       CALL cp_print_key_finished_output(iw, logger, root_section, "TEST%PROGRAM_RUN_INFO")
@@ -1497,7 +1497,7 @@ END SUBROUTINE cp_dbcsr_tests
 !> \param iw ...
 !> \param input_section ...
 ! **************************************************************************************************
-   SUBROUTINE dbm_tests(para_env, iw, input_section)
+   SUBROUTINE run_dbm_tests(para_env, iw, input_section)
 
       TYPE(cp_para_env_type), POINTER                    :: para_env
       INTEGER                                            :: iw
@@ -1548,6 +1548,6 @@ SUBROUTINE dbm_tests(para_env, iw, input_section)
                             retain_sparsity=retain_sparsity, &
                             always_checksum=always_checksum)
       END DO
-   END SUBROUTINE dbm_tests
+   END SUBROUTINE run_dbm_tests
 
 END MODULE library_tests