Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/generic_16.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! PR35478 internal compiler error: Segmentation fault
3 MODULE 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
11 CONTAINS
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
27 END MODULE auxiliary
28 PROGRAM 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" }
34 END PROGRAM main