1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
module stdlib_hashmaps_hashmap_struct_01
implicit none
type :: open_hashmap_type
integer(4) :: slots
end type open_hashmap_type
end module stdlib_hashmaps_hashmap_struct_01
program hashmap_struct_01
use stdlib_hashmaps_hashmap_struct_01
implicit none
type(open_hashmap_type) :: map
call in_open_map(map)
contains
subroutine expand_open_slots(map)
type(open_hashmap_type), intent(inout) :: map
end subroutine expand_open_slots
subroutine in_open_map(map)
class(open_hashmap_type), intent(inout) :: map
call expand_open_slots(map)
end subroutine in_open_map
end program
|
