diff --git a/src/tests/string/CMakeLists.txt b/src/tests/string/CMakeLists.txt index bda103c7b..6e3908ca7 100644 --- a/src/tests/string/CMakeLists.txt +++ b/src/tests/string/CMakeLists.txt @@ -2,4 +2,5 @@ ADDTEST(string_assignment) ADDTEST(string_operator) ADDTEST(string_intrinsic) ADDTEST(string_derivedtype_io) +ADDTEST(string_functions) diff --git a/src/tests/string/Makefile.manual b/src/tests/string/Makefile.manual index e3789447d..be5bb9f44 100644 --- a/src/tests/string/Makefile.manual +++ b/src/tests/string/Makefile.manual @@ -1,5 +1,6 @@ PROGS_SRC = test_string_assignment.f90 \ test_string_derivedtype_io.f90 \ + test_string_functions.f90 \ test_string_intrinsic.f90 \ test_string_operator.f90 diff --git a/src/tests/string/test_string_functions.f90 b/src/tests/string/test_string_functions.f90 index 7adeffa17..4a8d516a8 100644 --- a/src/tests/string/test_string_functions.f90 +++ b/src/tests/string/test_string_functions.f90 @@ -28,7 +28,7 @@ end subroutine test_to_upper_string subroutine test_to_title_string type(string_type) :: test_string, compare_string test_string = "_#To tiTlE !$%-az09AZ" - compare_string = "_#To title !$%-a09az" + compare_string = "_#To title !$%-az09az" call check(to_title(test_string) == compare_string)