xref: /freebsd/tools/test/stress2/misc/fpu.sh (revision 8a272653d9fbd9fc37691c9aad6a05089b4ecb4d)
1*8a272653SPeter Holm#!/bin/sh
2*8a272653SPeter Holm
3*8a272653SPeter Holm#
4*8a272653SPeter Holm# Copyright (c) 2010 Peter Holm <pho@FreeBSD.org>
5*8a272653SPeter Holm# All rights reserved.
6*8a272653SPeter Holm#
7*8a272653SPeter Holm# Redistribution and use in source and binary forms, with or without
8*8a272653SPeter Holm# modification, are permitted provided that the following conditions
9*8a272653SPeter Holm# are met:
10*8a272653SPeter Holm# 1. Redistributions of source code must retain the above copyright
11*8a272653SPeter Holm#    notice, this list of conditions and the following disclaimer.
12*8a272653SPeter Holm# 2. Redistributions in binary form must reproduce the above copyright
13*8a272653SPeter Holm#    notice, this list of conditions and the following disclaimer in the
14*8a272653SPeter Holm#    documentation and/or other materials provided with the distribution.
15*8a272653SPeter Holm#
16*8a272653SPeter Holm# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17*8a272653SPeter Holm# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18*8a272653SPeter Holm# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19*8a272653SPeter Holm# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20*8a272653SPeter Holm# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21*8a272653SPeter Holm# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22*8a272653SPeter Holm# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23*8a272653SPeter Holm# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24*8a272653SPeter Holm# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25*8a272653SPeter Holm# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26*8a272653SPeter Holm# SUCH DAMAGE.
27*8a272653SPeter Holm#
28*8a272653SPeter Holm
29*8a272653SPeter Holm# Regression test for FPU changes in r208833
30*8a272653SPeter Holm
31*8a272653SPeter Holm. ../default.cfg
32*8a272653SPeter Holm
33*8a272653SPeter Holmhere=`pwd`
34*8a272653SPeter Holmcd /tmp
35*8a272653SPeter Holmsed '1,/^EOF/d' < $here/$0 > fpu.c
36*8a272653SPeter Holmmycc -o fpu -Wall -O2 fpu.c
37*8a272653SPeter Holmrm -f fpu.c
38*8a272653SPeter Holm[ -d $RUNDIR ] || mkdir -p $RUNDIR
39*8a272653SPeter Holmcd $RUNDIR
40*8a272653SPeter Holm
41*8a272653SPeter Holmr=`/tmp/fpu`
42*8a272653SPeter Holm[ "$r" = "-0.000000017, 0.000000000, 0.000000000" ] || echo $r
43*8a272653SPeter Holm
44*8a272653SPeter Holmcd $here
45*8a272653SPeter Holmrm -f /tmp/fpu
46*8a272653SPeter Holm
47*8a272653SPeter Holmexit 0
48*8a272653SPeter HolmEOF
49*8a272653SPeter Holm#include <sys/types.h>
50*8a272653SPeter Holm#include <signal.h>
51*8a272653SPeter Holm#include <stdio.h>
52*8a272653SPeter Holm#include <stdlib.h>
53*8a272653SPeter Holm#include <sys/wait.h>
54*8a272653SPeter Holm#include <unistd.h>
55*8a272653SPeter Holm
56*8a272653SPeter Holmvoid
57*8a272653SPeter Holmhandler(int i)
58*8a272653SPeter Holm{
59*8a272653SPeter Holm}
60*8a272653SPeter Holm
61*8a272653SPeter Holmvoid
62*8a272653SPeter Holmtest()
63*8a272653SPeter Holm{
64*8a272653SPeter Holm	float val = 0;
65*8a272653SPeter Holm	double lval = 0;
66*8a272653SPeter Holm	long double llval = 0;
67*8a272653SPeter Holm	int i, j;
68*8a272653SPeter Holm
69*8a272653SPeter Holm	for (i = 0; i < 100000; i++) {
70*8a272653SPeter Holm		for (j = 0; j < 100000; j++) {
71*8a272653SPeter Holm			val   = val   + 0.00001;
72*8a272653SPeter Holm			lval  = lval  + 0.00001;
73*8a272653SPeter Holm			llval = llval + 0.00001;
74*8a272653SPeter Holm		}
75*8a272653SPeter Holm		for (j = 0; j < 100000; j++) {
76*8a272653SPeter Holm			val   = val   - 0.00001;
77*8a272653SPeter Holm			lval  = lval  - 0.00001;
78*8a272653SPeter Holm			llval = llval - 0.00001;
79*8a272653SPeter Holm		}
80*8a272653SPeter Holm	}
81*8a272653SPeter Holm	printf("%.9f, %.9f, %.9Lf\n", val, lval, llval);
82*8a272653SPeter Holm	exit(0);
83*8a272653SPeter Holm
84*8a272653SPeter Holm}
85*8a272653SPeter Holm
86*8a272653SPeter Holmint
87*8a272653SPeter Holmmain()
88*8a272653SPeter Holm{
89*8a272653SPeter Holm	pid_t pid;
90*8a272653SPeter Holm	int i;
91*8a272653SPeter Holm
92*8a272653SPeter Holm	signal(SIGHUP, handler);
93*8a272653SPeter Holm
94*8a272653SPeter Holm	if ((pid = fork()) == 0)
95*8a272653SPeter Holm		test();
96*8a272653SPeter Holm
97*8a272653SPeter Holm	for (i = 0; i < 10000; i++)
98*8a272653SPeter Holm		kill(pid, SIGHUP);
99*8a272653SPeter Holm
100*8a272653SPeter Holm	wait(NULL);
101*8a272653SPeter Holm
102*8a272653SPeter Holm	return (0);
103*8a272653SPeter Holm}
104