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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [math.f90] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! Program to test mathematical intrinsics
2
subroutine dotest (n, val4, val8, known)
3
   implicit none
4
   real(kind=4) val4, known
5
   real(kind=8) val8
6
   integer n
7
 
8
   if (abs (val4 - known) .gt. 0.001) call abort
9
   if (abs (real (val8, kind=4) - known) .gt. 0.001) call abort
10
end subroutine
11
 
12
subroutine dotestc (n, val4, val8, known)
13
   implicit none
14
   complex(kind=4) val4, known
15
   complex(kind=8) val8
16
   integer n
17
   if (abs (val4 - known) .gt. 0.001) call abort
18
   if (abs (cmplx (val8, kind=4) - known) .gt. 0.001) call abort
19
end subroutine
20
 
21
program testmath
22
   implicit none
23
   real(kind=4) r, two4, half4
24
   real(kind=8) q, two8, half8
25
   complex(kind=4) cr
26
   complex(kind=8) cq
27
   external dotest, dotest2
28
 
29
   two4 = 2.0
30
   two8 = 2.0_8
31
   half4 = 0.5
32
   half8 = 0.5_8
33
   r = sin (two4)
34
   q = sin (two8)
35
   call dotest (1, r, q, 0.9093)
36
   r = cos (two4)
37
   q = cos (two8)
38
   call dotest (2, r, q, -0.4161)
39
   r = tan (two4)
40
   q = tan (two8)
41
   call dotest (3, r, q, -2.1850)
42
   r = asin (half4)
43
   q = asin (half8)
44
   call dotest (4, r, q, 0.5234)
45
   r = acos (half4)
46
   q = acos (half8)
47
   call dotest (5, r, q, 1.0472)
48
   r = atan (half4)
49
   q = atan (half8)
50
   call dotest (6, r, q, 0.4636)
51
   r = atan2 (two4, half4)
52
   q = atan2 (two8, half8)
53
   call dotest (7, r, q, 1.3258)
54
   r = exp (two4)
55
   q = exp (two8)
56
   call dotest (8, r, q, 7.3891)
57
   r = log (two4)
58
   q = log (two8)
59
   call dotest (9, r, q, 0.6931)
60
   r = log10 (two4)
61
   q = log10 (two8)
62
   call dotest (10, r, q, 0.3010)
63
   r = sinh (two4)
64
   q = sinh (two8)
65
   call dotest (11, r, q, 3.6269)
66
   r = cosh (two4)
67
   q = cosh (two8)
68
   call dotest (12, r, q, 3.7622)
69
   r = tanh (two4)
70
   q = tanh (two8)
71
   call dotest (13, r, q, 0.9640)
72
   r = sqrt (two4)
73
   q = sqrt (two8)
74
   call dotest (14, r, q, 1.4142)
75
 
76
   r = atan2 (0.0, 1.0)
77
   q = atan2 (0.0_8, 1.0_8)
78
   call dotest (15, r, q, 0.0)
79
   r = atan2 (-1.0, 1.0)
80
   q = atan2 (-1.0_8, 1.0_8)
81
   call dotest (16, r, q, -0.7854)
82
   r = atan2 (0.0, -1.0)
83
   q = atan2 (0.0_8, -1.0_8)
84
   call dotest (17, r, q, 3.1416)
85
   r = atan2 (-1.0, -1.0)
86
   q = atan2 (-1.0_8, -1.0_8)
87
   call dotest (18, r, q, -2.3562)
88
   r = atan2 (1.0, 0.0)
89
   q = atan2 (1.0_8, 0.0_8)
90
   call dotest (19, r, q, 1.5708)
91
   r = atan2 (-1.0, 0.0)
92
   q = atan2 (-1.0_8, 0.0_8)
93
   call dotest (20, r, q, -1.5708)
94
 
95
   cr = log ((-1.0, -1.0))
96
   cq = log ((-1.0_8, -1.0_8))
97
   call dotestc (21, cr, cq, (0.3466, -2.3562))
98
 
99
end program
100
 

powered by: WebSVN 2.1.0

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