diff options
Diffstat (limited to 'captain/queryutils.f90')
| -rw-r--r-- | captain/queryutils.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/captain/queryutils.f90 b/captain/queryutils.f90 index 3a736dd..d6fa0e6 100644 --- a/captain/queryutils.f90 +++ b/captain/queryutils.f90 @@ -44,6 +44,7 @@ implicit none contains procedure :: init => query_init + procedure :: init_with_separator => query_init_generic procedure :: destroy => query_destroy procedure :: component_count => query_component_count procedure :: get_value_by_index => get_query_value_from_index @@ -143,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 @@ -176,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 |