Skip to content

Commit bbbc215

Browse files
committed
Added test for uniq strings
This test is where some strings in the comma delimited list have similar strings.
1 parent ac8c0bc commit bbbc215

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

tests/test_fortran_strings.f90

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -81,4 +81,7 @@ program test
8181
c1="Ironman,Thor,Thanos,Black Panther,Winter Soldier"
8282
if(str_swapcase(str_swapcase(c1)).ne.c1)call exit(1)
8383

84+
c1="accessg,accesse,aigfs,ecmwfd,ecmwfe,gefs,gefs"
85+
if(str_uniq(c1,",").ne.c1)call exit(1)
86+
8487
end program test

0 commit comments

Comments
 (0)