Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/generic_16.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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