299
300
301
303 use dc_string, only: printf, joinchar
304 implicit none
305 type(HASH), intent(in) :: hashv
306 type(HASH) :: hashv_tmp
307 character(len = STRING):: key, value
308 logical:: end
309 continue
310 hashv_tmp = hashv
311
312 call printf(6, '#<HASH:: ')
313 call dchashrewind(hashv_tmp)
314 do
315 call dchashnext(hashv_tmp, key, value, end)
316 if (end) exit
317 call printf(6, ' "%c" -> "%c",', &
318 & c1=trim(key), c2=trim(value))
319 enddo
320 call printf(6, '> ')
321
integer, parameter, public string
文字列を保持する 文字型変数の種別型パラメタ