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