* Previous contents of gcc/f/runtime moved into toplevel

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / d_sin.c

diff --git a/libf2c/libF77/d_sin.c b/libf2c/libF77/d_sin.c
new file mode 100644 (file)
index 0000000..fdd699e
--- /dev/null
+++ b/libf2c/libF77/d_sin.c
@@ -0,0 +1,13 @@
+#include "f2c.h"
+
+#ifdef KR_headers
+double sin();
+double d_sin(x) doublereal *x;
+#else
+#undef abs
+#include <math.h>
+double d_sin(doublereal *x)
+#endif
+{
+return( sin(*x) );
+}