Do not report error if the key are not in dictionary

[jiangleads]

Hello, I had build this cod under Intel Compile. Everything is ok except it do not report error when the keys are not in the dictionary. Can it report error when the keys are not in dictionary?
the codes are below:

program test
	use fhash, only: fhash_tbl_t, key=>fhash_key
	implicit none
	integer :: istation
	type(fhash_tbl_t) :: tbl
	call tbl%set(key("key1"), value=1)
	call tbl%get(key("key1"),istation)
	print*,'key1',istation

	call tbl%set(key("key2"), value=2)
	call tbl%get(key("key2"),istation)
	print*,'key2',istation

	call tbl%set(key("key3"), value=3)
	call tbl%get(key("key3"),istation)
	print*,'key3',istation

	call tbl%get(key("NONE"),istation)
	print*,'NONE',istation

end program

[LKedward]

Hi, yes this is possible using the optional status variable:

program test
  use fhash, only: fhash_tbl_t, key=>fhash_key
  implicit none
  integer :: istation, status
  type(fhash_tbl_t) :: tbl
	
  call tbl%get(key("NONE"),istation,stat=status)
  if (status /= 0) then
    Print*, "Key not found"
  else
    print*,istation
  end if

end program

[jiangleads]

Hi, yes this is possible using the optional status variable:

program test
  use fhash, only: fhash_tbl_t, key=>fhash_key
  implicit none
  integer :: istation, status
  type(fhash_tbl_t) :: tbl
	
  call tbl%get(key("NONE"),istation,stat=status)
  if (status /= 0) then
    Print*, "Key not found"
  else
    print*,istation
  end if

end program

Hello, Thank you for your reply!
That is great! Awsome :)