Skip to content

Commit 171029e

Browse files
wclodius2jvdp1
andauthored
Update doc/specs/stdlib_hashmaps.md
Co-authored-by: Jeremie Vandenplas <[email protected]>
1 parent 48ba158 commit 171029e

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
@@ -468,13 +468,9 @@ is an `intent(out)` argument.
468468
copy_key, free_key, key_type, set
469469
use iso_fortran_env, only: int8
470470
implicit none
471-
integer(int8), allocatable :: value(:)
471+
integer(int8) :: i, value(15)
472472
type(key_type) :: key_in, key_out
473-
integer(int_8) :: i
474-
allocate( value(1:15) )
475-
do i=1, 15
476-
value(i) = i
477-
end do
473+
value = [(i, i=1, 15)]
478474
call set( key_in, value )
479475
call copy_key( key_in, key_out )
480476
call free_key( key_out )

0 commit comments

Comments
 (0)