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)
2
2
ADDTEST (string_operator )
3
3
ADDTEST (string_intrinsic )
4
4
ADDTEST (string_derivedtype_io )
5
+ ADDTEST (string_functions )
5
6
Original file line number Diff line number Diff line change 1
1
PROGS_SRC = test_string_assignment.f90 \
2
2
test_string_derivedtype_io.f90 \
3
+ test_string_functions.f90 \
3
4
test_string_intrinsic.f90 \
4
5
test_string_operator.f90
5
6
Original file line number Diff line number Diff line change @@ -28,7 +28,7 @@ end subroutine test_to_upper_string
28
28
subroutine test_to_title_string
29
29
type (string_type) :: test_string, compare_string
30
30
test_string = " _#To tiTlE !$%-az09AZ"
31
- compare_string = " _#To title !$%-a09az "
31
+ compare_string = " _#To title !$%-az09az "
32
32
33
33
call check(to_title(test_string) == compare_string)
34
34
You can’t perform that action at this time.
0 commit comments