1*3b5a1b7fSmartynas /* $OpenBSD: rint.c,v 1.10 2011/04/10 17:06:44 martynas Exp $ */
2d99f3947Smickey
3e337cadcSmickey /* Written by Michael Shalayeff, 2003, Public domain. */
4d99f3947Smickey
59b6d1e57Smartynas #include <assert.h>
6d99f3947Smickey #include <stdio.h>
71821443cSdavid #include <stdlib.h>
81821443cSdavid #include <string.h>
9d99f3947Smickey #include <signal.h>
10d99f3947Smickey #include <unistd.h>
11d99f3947Smickey #include <math.h>
129b6d1e57Smartynas #include <ieeefp.h>
13d99f3947Smickey
14db3296cfSderaadt static void
sigfpe(int sig,siginfo_t * si,void * v)15d99f3947Smickey sigfpe(int sig, siginfo_t *si, void *v)
16d99f3947Smickey {
17d99f3947Smickey char buf[132];
18d99f3947Smickey
19d99f3947Smickey if (si) {
20d99f3947Smickey snprintf(buf, sizeof(buf), "sigfpe: addr=%p, code=%d\n",
21d99f3947Smickey si->si_addr, si->si_code);
22d99f3947Smickey write(1, buf, strlen(buf));
23d99f3947Smickey }
24d99f3947Smickey _exit(1);
25d99f3947Smickey }
26d99f3947Smickey
27d99f3947Smickey int
main(int argc,char * argv[])28db3296cfSderaadt main(int argc, char *argv[])
29d99f3947Smickey {
30d99f3947Smickey struct sigaction sa;
31d99f3947Smickey
32d99f3947Smickey memset(&sa, 0, sizeof(sa));
33d99f3947Smickey sa.sa_sigaction = sigfpe;
34d99f3947Smickey sa.sa_flags = SA_SIGINFO;
35d99f3947Smickey sigaction(SIGFPE, &sa, NULL);
36d99f3947Smickey
379b6d1e57Smartynas assert(rint(8.6) == 9.);
389b6d1e57Smartynas assert(rintf(8.6F) == 9);
399b6d1e57Smartynas assert(rintl(8.6L) == 9);
409b6d1e57Smartynas assert(lrint(8.6) == 9L);
419b6d1e57Smartynas assert(lrintf(8.6F) == 9L);
429b6d1e57Smartynas assert(llrint(8.6) == 9LL);
439b6d1e57Smartynas assert(llrintf(8.6F) == 9LL);
449b6d1e57Smartynas
459b6d1e57Smartynas assert(lrint(0.0) == 0L);
469b6d1e57Smartynas assert(lrintf(0.0) == 0L);
479b6d1e57Smartynas assert(lrint(-0.0) == 0L);
489b6d1e57Smartynas assert(lrintf(-0.0) == 0L);
499b6d1e57Smartynas
50*3b5a1b7fSmartynas assert(llrint(4503599627370496.0) == 4503599627370496LL);
51*3b5a1b7fSmartynas assert(llrintf(4503599627370496.0F) == 4503599627370496LL);
52*3b5a1b7fSmartynas assert(llrint(-4503599627370496.0) == -4503599627370496LL);
53*3b5a1b7fSmartynas assert(llrintf(-4503599627370496.0F) == -4503599627370496LL);
54*3b5a1b7fSmartynas
55*3b5a1b7fSmartynas assert(llrint(0x7ffffffffffffc00.0p0) == 0x7ffffffffffffc00LL);
56*3b5a1b7fSmartynas assert(llrintf(0x7fffff8000000000.0p0F) == 0x7fffff8000000000LL);
57*3b5a1b7fSmartynas assert(llrint(-0x8000000000000000.0p0) == -0x8000000000000000LL);
58*3b5a1b7fSmartynas assert(llrintf(-0x8000000000000000.0p0F) == -0x8000000000000000LL);
59f6caf483Smartynas
609b6d1e57Smartynas fpsetround(FP_RM);
619b6d1e57Smartynas assert(lrint(-0.1) == -1L);
629b6d1e57Smartynas assert(lrintf(-0.1) == -1L);
639b6d1e57Smartynas
649b6d1e57Smartynas fpsetround(FP_RP);
659b6d1e57Smartynas assert(lrint(0.1) == 1L);
669b6d1e57Smartynas assert(lrintf(0.1) == 1L);
67d99f3947Smickey
68d99f3947Smickey exit(0);
69d99f3947Smickey }
70