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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [ieee/] [980619-1.c] - Blame information for rev 774

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


        int main(void)
        {
                float reale = 1.0f;
                float oneplus;
                int i;
 
                if (sizeof (float) != 4)
                  exit (0);
 
                for (i = 0; ; i++)
                {
                        oneplus = 1.0f + reale;
                        if (oneplus == 1.0f)
                                break;
                        reale=reale/2.0f;
                }
                /* Assumes ieee754 accurate arithmetic above.  */
                if (i != 24)
                  abort ();
                else
                  exit (0);
        }
 

Line No.	Rev	Author	Line
1	688	jeremybenn	`int main(void)`
2			`{`
3			`float reale = 1.0f;`
4			`float oneplus;`
5			`int i;`
6
7			`if (sizeof (float) != 4)`
8			`exit (0);`
9
10			`for (i = 0; ; i++)`
11			`{`
12			`oneplus = 1.0f + reale;`
13			`if (oneplus == 1.0f)`
14			`break;`
15			`reale=reale/2.0f;`
16			`}`
17			`/* Assumes ieee754 accurate arithmetic above. */`
18			`if (i != 24)`
19			`abort ();`
20			`else`
21			`exit (0);`
22			`}`
23

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [ieee/] [980619-1.c] - Blame information for rev 774