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