File tree Expand file tree Collapse file tree 3 files changed +3
-1
lines changed Expand file tree Collapse file tree 3 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -2,4 +2,5 @@ ADDTEST(string_assignment)
22ADDTEST(string_operator)
33ADDTEST(string_intrinsic)
44ADDTEST(string_derivedtype_io)
5+ ADDTEST(string_functions)
56
Original file line number Diff line number Diff line change 11PROGS_SRC = test_string_assignment.f90 \
22 test_string_derivedtype_io.f90 \
3+ test_string_functions.f90 \
34 test_string_intrinsic.f90 \
45 test_string_operator.f90
56
Original file line number Diff line number Diff line change @@ -28,7 +28,7 @@ end subroutine test_to_upper_string
2828 subroutine test_to_title_string
2929 type (string_type) :: test_string, compare_string
3030 test_string = " _#To tiTlE !$%-az09AZ"
31- compare_string = " _#To title !$%-a09az "
31+ compare_string = " _#To title !$%-az09az "
3232
3333 call check(to_title(test_string) == compare_string)
3434
You can’t perform that action at this time.
0 commit comments