Fortran parmparse: trim before adding string

AMReX-Codes · Jul 26, 2017 · ad57f50 · ad57f50
1 parent de5584e
commit ad57f50
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Src/Base/AMReX_parmparse_mod.F90 b/Src/Base/AMReX_parmparse_mod.F90
@@ -497,7 +497,7 @@ subroutine add_stringarr (this, name, v)
     allocate(cs(ntot))
     i = 1
     do ni = 1, n
-       do mi = 1, m
+       do mi = 1, len_trim(v(ni))
          cs(i) = v(ni)(mi:mi)
          i = i+1
        end do