blob: c57b69da9540eb7fa796289bbb40fb18dc5f8da1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) 2007-2008 - INRIA - Bruno JOFRET
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
*
*/
#include <stdlib.h>
#include "testRand.h"
/*
int drandsTest() {
double nan = 0.0 / 0.0;
double result = nan;
int i=0;
printf(">> Double\n");
for (i=0;i<10;i++){
result = drands();
printf("%1.20f\n",result);
}
assert(&result != &nan);
return 0;
}
*/
/*
int zrandsTest() {
double nan = 0.0 / 0.0;
doubleComplex result = DoubleComplex(nan,nan);
int i=0;
printf(">> DoubleComplex\n");
for (i=0;i<10;i++){
result = zrands();
printf("%1.20f+%1.20f\n",zreals(result),zimags(result));
}
assert(zreals(result) != nan);
return 0;
}
*/
int drandaTest() {
int i;
double dA = 0.0;
double nan = dA / dA;
double *result;
result=(double*)malloc((unsigned int)12*sizeof(double));
printf(">> Double Array\n");
dranda(result,12);
for (i=0;i<12;i++){
printf("%1.20f\n",result[i]);
assert(result[i] != nan);}
free(result);
return 0;
}
/*
int zrandaTest() {
int i;
double nan = 0.0 / 0.0;
doubleComplex *result;
result=malloc((uint)12*sizeof(doubleComplex));
printf(">> DoubleComplex Array\n");
zranda(result,12);
for (i=0;i<12;i++){
printf("%1.20f+%1.20f\n",zreals(result[i]),zimags(result[i]));
assert(zreals(result[i]) != nan);}
free(result);
return 0;
}
*/
int testRand() {
/* int drandsTestStatus = 0;*/
int zrandaTestStatus = 0;
printf("\n>>>> Rand Tests\n");
/* drandsTestStatus = drandsTest();*/
zrandaTestStatus = drandaTest();
return (zrandaTestStatus);
}
int main(void) {
assert(testRand() == 0);
return 0;
}
|
