OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [c-c++-common/] [dfp/] [pr31385.c] - Rev 295

Compare with Previous | Blame | View Log

/* { dg-do compile } */
/* { dg-options "-O2" } */
 
typedef float fp_t __attribute__((mode(SD)));
 
extern fp_t g(fp_t);
 
fp_t
bug(fp_t x)
{
    fp_t result;
    int n;
    fp_t f, f3, y, z;
 
    n = 0;
    y = 1.DF;
    f = g(x);
 
    if (f < 0.DF)
        f = -f;
 
    f3 = 2.DF;
 
    z = (y + y + f / (y * y));
    y = (z + z) / (9.DF) + f3 / (z * z);
 
    result = y;
 
    return (result);
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.