summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libF77/h_sign.c
diff options
context:
space:
mode:
authorDale Rahn <drahn@cvs.openbsd.org>2004-02-29 19:27:25 +0000
committerDale Rahn <drahn@cvs.openbsd.org>2004-02-29 19:27:25 +0000
commit06bbcaeb9d33fce156543e2d84b1df4a0a9e1127 (patch)
tree8614ca58169c994e07adc995d206e8434b020c5d /gnu/lib/libf2c/libF77/h_sign.c
parent4a95829907bd98f42503d9e6f91af8df4c9313ab (diff)
Import of libf2c from gcc3.3.2
Diffstat (limited to 'gnu/lib/libf2c/libF77/h_sign.c')
-rw-r--r--gnu/lib/libf2c/libF77/h_sign.c12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/lib/libf2c/libF77/h_sign.c b/gnu/lib/libf2c/libF77/h_sign.c
new file mode 100644
index 00000000000..7b06c157a74
--- /dev/null
+++ b/gnu/lib/libf2c/libF77/h_sign.c
@@ -0,0 +1,12 @@
+#include "f2c.h"
+
+#ifdef KR_headers
+shortint h_sign(a,b) shortint *a, *b;
+#else
+shortint h_sign(shortint *a, shortint *b)
+#endif
+{
+shortint x;
+x = (*a >= 0 ? *a : - *a);
+return( *b >= 0 ? x : -x);
+}