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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990829-1.c] - Blame information for rev 318

Go to most recent revision | Details | Compare with Previous | View Log


double test (const double le, const double ri)
{
        double val = ( ri - le ) / ( ri * ( le + 1.0 ) );
        return val;
}
 
int main ()
{
        double retval;
 
        retval = test(1.0,2.0);
        if (retval < 0.24 || retval > 0.26)
          abort ();
        exit (0);
}

Line No.	Rev	Author	Line
1	297	jeremybenn	`double test (const double le, const double ri)`
2			`{`
3			`double val = ( ri - le ) / ( ri * ( le + 1.0 ) );`
4			`return val;`
5			`}`
6
7			`int main ()`
8			`{`
9			`double retval;`
10
11			`retval = test(1.0,2.0);`
12			`if (retval < 0.24 \|\| retval > 0.26)`
13			`abort ();`
14			`exit (0);`
15			`}`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990829-1.c] - Blame information for rev 318