+
−! { dg-do compile }
+
−! PR35478 internal compiler error: Segmentation fault
+
−MODULE auxiliary
+
−  IMPLICIT NONE
+
−  INTEGER, PARAMETER, PRIVATE :: dp = SELECTED_REAL_KIND(15)
+
−  INTERFACE median
+
−     MODULE PROCEDURE R_valmed, I_valmed, D_valmed
+
−  END INTERFACE
+
−  PUBLIC  :: median
+
−  PRIVATE :: R_valmed, I_valmed, D_valmed
+
−CONTAINS
+
−  RECURSIVE FUNCTION D_valmed (XDONT) RESULT (res_med)
+
−    Real (kind=dp), Dimension (:), Intent (In) :: XDONT
+
−    Real (kind=dp) :: res_med
+
−    res_med = 0.0d0
+
−  END FUNCTION D_valmed
+
−  RECURSIVE FUNCTION R_valmed (XDONT) RESULT (res_med)
+
−    Real, Dimension (:), Intent (In) :: XDONT
+
−    Real :: res_med
+
−    res_med = 0.0
+
−  END FUNCTION R_valmed
+
−  RECURSIVE FUNCTION I_valmed (XDONT) RESULT (res_med)
+
−    Integer, Dimension (:), Intent (In)  :: XDONT
+
−    Integer :: res_med
+
−    res_med = 0
+
−  END FUNCTION I_valmed
+
−END MODULE auxiliary
+
−PROGRAM main
+
−  USE auxiliary
+
−  IMPLICIT NONE
+
−  INTEGER, PARAMETER    :: dp = SELECTED_REAL_KIND(15)
+
−  REAL(kind=dp) :: rawData(2), data, work(3)
+
−  data = median(rawData, work) ! { dg-error "no specific function" }
+
−END PROGRAM main