2 ! { dg-options "-O2 -fipa-pta" }
7 ELEMENTAL
FUNCTION get_left_child(n
) RESULT (child
)
8 INTEGER, INTENT(IN
) :: n
9 END FUNCTION get_left_child
10 ELEMENTAL
FUNCTION get_value(heap
, n
) RESULT (value
)
11 TYPE(heap_t
), INTENT(IN
) :: heap
12 INTEGER, INTENT(IN
) :: n
13 END FUNCTION get_value
