1! { dg-do compile }
2! { dg-options "-O2 -fipa-pta" }
3MODULE min_heap
4  TYPE heap_t
5  END TYPE heap_t
6CONTAINS
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
14END MODULE min_heap
15
16