Skip to content

Commit 43779e2

Browse files
committed
Initialization flag add
Added code to update initialization flag at the end of the init routine.
1 parent b2e08d5 commit 43779e2

File tree

2 files changed

+4
-0
lines changed

2 files changed

+4
-0
lines changed

src/stdlib_hashmap_chaining.f90

+2
Original file line numberDiff line numberDiff line change
@@ -505,6 +505,8 @@ module subroutine init_chaining_map( map, &
505505

506506
call extend_map_entry_pool(map)
507507

508+
map % initialized = .true.
509+
508510
if (present(status) ) status = success
509511

510512
end subroutine init_chaining_map

src/stdlib_hashmap_open.f90

+2
Original file line numberDiff line numberDiff line change
@@ -494,6 +494,8 @@ module subroutine init_open_map( map, &
494494
end do
495495

496496
call extend_map_entry_pool(map % cache)
497+
498+
map % initialized = .true.
497499

498500
if (present(status) ) status = success
499501

0 commit comments

Comments
 (0)