AVL tree: Difference between revisions

168 bytes removed ,  2 years ago
m
Line 3,477:
program avl_trees_demo
use, intrinsic :: iso_fortran_env, only: output_unit
use, intrinsic :: ieee_arithmetic, only: ieee_value
use, intrinsic :: ieee_arithmetic, only: ieee_quiet_nan
use, non_intrinsic :: avl_trees
 
Line 3,488 ⟶ 3,486:
logical :: found
class(*), allocatable :: retval
real :: nan
integer :: the_keys(1:keys_count)
integer :: i, j
 
nan = ieee_value (nan, ieee_quiet_nan)
 
do i = 1, keys_count
1,448

edits