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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990829-1.c] - Blame information for rev 12

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	12	jlechner	`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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [990829-1.c] - Blame information for rev 12