2 ! PR35478 internal compiler error: Segmentation fault
5 INTEGER, PARAMETER, PRIVATE :: dp = SELECTED_REAL_KIND(15)
7 MODULE PROCEDURE R_valmed, I_valmed, D_valmed
10 PRIVATE :: R_valmed, I_valmed, D_valmed
12 RECURSIVE FUNCTION D_valmed (XDONT) RESULT (res_med)
13 Real (kind=dp), Dimension (:), Intent (In) :: XDONT
14 Real (kind=dp) :: res_med
17 RECURSIVE FUNCTION R_valmed (XDONT) RESULT (res_med)
18 Real, Dimension (:), Intent (In) :: XDONT
22 RECURSIVE FUNCTION I_valmed (XDONT) RESULT (res_med)
23 Integer, Dimension (:), Intent (In) :: XDONT
31 INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(15)
32 REAL(kind=dp) :: rawData(2), data, work(3)
33 data = median(rawData, work) ! { dg-error "no specific function" }