integer :: i
.
.
n = count( [ (strtmp(i:i), i=1, len_trim(strtmp)) ] == delimiter_)
gfortran.exe -Jobj\Debug\ -Wall -g -std=f2008 -c
D:\gfortran\Fortran\ogpf_n4\md_helperproc.f90|108|Warning: 'i' is used uninitialized in this function [-Wuninitialized]|