You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

296 lines
6.2 KiB

#!/bin/bash
# ULP error check script.
#
# Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
# See https://llvm.org/LICENSE.txt for license information.
# SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
#set -x
set -eu
# cd to bin directory.
cd "${0%/*}"
rmodes='n u d z'
#rmodes=n
flags="${ULPFLAGS:--q}"
emu="$@"
FAIL=0
PASS=0
t() {
[ $r = "n" ] && Lt=$L || Lt=$Ldir
$emu ./ulp -r $r -e $Lt $flags "$@" && PASS=$((PASS+1)) || FAIL=$((FAIL+1))
}
check() {
$emu ./ulp -f -q "$@" >/dev/null
}
Ldir=0.5
for r in $rmodes
do
L=0.01
t exp 0 0xffff000000000000 10000
t exp 0x1p-6 0x1p6 40000
t exp -0x1p-6 -0x1p6 40000
t exp 633.3 733.3 10000
t exp -633.3 -777.3 10000
L=0.01
t exp2 0 0xffff000000000000 10000
t exp2 0x1p-6 0x1p6 40000
t exp2 -0x1p-6 -0x1p6 40000
t exp2 633.3 733.3 10000
t exp2 -633.3 -777.3 10000
L=0.02
t log 0 0xffff000000000000 10000
t log 0x1p-4 0x1p4 40000
t log 0 inf 40000
L=0.05
t log2 0 0xffff000000000000 10000
t log2 0x1p-4 0x1p4 40000
t log2 0 inf 40000
L=0.05
t pow 0.5 2.0 x 0 inf 20000
t pow -0.5 -2.0 x 0 inf 20000
t pow 0.5 2.0 x -0 -inf 20000
t pow -0.5 -2.0 x -0 -inf 20000
t pow 0.5 2.0 x 0x1p-10 0x1p10 40000
t pow 0.5 2.0 x -0x1p-10 -0x1p10 40000
t pow 0 inf x 0.5 2.0 80000
t pow 0 inf x -0.5 -2.0 80000
t pow 0x1.fp-1 0x1.08p0 x 0x1p8 0x1p17 80000
t pow 0x1.fp-1 0x1.08p0 x -0x1p8 -0x1p17 80000
t pow 0 0x1p-1000 x 0 1.0 50000
t pow 0x1p1000 inf x 0 1.0 50000
t pow 0x1.ffffffffffff0p-1 0x1.0000000000008p0 x 0x1p60 0x1p68 50000
t pow 0x1.ffffffffff000p-1 0x1p0 x 0x1p50 0x1p52 50000
t pow -0x1.ffffffffff000p-1 -0x1p0 x 0x1p50 0x1p52 50000
L=0.01
t expf 0 0xffff0000 10000
t expf 0x1p-14 0x1p8 50000
t expf -0x1p-14 -0x1p8 50000
L=0.01
t exp2f 0 0xffff0000 10000
t exp2f 0x1p-14 0x1p8 50000
t exp2f -0x1p-14 -0x1p8 50000
L=0.32
t logf 0 0xffff0000 10000
t logf 0x1p-4 0x1p4 50000
t logf 0 inf 50000
L=0.26
t log2f 0 0xffff0000 10000
t log2f 0x1p-4 0x1p4 50000
t log2f 0 inf 50000
#L=0.06
#t sinf 0 0xffff0000 10000
#t sinf 0x1p-14 0x1p54 50000
#t sinf -0x1p-14 -0x1p54 50000
#
#L=0.06
#t cosf 0 0xffff0000 10000
#t cosf 0x1p-14 0x1p54 50000
#t cosf -0x1p-14 -0x1p54 50000
#
#L=0.06
#t sincosf_sinf 0 0xffff0000 10000
#t sincosf_sinf 0x1p-14 0x1p54 50000
#t sincosf_sinf -0x1p-14 -0x1p54 50000
#
#L=0.06
#t sincosf_cosf 0 0xffff0000 10000
#t sincosf_cosf 0x1p-14 0x1p54 50000
#t sincosf_cosf -0x1p-14 -0x1p54 50000
L=0.4
t powf 0x1p-1 0x1p1 x 0x1p-7 0x1p7 50000
t powf 0x1p-1 0x1p1 x -0x1p-7 -0x1p7 50000
t powf 0x1p-70 0x1p70 x 0x1p-1 0x1p1 50000
t powf 0x1p-70 0x1p70 x -0x1p-1 -0x1p1 50000
t powf 0x1.ep-1 0x1.1p0 x 0x1p8 0x1p14 50000
t powf 0x1.ep-1 0x1.1p0 x -0x1p8 -0x1p14 50000
done
# vector functions
Ldir=0.5
r='n'
flags="${ULPFLAGS:--q} -f"
runs=
check __s_exp 1 && runs=1
runv=
check __v_exp 1 && runv=1
runvn=
check __vn_exp 1 && runvn=1
range_exp='
0 0xffff000000000000 10000
0x1p-6 0x1p6 400000
-0x1p-6 -0x1p6 400000
633.3 733.3 10000
-633.3 -777.3 10000
'
range_log='
0 0xffff000000000000 10000
0x1p-4 0x1p4 400000
0 inf 400000
'
range_pow='
0x1p-1 0x1p1 x 0x1p-10 0x1p10 50000
0x1p-1 0x1p1 x -0x1p-10 -0x1p10 50000
0x1p-500 0x1p500 x 0x1p-1 0x1p1 50000
0x1p-500 0x1p500 x -0x1p-1 -0x1p1 50000
0x1.ep-1 0x1.1p0 x 0x1p8 0x1p16 50000
0x1.ep-1 0x1.1p0 x -0x1p8 -0x1p16 50000
'
range_sin='
0 0xffff000000000000 10000
0x1p-4 0x1p4 400000
-0x1p-23 0x1p23 400000
'
range_cos="$range_sin"
range_expf='
0 0xffff0000 10000
0x1p-14 0x1p8 500000
-0x1p-14 -0x1p8 500000
'
range_expf_1u="$range_expf"
range_exp2f="$range_expf"
range_exp2f_1u="$range_expf"
range_logf='
0 0xffff0000 10000
0x1p-4 0x1p4 500000
'
range_sinf='
0 0xffff0000 10000
0x1p-4 0x1p4 300000
-0x1p-9 -0x1p9 300000
'
range_cosf="$range_sinf"
range_powf='
0x1p-1 0x1p1 x 0x1p-7 0x1p7 50000
0x1p-1 0x1p1 x -0x1p-7 -0x1p7 50000
0x1p-70 0x1p70 x 0x1p-1 0x1p1 50000
0x1p-70 0x1p70 x -0x1p-1 -0x1p1 50000
0x1.ep-1 0x1.1p0 x 0x1p8 0x1p14 50000
0x1.ep-1 0x1.1p0 x -0x1p8 -0x1p14 50000
'
# error limits
L_exp=1.9
L_log=1.2
L_pow=0.05
L_sin=3.0
L_cos=3.0
L_expf=1.49
L_expf_1u=0.4
L_exp2f=1.49
L_exp2f_1u=0.4
L_logf=2.9
L_sinf=1.4
L_cosf=1.4
L_powf=2.1
while read G F R
do
[ "$R" = 1 ] || continue
case "$G" in \#*) continue ;; esac
eval range="\${range_$G}"
eval L="\${L_$G}"
while read X
do
[ -n "$X" ] || continue
case "$X" in \#*) continue ;; esac
t $F $X
done << EOF
$range
EOF
done << EOF
# group symbol run
exp __s_exp $runs
exp __v_exp $runv
exp __vn_exp $runvn
exp _ZGVnN2v_exp $runvn
log __s_log $runs
log __v_log $runv
log __vn_log $runvn
log _ZGVnN2v_log $runvn
pow __s_pow $runs
pow __v_pow $runv
pow __vn_pow $runvn
pow _ZGVnN2vv_pow $runvn
sin __s_sin $runs
sin __v_sin $runv
sin __vn_sin $runvn
sin _ZGVnN2v_sin $runvn
cos __s_cos $runs
cos __v_cos $runv
cos __vn_cos $runvn
cos _ZGVnN2v_cos $runvn
expf __s_expf $runs
expf __v_expf $runv
expf __vn_expf $runvn
expf _ZGVnN4v_expf $runvn
expf_1u __s_expf_1u $runs
expf_1u __v_expf_1u $runv
expf_1u __vn_expf_1u $runvn
exp2f __s_exp2f $runs
exp2f __v_exp2f $runv
exp2f __vn_exp2f $runvn
exp2f _ZGVnN4v_exp2f $runvn
exp2f_1u __s_exp2f_1u $runs
exp2f_1u __v_exp2f_1u $runv
exp2f_1u __vn_exp2f_1u $runvn
logf __s_logf $runs
logf __v_logf $runv
logf __vn_logf $runvn
logf _ZGVnN4v_logf $runvn
sinf __s_sinf $runs
sinf __v_sinf $runv
sinf __vn_sinf $runvn
sinf _ZGVnN4v_sinf $runvn
cosf __s_cosf $runs
cosf __v_cosf $runv
cosf __vn_cosf $runvn
cosf _ZGVnN4v_cosf $runvn
powf __s_powf $runs
powf __v_powf $runv
powf __vn_powf $runvn
powf _ZGVnN4vv_powf $runvn
EOF
[ 0 -eq $FAIL ] || {
echo "FAILED $FAIL PASSED $PASS"
exit 1
}