Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/generic_16.f90 @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! PR35478 internal compiler error: Segmentation fault
kono
parents:
diff changeset
3 MODULE auxiliary
kono
parents:
diff changeset
4 IMPLICIT NONE
kono
parents:
diff changeset
5 INTEGER, PARAMETER, PRIVATE :: dp = SELECTED_REAL_KIND(15)
kono
parents:
diff changeset
6 INTERFACE median
kono
parents:
diff changeset
7 MODULE PROCEDURE R_valmed, I_valmed, D_valmed
kono
parents:
diff changeset
8 END INTERFACE
kono
parents:
diff changeset
9 PUBLIC :: median
kono
parents:
diff changeset
10 PRIVATE :: R_valmed, I_valmed, D_valmed
kono
parents:
diff changeset
11 CONTAINS
kono
parents:
diff changeset
12 RECURSIVE FUNCTION D_valmed (XDONT) RESULT (res_med)
kono
parents:
diff changeset
13 Real (kind=dp), Dimension (:), Intent (In) :: XDONT
kono
parents:
diff changeset
14 Real (kind=dp) :: res_med
kono
parents:
diff changeset
15 res_med = 0.0d0
kono
parents:
diff changeset
16 END FUNCTION D_valmed
kono
parents:
diff changeset
17 RECURSIVE FUNCTION R_valmed (XDONT) RESULT (res_med)
kono
parents:
diff changeset
18 Real, Dimension (:), Intent (In) :: XDONT
kono
parents:
diff changeset
19 Real :: res_med
kono
parents:
diff changeset
20 res_med = 0.0
kono
parents:
diff changeset
21 END FUNCTION R_valmed
kono
parents:
diff changeset
22 RECURSIVE FUNCTION I_valmed (XDONT) RESULT (res_med)
kono
parents:
diff changeset
23 Integer, Dimension (:), Intent (In) :: XDONT
kono
parents:
diff changeset
24 Integer :: res_med
kono
parents:
diff changeset
25 res_med = 0
kono
parents:
diff changeset
26 END FUNCTION I_valmed
kono
parents:
diff changeset
27 END MODULE auxiliary
kono
parents:
diff changeset
28 PROGRAM main
kono
parents:
diff changeset
29 USE auxiliary
kono
parents:
diff changeset
30 IMPLICIT NONE
kono
parents:
diff changeset
31 INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(15)
kono
parents:
diff changeset
32 REAL(kind=dp) :: rawData(2), data, work(3)
kono
parents:
diff changeset
33 data = median(rawData, work) ! { dg-error "no specific function" }
kono
parents:
diff changeset
34 END PROGRAM main