1! { dg-do compile } 2! PR35478 internal compiler error: Segmentation fault 3MODULE auxiliary 4 IMPLICIT NONE 5 INTEGER, PARAMETER, PRIVATE :: dp = SELECTED_REAL_KIND(15) 6 INTERFACE median 7 MODULE PROCEDURE R_valmed, I_valmed, D_valmed 8 END INTERFACE 9 PUBLIC :: median 10 PRIVATE :: R_valmed, I_valmed, D_valmed 11CONTAINS 12 RECURSIVE FUNCTION D_valmed (XDONT) RESULT (res_med) 13 Real (kind=dp), Dimension (:), Intent (In) :: XDONT 14 Real (kind=dp) :: res_med 15 res_med = 0.0d0 16 END FUNCTION D_valmed 17 RECURSIVE FUNCTION R_valmed (XDONT) RESULT (res_med) 18 Real, Dimension (:), Intent (In) :: XDONT 19 Real :: res_med 20 res_med = 0.0 21 END FUNCTION R_valmed 22 RECURSIVE FUNCTION I_valmed (XDONT) RESULT (res_med) 23 Integer, Dimension (:), Intent (In) :: XDONT 24 Integer :: res_med 25 res_med = 0 26 END FUNCTION I_valmed 27END MODULE auxiliary 28PROGRAM main 29 USE auxiliary 30 IMPLICIT NONE 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" } 34END PROGRAM main 35