@@ -229,14 +229,14 @@ is an `intent(out)` argument.
229
229
``` fortran
230
230
program demo_copy_key
231
231
use stdlib_hashmap_wrappers, only: &
232
- copy_key, operator(==)equal_keys, key_type
232
+ copy_key, operator(==), equal_keys, key_type
233
233
use iso_fortran_env, only: int8
234
234
implicit none
235
235
integer(int8) :: i, value(15)
236
236
type(key_type) :: old_key, new_key
237
237
value = [(i, i = 1, 15)]
238
- call set( key_in , value )
239
- call copy_key( old_key , new_key )
238
+ call set( key_out , value )
239
+ call copy_key( key_out , new_key )
240
240
print *, "old_key == new_key = ", old_key == new_key
241
241
end program demo_copy_key
242
242
```
@@ -470,11 +470,11 @@ is an `intent(out)` argument.
470
470
use iso_fortran_env, only: int8
471
471
implicit none
472
472
integer(int8) :: i, value(15)
473
- type(key_type) :: key_in, key_out
473
+ type(key_type) :: old_key, new_key
474
474
value = [(i, i=1, 15)]
475
- call set( key_in , value )
476
- call copy_key( key_in, key_out )
477
- call free_key( key_out )
475
+ call set( old_key , value )
476
+ call copy_key( old_key, new_key )
477
+ call free_key( old_key )
478
478
end program demo_free_key
479
479
```
480
480
@@ -685,13 +685,13 @@ The result is `.true.` if the keys are equal, otherwise `.falss.`.
685
685
use iso_fortran_env, only: int8
686
686
implicit none
687
687
integer(int8) :: i, value(15)
688
- type(key_type) :: key_in, key_out
688
+ type(key_type) :: old_key, new_key
689
689
do i=1, 15
690
690
value(i) = i
691
691
end do
692
- call set( key_in , value )
693
- call copy_key( key_in, key_out )
694
- print *, "key_in == key_out = ", key_in == key_out
692
+ call set( old_key , value )
693
+ call copy_key( old_key, new_key )
694
+ print *, "old_key == new_key = ", old_key == new_key
695
695
end program demo_equal_keys
696
696
```
697
697
@@ -1610,7 +1610,7 @@ is being examined.
1610
1610
type(key_type) :: key
1611
1611
logocal :: present
1612
1612
call map % init( fnv_1_hasher )
1613
- call set_key (key, [0_int8, 1_int8] )
1613
+ call set (key, [0_int8, 1_int8] )
1614
1614
call map % key_test ( key, present )
1615
1615
print *, "Initial key of 10 present for empty map = ", present
1616
1616
end program demo_key_test
0 commit comments