repo.or.cz
/
gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fortran: Fix PR 47485.
[gcc.git]
/
gcc
/
testsuite
/
g++.dg
/
torture
/
pr51600.C
blob
6180360776273a4f4169f90b390852e32f524d7b
1
template<class T> inline T min(T a, T b) { return a < b ? a : b; }
2
double cornerbound(double *P, double (*m)(double, double))
3
{
4
double b=m(P[0],P[3]);
5
return m(b,P[12]);
6
}
7
void bound(double *P, double (*m)(double, double), double b)
8
{
9
m(b,cornerbound(P,m));
10
}
11
void bounds(double fuzz, unsigned maxdepth)
12
{
13
double Px[]={};
14
double bx=Px[0];
15
bound(Px,min,bx);
16
}