OpenCores

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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [aint_anint_1.f90] - Blame information for rev 193

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

Line No.	Rev	Author	Line
1	149	jeremybenn	`program aint_anint_1`
2
3			`implicit none`
4
5			`real(4) :: r = 42.7, r1, r2`
6			`real(8) :: s = 42.7D0, s1, s2`
7
8			`r1 = aint(r)`
9			`r2 = aint(r,kind=8)`
10			`if (abs(r1 - r2) > 0.1) call abort()`
11
12			`r1 = anint(r)`
13			`r2 = anint(r,kind=8)`
14			`if (abs(r1 - r2) > 0.1) call abort()`
15
16			`s1 = aint(s)`
17			`s2 = aint(s, kind=4)`
18			`if (abs(s1 - s2) > 0.1) call abort()`
19
20			`s1 = anint(s)`
21			`s2 = anint(s, kind=4)`
22			`if (abs(s1 - s2) > 0.1) call abort()`
23
24
25			`end program aint_anint_1`
26

powered by: WebSVN 2.1.0

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