Typo in test.

Author: eengl

tests/test_fortran_strings.f90

@@ -81,7 +81,9 @@ program test
    c1="Ironman,Thor,Thanos,Black Panther,Winter Soldier"
    if(str_swapcase(str_swapcase(c1)).ne.c1)call exit(1)
 
-   c1="accessg,accesse,aigfs,ecmwfd,ecmwfe,gefs,gefs"
+   c1="accessg,accesse,aigfs,ecmwfd,ecmwfe,gefs,gfs"
+   write(*,*)c1
+   write(*,*)str_uniq(c1,",")
    if(str_uniq(c1,",").ne.c1)call exit(1)
 
 end program test