bd67413b3c
Also: add basic tests to detect fpu miscompilation.
The program sets the fpu to 53 bit mode to get consistent results. It
turns out that doing this on musl breaks fmt_fp (-> printf) which uses
long double to format floats. Note this is an issue even on 64 bit musl,
although setting fpu to 53 bits is unnecessary on 64 bits because of the
default -mfpmath=sse.
The way Configure works: it tries different combinations of flags which
exercise different methods to change the fpu control word until one
works, meaning doubles are effectively 53 bits. The fix here is to try
first NOT touching the fpu control word. On x86_64 using the default
-mfpmath=sse this will succeed bypassing all fpucw modification.
For i686 using -mfpmath=387 (always if sse2 not available) the code will
fall back to changing the fpu control word as before. Since this is not
a problem for glibc, everything still works. I expect i686-musl to still
be broken, but we don't support that arch.
A simple way to test the bug on musl is to run
$ sympow -curve '[0,0,0,0,1]' -analrank
...
Analytic Rank is 0 : L-value 7.01091e-01
When the fpucw is changed, on musl this prints "7.01092e-01" instead.
The actual value computed to 128 bits with pari is:
$ echo 'elllseries(ellinit([0,0,0,0,1]),1)' | gp -q
0.70109105266272713058750953952514706773
so the glibc output is the correct one.
Again: what is broken is not computing but printing, as fmt_fp in musl
uses long double, which means messing with fpu control word breaks it.
This is important since sagemath parses sympow output.
This affects sagemath doctests as in
$ sage -t src/sage/lfunctions/sympow.py
...
(3 failures)
After this commit, the doctest in question passes on the 3 supported
archs.
51 lines
1.3 KiB
Bash
51 lines
1.3 KiB
Bash
#! /bin/sh
|
|
|
|
# Quick minimal test for sympow
|
|
#
|
|
# Compute modular degree and analytic rank for some curves so we check
|
|
# that it works and also that fpu arithmetic and output are ok
|
|
|
|
# setup sympow to run from cwd
|
|
export SYMPOW_PKGDATADIR=.
|
|
export SYMPOW_PKGLIBDIR=.
|
|
mkdir -p sympow_cache
|
|
export SYMPOW_CACHEDIR=sympow_cache
|
|
|
|
E11a=[0,-1,1,-10,-20]
|
|
E37a=[0,0,1,-1,0]
|
|
E389a=[0,1,1,-2,0]
|
|
E5077a=[0,0,1,-7,6]
|
|
E4=[1,-1,0,-79,289]
|
|
E5=[0,0,1,-79,342]
|
|
E6=[1,1,0,-2582,48720]
|
|
E7=[0,0,0,-10012,346900]
|
|
|
|
echo "### Compute modular degree for some curves"
|
|
echo "# 11a"
|
|
./sympow -quiet -curve $E11a -moddeg
|
|
echo "# 37a"
|
|
./sympow -quiet -curve $E37a -moddeg
|
|
echo "# 389a"
|
|
./sympow -quiet -curve $E389a -moddeg
|
|
echo "# 5077a"
|
|
./sympow -quiet -curve $E5077a -moddeg
|
|
echo "# 234446a"
|
|
./sympow -quiet -curve $E4 -moddeg
|
|
|
|
echo "### Compute analytic rank for some curves"
|
|
echo "# 11a"
|
|
./sympow -quiet -curve $E11a -analrank
|
|
echo "# 37a"
|
|
./sympow -quiet -curve $E37a -analrank
|
|
echo "# 389a"
|
|
./sympow -quiet -curve $E389a -analrank
|
|
echo "# 5077a"
|
|
./sympow -quiet -curve $E5077a -analrank
|
|
echo "# 234446a"
|
|
./sympow -quiet -curve $E4 -analrank
|
|
echo "# curve of rank 5"
|
|
./sympow -quiet -curve $E5 -analrank
|
|
echo "# curve of rank 6"
|
|
./sympow -quiet -curve $E6 -analrank
|
|
echo "# curve of rank 7"
|
|
./sympow -quiet -curve $E7 -analrank
|