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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [erfc.f] - Blame information for rev 853

Line No.	Rev	Author	Line
1	149	jeremybenn	`c { dg-do run }`
2			`c============================================== test.f`
3			`real x, y`
4			`real(kind=8) x1, y1`
5			`x=0.`
6			`y = erfc(x)`
7			`if (y .ne. 1.) call abort`
8
9			`x=1.1`
10			`y = erfc(x)`
11			`if (abs(y - .1197949) .ge. 1.e-6) call abort`
12
13			`c modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.`
14			`x=8`
15			`y = erfc(x)`
16			`if (y .gt. 1.2e-28) call abort`
17
18			`x1=0.`
19			`y1 = erfc(x1)`
20			`if (y1 .ne. 1.) call abort`
21
22			`x1=1.1d0`
23			`y1 = erfc(x1)`
24			`if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort`
25
26			`x1=10`
27			`y1 = erfc(x1)`
28			`if (y1 .gt. 1.5d-44) call abort`
29			`end`
30			`c=================================================`
31			`!output:`
32			`! 0. 1.875`
33			`! 1.10000002 1.48958981`
34			`! 10. 5.00220949E-06`
35			`!`
36			`!The values should be:`
37			`!erfc(0)=1`
38			`!erfc(1.1)= 0.1197949`
39			`!erfc(10)<1.543115467311259E-044`