Workaround for gfortran-10 bounds error

kookma · Jan 22, 2021 · 8c9d2de · 8c9d2de
1 parent e0608d9
commit 8c9d2de
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ogpf.f90 b/src/ogpf.f90
@@ -2375,7 +2375,7 @@ subroutine splitstring2array(strin, strarray, delimiter)
         strtmp=trim (adjustl(strin) )
 
         ! 2. count the number substrings separated by delimiter
-        n = count( [ (strtmp(i:i), i=1, len_trim(strtmp)) ] == delimiter_)
+        n = count( [ (strtmp(i:i)== delimiter_, i=1, len_trim(strtmp)) ] )
 
         ! 3. allocate the output string array
         allocate(strarray(n+1))