Skip to content

Commit 21886cd

Browse files
wclodius2jvdp1
andauthored
Update doc/specs/stdlib_hashmaps.md
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent b30b257 commit 21886cd

File tree

1 file changed

+2
-6
lines changed

1 file changed

+2
-6
lines changed

doc/specs/stdlib_hashmaps.md

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -231,13 +231,9 @@ is an `intent(out)` argument.
231231
copy_key, operator(==)equal_keys, key_type
232232
use iso_fortran_env, only: int8
233233
implicit none
234-
integer(int8), allocatable :: value(:)
234+
integer(int8) :: i, value(15)
235235
type(key_type) :: key_in, key_out
236-
integer(int_8) :: i
237-
allocate( value(1:15) )
238-
do i=1, 15
239-
value(i) = i
240-
end do
236+
value = [(i, i = 1, 15)]
241237
call set( key_in, value )
242238
call copy_key( key_in, key_out )
243239
print *, "key_in == key_out = ", key_in == key_out

0 commit comments

Comments
 (0)