view gcc/testsuite/gfortran.dg/pr61921.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
! { dg-options "-O2 -fipa-pta" }
MODULE min_heap
  TYPE heap_t
  END TYPE heap_t
CONTAINS
  ELEMENTAL FUNCTION get_left_child(n) RESULT (child)
    INTEGER, INTENT(IN)                      :: n
  END FUNCTION get_left_child
  ELEMENTAL FUNCTION get_value(heap, n) RESULT (value)
    TYPE(heap_t), INTENT(IN)                 :: heap
    INTEGER, INTENT(IN)                      :: n
  END FUNCTION get_value
END MODULE min_heap