2011-07-20 02:17:07 -07:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
2011-07-27 07:17:02 -07:00
|
|
|
/* OCaml */
|
2011-07-20 02:17:07 -07:00
|
|
|
/* */
|
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 2011 Institut National de Recherche en Informatique et */
|
|
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
|
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
|
|
|
/* the special exception on linking described in file ../../LICENSE. */
|
|
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
#include <math.h>
|
|
|
|
|
|
|
|
|
|
volatile double x;
|
|
|
|
|
|
|
|
|
|
int main(int argc, char **argv)
|
|
|
|
|
{
|
|
|
|
|
x = 3.1415;
|
|
|
|
|
x = expm1(x);
|
|
|
|
|
x = log1p(x);
|
|
|
|
|
return 0;
|
|
|
|
|
}
|
