mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-10-28 06:22:51 +01:00
e0f2f074bb
This directory needs to be reorganized and some of the tests need changes to make them executable. Also comments would help... llvm-svn: 2865
30 lines
569 B
C
30 lines
569 B
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#define A 16807.0
|
|
#define M 2147483647.0
|
|
|
|
/*
|
|
* This function calls floor() which does not have a prototype.
|
|
* Test that the argument to floor is passed correctly.
|
|
*/
|
|
double
|
|
my_rand(double seed)
|
|
{
|
|
double t = A*seed + 1;
|
|
double floor();
|
|
|
|
seed = t - (M * floor(t / M)); /* t%M if t > M; t otherwise */
|
|
return seed;
|
|
|
|
} /* end of random */
|
|
|
|
|
|
int
|
|
main(int argc, char** argv)
|
|
{
|
|
double seed = 123 * ((argc > 1)? atof(argv[1]) : 3.1415926);
|
|
printf("my_rand(%lf) = %lf\n", seed, my_rand(seed));
|
|
return 0;
|
|
}
|