diff options
Diffstat (limited to 'captain/queryutils.f90')
| -rw-r--r-- | captain/queryutils.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/captain/queryutils.f90 b/captain/queryutils.f90 index c8a5d44..d6fa0e6 100644 --- a/captain/queryutils.f90 +++ b/captain/queryutils.f90 @@ -144,7 +144,6 @@ contains class(query), intent(out)::self character::separator character(len=*), intent(in), optional::str - character(64)::msg integer::ampersands, i, i_end, i_comp, n @@ -177,12 +176,12 @@ contains else i_comp = 1 i = 1 - i_end = index(self%full, '&') + i_end = index(self%full, separator) do while(i_comp < ampersands + 1) call self%components(i_comp)%parse(self%full(i:i_end-1)) i = i_end + 1 do i_end = i, len_trim(self%full) - if(self%full(i_end:i_end) == '&') then + if(self%full(i_end:i_end) == separator) then exit end if end do |